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本 書 の 内 容 


本 書 は 、「10 日 で お ぼ え る Visual Basic 6.0 入門 孝 
室 | の 続編 で す 。 Visual Basic 6.0 を 使っ て 、 は じ め て 
Windows の プロ グラ ム を 作成 し よう と する 人 や 、 他 の プ 
ログ ラミ ング 言語 を 使っ た こと は ある が 、 Visual Basic 
を 使う の は は じ め て 、 と いう 方 を 対象 に 、 すぐ に Visual 
Basic で Windows の プロ グラ ム を 作成 で きる よう に 、 
随所 に 工夫 を 凝ら し た 構成 で 編集 し まし た 。 


全体 の 流れ は 、「 プ ログ ラミ ング セミ ナー」 の よう に 、 段 
階 を 追っ て Visual Basic の 使い 方 や テク ニッ ク を 説明 
し て あり ます , 各 レ ッ ス ン は 4 段階 に な っ て いま す , 


【 レ ッ ス ン の 構成 】 


1. サン プル の 説明 
サン プル の 動作 と 、 
作成 の 際 の ボイン ト を 解説 し ます 。 


2. 操作 説明 
作成 に 伴う 一 連 の 操作 を 、 
わか りや すい よう に 画面 を 使っ て 
説明 し ます 。 


3. コー ド の 解説 
プロ グラ ムコ ー ド を 、 
1 行 ずつ 丁寧 に 解説 し て いき ます , 


4. 練習 問題 
練習 問題 で 基礎 を 固め 、 応 用 力 を つけ ます , 


紹介 し て いる サン プル の コー ド は 、 入門 者 が 混乱 し な い 
よう に 、 説明 の ボイン ト を 重点 的 に 絞っ て 、 な る べく 少な 
い 行 数 で 作成 し まし た 。 も っ と も 長い も の で も コー ド の 入 
力 に 時 間 を 取ら れる こと は あり ませ ん 。 また 、 これ ら の サ 
ンプ ブル は コン パク ト で 理解 し や すく 、 様々 な テク ニッ ク を 
簡潔 に 紹介 し て いる の で 、 自 分 で 開発 する 際 に 応用 する 
こと が で きま す 。 サン プル の 完成 バー ジョ ン は 付属 CD- 
ROM に 収録 され て いま す 。 


本 書 で は 、「 入 門 教室 」 を 読了 し た 読者 が 、 より 実用 的 な 
プロ グラ ム を 作る た め の ヒ ント を 幅広 く 紹介 し て いま す 。 
従来 の プロ グラ ミン グ 解 説 書 の よう に 、 プロ グラ ミン グ の 
テク ニッ ク に 関す る 抽象 的 な 概要 や 概念 の 説明 ば か り で 、 
プロ グラ ム を 作る 前 か ら う ん ざり し て し まう よう な こと は 
あり ませ ん 。 そう いっ た 「 解 説 」 は レッ スン の 最後 に まとめ 
て 、 まず 「 作 る こと 」 そ れ 自 体 を 楽し ん で も ら う こと を 主 と 
し た レッ スン 構成 に し て いま す 。 


本 書 は 「 作 りな が ら お ぼ え た い 人 」 と 「 お ぼ え て か ら 作 り 
た い 人 」 の どちら に も わか りや すい よう に 書か れ て いま す 。 
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本 書 内 容 に 関す る お 問合せ に つい て 


この た び は 翔 涼 社 の 書籍 を お 買い 上 げ い た だ き 、 誠 に あり が と う ご ざ いま す 。 弊社 で は 、 読 者 の 皆様 か ら の お 問い 合わ せ に 適切 に 対 
応 き せ て いた だ く た め 、 以 下 の ガ イド ライ ン へ の ご 協力 を お 願い 致し て お り ま す 。 下 記 項 目 を お 読み いた だ き 、 手 順に 従っ て お 問い 
合わ せく だ さい 。 


@ ご 質問 され る 前 に 
弊社 Web サ イト の 「Q&A コー ナー」 (http://wwwr.shoeisha.com/info/help.asp) を ご 参照 くだ さい 。 こ れ ま で 受け た ご 質問 へ の 
回 答 (FAQ) や 、 的 確 な ご 質問 方 法 に 関す る 情報 を 掲示 し て いま す 。 


例 ご 質問 方 法 
弊社 Web サイ ト の 専用 フォ ー ム サイ ト (http://www.shoeisha.com/book/qa/) を ご 利用 くだ さい 。 記載 漏れ や 独自 の 用 紙 等 に 
よる ご 質問 、 お 電話 や 電子 メー ル に よる お 問合せ 、 本 書 に は さ み 込 まれ た アン ケー ト は が き に 記入 され た ご 質問 等 は 、 お 受け 
し て お り ま せん 。 


※ 質 問 専用 シー ト の お 取り 寄せ に つい て 

Web サ イト に アク セス する 手段 を お 持ち で な い 方 は 、 ご 氏名 、 ご 送付 先 (ご 住所 郵便 番号 電話 番号 また は FAX 番号 電子 
メー ル ア ド レス ) お よび 「 質 問 専 用 シー ト 送 付 希 望 ]」 と 明記 の うえ 、 電 子 メ ー ル (qaform@shoeisha.com) 、FAX、 郵 便 (80 円 
切手 を ご 同封 願い ます ) の いずれ か に て "編集 部 読者 サポ ー ト 係 " まで お 申し 込み くだ さい 。 お 申し 込ま れ た 手段 に よっ て 、 
折り 返し 質問 シー ト を お 送り いた し ます 。 シ ー ト に 必要 事項 を 漏れ な く 記 入 し 、"“ 編 集 部 読者 サポ ー ト 係 " まで FAX また は 郵 
便 に て ご 返送 くだ さい 。 


@ ご 回 答 に つい て 
ご 回 答 は 、 ご 質問 いた だ いた 手段 に よっ て ご 返事 申し 上 げ ま す 。 ご 質問 の 内 容 に よっ て は 、 回 答 に 数 日 な いし は それ 以上 の 期 
間 を 要する 場合 が あり ます 。 


@ ご 質問 に 際 し て の ご 注意 
本 書 の 対象 を 越え る も の 、 記 述 個所 を 特定 きれ な いも の 、 ま た 読者 固有 の 環境 に 起因 する ご 質問 等 に は お 答え で きま せん の で 、 
務め ご 了承 くだ さい 。 


@ 郵 便 物 送付 先 お よび FAX 番号 
送付 先住 所 〒160-0006 東京 都 新宿 区 舟町 5 
FAX 番号 03.5362.3818 
宛先 (株 ) 翔 泳社 出版 局 編集 部 読者 サポ ー ト 係 


※ 本 書 に 記載 され た URL 等 は 予告 な く 変更 きれ る 場合 が あり ます . 

※ 本 書 の 出版 に あたっ て は 正確 な 記述 に つと め ま し た が 、 著 者 や 出版 社 な どの いずれ も 、 本書 の 内 容 に 対し て な ん ら か の 保証 を する も の で は な く 、 内 容 
や サン ブル に 基づく いか な る 運用 結果 に 関し て も いっ さい の 資 任 を 負い ませ ん 

※ 本 書 に 掲載 され て いる サン ブル プロ グラ ム や スク リプ ト 、 お よび 実行 結果 を 記し た 画面 イメ ー ジ な ど は 、 特 定 の 設定 に 基づい た 環境 に て 再現 され 
る 一 例 で す 。 





その 他 、 本 書 に 記載 され て いる 会 社名 、 製 品名 は すべ て 各社 の 登録 商標 また は 商標 で す 。 


よう こそ 、Visual Basic 6.0 実践 教室 へ ! 


この 全 レ ッ ス ン を 受講 る マス ター すれ ば 、 今 日 か ら あ な た も フリ ー ソ フト プロ グラ マー 
の 仲間 入り ! 





Visual Basic で プロ グラ ム を 作成 する に は 、 基 礎 的 な テク ニッ ク に 加え て 多く の コン ト 
ロー ル や プロ グラ ミン グ 手 法 に 対す る 知識 と テク ニッ ク の 習得 が 必要 で す 。 ま た 、 よ り 多 
く の テ クニ ッ ク を 身 に 付け て お け ば 、 ア イデ ア 次 第 で きま ざま な 用 途 の プロ グラ ム 開 発 が 
可能 に な っ て いま す 。 


Visual Basic に は 、 と て も 高度 で 優秀 な 機能 を 持っ た コン トロ ー ル が 豊富 に 用 意 さ れ て 
いま す 。「 こ ん な 機能 を プロ グラ ム に 組み 込み た い 」 と 思え ば 、 そ れ に 見 合っ た コン トロ 
ー ル を 組み 込む こと で 実現 し ます 。 し か し 、 そ れ に は 、 コ ント ロー ル が 持っ て いる 機能 の 
内 容 や 使い 方 を 知ら な けれ ば な り ま せん 。 

今回 、「10 日 で お ぼ え る Visual Basic 6.0 入 門 教室 | の 続編 と し て 、 こ の コン トロ ー ル の 
使い 方 を 中 心 に 、 よ り 実 践 的 な テク ニッ ク を ふん だ ん に 紹介 し た 本 書 を 作成 し まし た 。 


本 書 の 前 半 で は 、 リ ッ チ テキ スト ボッ クス や リス トビ ュー、 プ ログ レス バー コン トロ ー 
ル を は じ め と し た 、 便 利 な ActiveX コン トロ ー ル の 使い 方 を 紹介 し レ し て いま す 。 こ れ ら の コ 
ント ロー ル を プロ グラ ム に 組み 込め ば 、 一 層 上 魅力 的 な ソフ ト に 仕上 げ る こと が で きま す 。 
更に 、1 つ の フォ ー ム 内 に 複数 の ウィ ンド ウ を 開く こと が で きる 「MDI (Multi 
Document Interface)」 機能 の 実装 方 法 や 、 イ ンタ ーネット の HTTP ・FTP サ ー バ と デー 
タ の 送受 信 を 行う テク ニッ ク な ども 紹介 し て いま す 。 後半 で は 、 Win32API を 呼び 出す 方 
法 を 詳し く 説明 し て いま す 。 Visual Basic が 持っ て いな い Windows の 機能 を プロ グラ ム に 
組み 込む ため に は 、 ど うし て も API の 力 を 借り な けれ ば な り ま せん 。 本 書 で は 、API の 概 
妥 説 明か ら コ ー ド の 実装 まで 、API を 使い 込む 上 で の 知識 と テク ニッ ク を 、 と て も わか り 
や すく 紹介 し て いま す 。 


また 、 イ ンタ ーネット エク スプ ロー ラ と その コン トロ ー ル で ある 「WebBrowser」 コン 
トロ ー ル を 使っ て 、 自 分 の プロ グラ ム に ホー ムペ ー ジ を ブラ ウザ する 機能 を 組み 込む 方 法 
や 、Microsoft Excel を 例 に と っ て 、Ofice アプ リケーション を プロ グラ ム か ら 操 作 す る テ 
クニ ッ ク な ど 、 よ り 実 践 的 で 幅広 い プ ログ ラミ ング 技法 を 紹介 し て いま す 。 本書 で は 、 レ 
ッ ス ン ご と に 1 つの 完成 し た プロ グラ ム を 作成 する よう に 構成 し て いま す 。 通り 一 遍 の 紋 
切り 型 で テク ニッ ク を 解説 する の で は な く 、 実 際 の 応用 事例 に 沿っ た テク ニッ ク の 使い 方 
を 解説 し て いま す の で 、 本 書 を 手 に し た その 日 か ら す ぐに プロ グラ ム 開 発 に 役立て る こと 
が で きま す 。 


ぜひ 、 本 書 を 活用 し て 、 プ ログ ラミ ング ライ フ を エン ジョ イ し て くだ さい 。 


1999 年 11 月 瀬戸 居 









































第 1 日 


に | 


よう こそ 、Visual Basic 実践 教室 へ ! 
CD-ROM を ご 使用 の 前 に 


か ん た ん 表 計 算 ソ フト の 作成 


1 時 限 目 Lesson 1 ユー ザー イン ター フェ イス の 作成 
ら 時 限 目 Lesson ら 合計 計算 処理 の 作成 

3 時 限 目 LessSon 3 セル デー タ を ファ イル に 保存 する 
4 時限 目 LegSson 4 ファ イル か ら デ ー タ を 読み 込む 


ワー プロ ソフ ト の 作成 


1 時 限 目 Lesson 5 ツー ル バ ー コ ント ロー ル の 組み 込み 
ら 時 限 目 Lesson 6B リッ チ テ キス ト ボ ックス コン トロ ー ル の 配置 
3 時 限 目 Lesson 7 文字 属性 の 操作 





らら 
3 どら 
46 


5 フ 


58 
7 ら 
88 





便利 な コン トロ ー ル を 使う 


1 時 限 目 Lesson B スラ イダ ー コ ント ロー ル を 使う 

ら 時 限 目 Legsson Bd プロ グレ スバ ー コ ント ロー ル を 使う 
3 時 限 目 Lesson 10 ステ ー タ スバ ー コ ント ロー ル を 使う 
4 時 限 目 Lesson 1 1 アッ プ ダ ウン コン トロ ー ル を 使う 


- 記 = 上 時 計 の 作成 


] 時 限 目 Lesson 1 アニ メー ショ ンク ロッ ク の 作成 
ら 時 限 目 Lesson 13 デジ タル クロ ッ ク の 作成 
3 時限 目 Lesson 14 タス ク バ ー で の 時 刻 表示 (アイ コン の 点 減 ) 


第 5 日 マル チ ド キ ュ メ ント ビュ ー ワ の 作成 


1 時 限 目 Lesson 15 MDI プロ グラ ム の 作成 
ら 時 限 目 Lesson 16 ユー ザー イン ター フェ イス の 作成 
3 時 限 目 Legsson 1 プ 7 コー ド の 作成 


雪崩 イン ター ネッ トブ ログ ラム の 作成 
1 時 限 目 Lesson 18 ホー ムペ ー ジ ダウ ン ロ ー ド プロ グラ ム の 作成 
ら 時 限 目 Lesson 19 FTP プロ トコ ル を 使う 
3 時 限 目 Legsson GO リス トビ ュー コン トロ ー ル を 使う 
4 時 限 目 Lesson 21 簡単 FTP ク ライ アン ト プ ロ グラ ム の 作成 


10 フ 7 


108 
114 
120 
134 


149 


150 
164 
180 


189 


180 
ら 06 
どら 18 


ら 35 


どら 36 
どら 5 ら 
ら 6g 
ら 74 





カス タム Web ブラ ウザ の 作成 


] 時 限 目 Lesson 6O イン ター ネッ ト エ クス プロ ー ラ を 操作 する 
ら 時 限 目 Lesson 23 Internet Explorer Control Pad の 作成 
3 時 限 目 Lesson ら 64 カス タム Web ブラ ウザ の 作成 


第 日 


Win32API を 使う 


1 時 限 目 Lesson 25 API の 機能 と 特徴 
ら 時 限 目 Lesson 266 API ビュ ー ア を 使う 
3 時 限 目 Lesson 67 メモ リ チ ェ ッ カ ー の 作成 


API を 使っ た アプ リケーション の 作成 


1 時 限 目 Lesson 5B8 バー ジョ ン 情 報 表 示 プ ログ ラム 
ら 時 限 目 Lesson 29 壁紙 チェ ンジ ャ ー の 作成 

3 時 限 目 Lesson 30 自動 壁紙 チェ ンジ ャ ー の 作成 
4 時限 目 Lesson 31 ディ スク の 空き 容量 を 把握 する 


LE) Excel を Visual Basic で 操作 する 


1 時 限 目 Lesson 32 Excel 操作 の 基本 知識 

ら 時 限 目 Lesson 33 ファ イル か ら オ ブ ジ ェクト を 作成 する 
3 時 限 目 Lesson 34 ワー クシ ー ト 関数 を 使う 

4 時 限 目 Lesson 35 為替 換算 プロ グラ ム の 作成 

5 時 限 目 Lesson 36 フォ ト ア ル バ ム の 作成 


ら 91 


ど 9 ど 
304 
31 ら 


うら フ 


3 ら 8 
3936 
35 ら 


363 


364 
376 
3980 
400 


415 


416 
43 ら 
440 
45 ら 
460 





各種 リフ ァ レ ンス 放 


Visual Basic で AcceSS2000 の デー タベース ファ イル を 操作 する 方 法 に つい て 480 


SystemParametersInfo に つい て 4g0 
Visual Basic で 使用 で きる ワー クシ ー ト 関数 一 覧 494 
練習 問題 の 解答 4g6 


介 還 ms 540 


CD-ROM を ご 使用 の 前 に 


CD-ROM を 使用 する 際 の ご 注意 等 で す 。CD-ROM 中 の テキ スト ファ イル 
「readme.txt] も あわ せ て お 読み くだ さい 。 


念 CD-ROM に つい て 

巻末 に 付属 の CD-ROM に は 本 書 「10 日 で お ぼ え る Visual Basic 6.0 実践 教室 | の 本 
文中 で 解説 し た 各 レ ッ ス ン の 完成 版 や レッ スン に 必要 な ファ イル (アイ コン や 画像 ) が 入 
っ て いま す 。 ハ ー ド ディ スネ スク に フォ ル ダ ご と コピ ー じ で お 使い ぐだ さい 。 ラフ アイル を コピ 
ー す る 方 法 が わか ら な いと き は Windows の オン ライ ン ヘ ルプ か ら 「 フ ァイル や フォ ル ダ 
を コピ ー す る に は 」 を ご 覧 くだ さい 。 











※ レ ッ ス ン で 使用 する プロ ジェ クト ファ イル (また は HTML ファ イル ) で 、 外 部 ファ イル と リン ク 
し て いる も の は リン ク の 参照 情報 (フル パス 名 ) が 無効 に な っ て いる 場合 が あり ます 。 そ の 際 は 、 
必要 な ファ イル を ハー ド デ ィ スク に コピ ー し た 後 、 本 書 の 手順 に 従い 自分 の 環境 に 合う よう に 再 
度 プ ロジ ェクト ファ イル 等 を 作り 直し て くだ さい 。 


























人 @ 免 責 事項 に つい て 
CD-ROM に 収録 され た ファ イル は 通常 の 運用 に お いて は 何ら 問題 な いこ と を 編集 部 で は 
認 し て いま す が 、 万 一 運用 の 結果 、 い か な る 損害 が 発生 し た と し て も 著者 お よび (株 ) 
翔 泳社 は いか な る 責任 も 負い ませ ん 。 ま た 、 収 録 フ ァイル に 関す る テク ニカ ル サ ポ ー ト を 
行う 義務 も あり ませ ん 。 す べ て 自己 責任 に お いて ご 使用 くだ さい 。 


@ CD-ROM の 使用 環境 条件 
レッ スン を 進め る に は Microsoft Visual Basic 6.0 Professional Edition が 必要 で 
す 。 また 「Learning Edition] で 


は 特殊 な コン トロ ー ル を 使う 一 部 の レッ スン が 動作 し ませ ん の で 、 動 作 保証 は あり ませ ん 。 


@ CD-ROM の テス ト 環 境 に つい て 
CD-ROM は 以下 の 環境 で 正常 に 動作 する こと を 確認 し まし た 。 
・ Microsoft Visual Basic 6.0 (SP3) Professional Edition 
・ Windows 85/98/Windows NT Workstation 4.0 
・Hewlett-Packard Vectra VEi8 
・ Pentium 450 MHz 


人 @ 著 作 権 等 に つい て 

本 書 に 収録 し た プロ グラ ム お よび ソー スコ ー ド の 著作 権 は 、 著 者 お よび (株 ) 翔 泳社 が 
所 有 し ます 。 た だ し 読者 が 個人 的 に 利用 する 場合 に 関し こ は ソ ー ス コー ド や フォ ー ム 、 コ 
ント ロー ル の 流用 や 改変 は 自由 で す 。 商 用 利用 に 関し て は 、( 株 ) 翔 泳社 へ 電子 メー ル 
(mail-web@shoeisha.co.jp) な ど で ご 一 報 く だ さい 。 





(株 ) 翔 泳社 編集 部 









更 1 日 5 as の 
か ん た ん 表 計 人 算 
ソフ ト の 作成 





Visual Basic 6.0 に 標準 で 添付 され て いる ActiveX コン トロ ー ル の 1 つ に 、「 フ 

レキ シブ ル グ リ ッ ド コン トロ ー ル 」 が あり ます 。 こ の コン トロ ー ル は 、Excel の よ 

うな セル を 持っ た コン トロ ー ル で 、 表 計算 機能 を プロ グラ ム に 追加 し た いと き な ど 

に 使用 する と 便利 で す 。 この コン トロ ー ル は 、 セル へ の デー タ の 入出 力 や 範囲 選択 、 

セル の 塗り つぶ し や フォ ント 設定 な ど を 行う こと が で きま す 。 

第 1 日 の レッ スン で は 、 こ の フレ キシ ブル グリ ッ ド コン トロ ー ル を 使っ て 、 簡 単 

な 表 計 算 機 能 を 持っ た プロ グラ ム を 作成 し ます 。 

今日 の レッ スン で 解説 する 項目 

ロロ プロ ジェ クト へ の フレ キシ ブル グリ ッ ド コン トロ ー ル の 追加 

ロフ レキ シブ ル グ リ ッ ド コン トロ ー ル の 固定 セル の 設定 や セル 数 の 設定 な ど 、 各 
プロ パテ ィ の 設 

[ショ ー ト カッ トメ ニュ ー の 組み 込み 

ロロ グラ フィ ッ ク 付 き コ マン ド ボ タ ン の 作成 

日 文字 列 か ら 整数 へ の デー タ 型 変換 関数 

口 選択 し た セル 番地 の 把握 

ロラ ンダ ム ア ク セス モー ド に 関す る 知識 

ロロ コモ ンダ イア ログ ボッ クス の 操作 

デー タ の ファ イル へ の 書き 出し 操作 

ロロ ファ イル か ら デ ー タ を 読み 出す 方 法 

ロロ エラ ー 処 理 の 設 

















上 前 
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ョ ペコ Lesson01 





ユー ザー イン ター フェ イス の 作成 


Visual Basic の プロ ジェ クト に 、 フ レキ シブ ル グ リ ッ ド コン トロ ー ル 
を 追加 する 方 法 を 学習 し ます 。 ま た 、 フ レキ シブ ル グ リ ッ ド コン トロ ー 
ル の 固定 セル の 設定 や セル 数 の 設定 な ど 、 各 プロ パテ ィ の 設定 方 法 を 覚 
えま す 。 


今回 作成 する プロ グラ ム 


値 を 入力 し .… 


L-I ロ sl 
「 289n| 本 すそ jput ] w 本 リッ ク 


















88900H 23 ロ nn 3120nn 12890H 





カレ ント セル に 
値 が 入力 され る 


カレ ント セル が 
グレ ー 表 示さ れる 


と ン 








最初 に 、 プ ログ ラム の 外観 を 作成 し ます 。 フ レキ シブ ル グ リ ッ ド 
コン トロ ー ル は 、 セ ル の 行列 数 な どの 初期 設定 を 、 デ ザイ ン 時 に プ 
ロ パ ティ ウィ ンド ウ で 行う こと が で きま す 。 

この プロ グラ ム は 、 フ ォ ー ム に 6 列 x 10 行 の セル を 持つ フレ キ 
シブ ル グ リ ッ ド コン トロール を 作成 し ます 。 そ し て 、 テ キス ト ボ ッ 
クス コン トロール を 使っ て セル に 値 を 入力 する よう に し ます 。 








Lesson 1 


- 介 コン トロ ー ル と プロ パテ ィ の 設定 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 ま た 、 付 
録 CD-ROM に 収録 され て いる 「Materiall フォ ル ダ を 、 自 分 の コ 
ンピュータ の ハー ド デ ィ スク に コピ ー し て くだ さい 。 


ツー ル パ バレ ッ ト を マウ ス の 右 ボ タン で クリ ッ ク し 、 
メニ ュー か ら [コンポ ボー ネン ト ] を 選ぶ 










ョ ロコ 
3 碧 
a 半 





( 宮 ポ ク (UKy ク 


5 の 追加 (@) 
ンド 系 が 可 代 ⑲ 
非 表示 中) 






ロロ 


[Microsoft FlexGrid Control 6.0] の チェ ッ ク ボ 
ックス を オン に し 


[OK] ボタ ン を クリ ッ ク す る 






ヤー ル | デ 9 | 挿入 可能 な わ ツ カト | 


Microsoft DataRepeater Control 6D (OLEDB) 
Microsoft DirectAnimation Media Contro 
Microsoft DTC Framework 















Microsoft Forms 2 Object Library 
Microsoft Grid Control 
Microsoft Hierarchical FlexGrid Control 60 (OLEDB) 








Microsoft HTML Object Library 
Microsoft jnternet Controls 
Microsoft jnternet Transfer Control 60 


ここ を クリ ッ ク 


ツー ル パ レ ッ ト に フレ 
キシ ブル グリ ッ ド コン 
トロ ー ル が 追加 され る 
MSFlexGrid 


第 1 日 











ユー ザー イン ター フェ イス の 作成 


回 尺 斑 多 ト ジア 
ぐ ぽ イル の 作成 


新しい プロ ジェ クト ファ 
イル を 作成 する に は 、 
Visual Basic 6.0 を 起動 し 、 
[新しい プロ ジェ クト ] ダ 
イア ログ ボッ クス で 【[ 標 
準 EXE] を ダ プ ルク リッ 
グ ク < まお 。 


Visual Basic 6.0 の 基本 操 
作 の 詳細 に つい て は 、 弊 
社 刊 10 日 で お ぼ ほえ る 
Visual Basic 60 入 門 教 室 
を 参照 し て くだ さい 。 


デ コン ポー ネン ト 


コン ボー ネン ト と は 、 プ 
ログ ラム の コー ド を 使っ 
て 、 プ ログ ラマ ー が 一 貫 
し た 方 法 で 利用 で きる プ 
ログ ラム 用 「 部 品 ] の 総 
称 で す 。 


フレ キシ プ ブルグ リッド コ 
ント ロー ル や コモ ンダ イ 
アロ グ コ ント ロー ル は 、 
「 コ ント ロー ル 」 と いう 外 
部 ファ イル と し て 用 意 き 
れ て いる コン ポー ネン ト 
の ひと つの 種類 で す 。 


1 時 限 目 か ん た ん 表 計 算 ソ フト の 作成 





フー ム を 広げ る 
フォ ー ム を 広げ る に は 、 
フォ ー ム の 周囲 に 表示 さき 
れ て いる サイ ズ 変 更 ハン 
ドル (黒い 四角 形 ) を 外 
方 向 に ドラ ッ グ し ます 





プロ パテ ィ へ の 文 
の 入 力 


プロ パテ ィ の 名 前 の 本 
(ここ で は [Caption]) を 
ダ プ ルク リッ ク す る と 、 
その 右側 の 文字 を 入力 す 
る 柚 が 選択 され ます 





フォ ー ム を 広げ 、[Caption] プロ パテ ィ を 「 簡 単 表 
計算 ソフ ト 」 に 変更 する 








Form1 Form 


全体 | 項目 別 | 








1- 3D 
False 
目 &H80n00F& 


2 と 本 yo 
簡単 表 計 生 リ フト | 


に 5 yo と 入力 
True 
13 - Copy Pen 


0- 実線 (中 心 線 ) 
1 


ツー ル パ レ ッ ト の [TextBox] !S5I を 使っ て 、 テ キ 
スト ボッ クス コン トロ ー ル を 配置 する 

EE お 1 5 x 
際 に 衝 め に ドラ ッ グ 
し て 配置 





ex TextBox ェ ] 


全体 | 項目 別 | 


0- 手 動 
0- お し 


False 
0- お し 
0 
True 


12n 


True 


Del キー を 押し て 
削除 








Lesson 1 ユー ザー イン ター フェ イス の 作成 


ツー ル パ レ ッ ト の CommandButton] を 使っ 
て 、 コ マン ド ボ タ ン を ら つ 配置 する 





[Command1] ボタ ン の [Caption] プロ パテ ィ を 
「Input」 に 変更 する 


ICommanq1 CommandButton ] 
全体 | 項目 | 

ツェ 外 名 ) Command1 
ppearance 1 - 3D 

四 SH800000QF& 
False 
jnput 
CausesValidation True 
Default False 
DisabledPicture (なし) 
DownPicture ぬい し) 
Draglcon (なし) 




















「Input」 を 入力 


[Command2] ボタ ン の [Caption] プロ パテ ィ の 
文字 を 削除 する 







Command2 CommandButton I 
全体 | 項目 中 | 
フツ ェ 外 名 ) Command2 


| 皮 Ppearance 1 - 3D 
四 HB80n0000F& 









Del キー を 押し て 
削除 








CausesValidation True 
Default False 
DisabledPicture (な し ) 
DownPicture (な し ) 
Draglcon ぬ し ) 








操作 の 対象 を 選択 
さる 
手順 7 を 行う 前 に 、 フ ォ ー 
ム 上 に ある [Command1] 
ボタ ン を クリ ッ ク し て 選 
択 し て くだ さい 


操作 の 対象 を 選択 
< さる 


手順 8 を 行う 前 に 、 フ ォ ー 
ム 上 に ある [Command2] 
ボタ ン を クリ ッ ク し て 選 
択 し て くだ さい 。 


第 1 日 1 時 限 目 か ん た ん 表 計 算 ソ フト の 作成 





/ [ポタ ン 


[.…] ボタ ン は 、 そ の プロ 
パテ ィ の 詳細 な 指定 を 行 
う ダ イア ログ ボッ クス が 
用 意 き れ て いる こと を 示 
し て いま す 。 


「Check.ico」 
ファ ィ イル 


[Check.ico] ファ イル は 、 
付録 CD-ROM から コピ ー 
し た 「Materiall フォ ル ダ 
に 保存 きれ て いま す 。[ フ 
ァイル の 場所 ] ボッ クス 
で 、「Materiall フォ ル ダ 
を 選択 し て くだ さい 。 


選択 肢 の 一 覧 を 
ン 表示 する 


[Style] プロ パテ ィ の 右側 
の 欄 の 右端 に ある 下向き 
三角 を クリ ッ ク す る と 、 
選択 肢 の 一 覧 が 表示 され 
ます 


くぎ [Style] プロ パテ ィ 


この プロ パテ ィ を [1- グ ラ 
フィ ックス ] に 設定 し て 

お く と コマ ンド ボタ ン に 
指定 し た アイ コン 画像 を 
表示 で きる よう に な り ま 
す 。 ア イコ ン 付 き ボ タン 
を 作る と き 設 定 し ます 。 


6 








[Command2] ボタ ン の [Picture] プロ パテ ィ を 
クリ ッ ク し 、[.……] ボタ ン を クリ ッ ク す る 


け プロパ ティ - Command2 





な し) 
0 - 既定 値 





』《) [ピク チャ の 読み 込み ] ダイ アロ グ ボ ックス で 


「Check.ico」 を 選び 、[ 開 く ] を クリ ッ ク す る 


[Check.ico] 
を クリ ッ ク 







画 0c k 3eico 主 Documntico si | 


Button13ico 回 Dsk 3uco Driveico 国 中 
肖 
ァ fie Petco ー、…ー っ 、 、 Ko 2 | に に を クリ ッ ク | 
2 の 種類 ① | は < べ て Ot う 77 も 。 。  。 、 、 、 眉 笠 ZE | 
へ ルプ (⑪ 





1 敵 | [Style] プロ パテ ィ を [1 一 グラ フィ ックス ] 
に 変更 する 







DTEm 
Command2 CommandButton sl クン 
全体 | 項目 別 | ックス ] を 選択 


Mouselcon (な し ) 
MousePainter 







リン ニレ が が) 
表示 され る 





UsekMaskColor False 





Lesson 1 ユー ザー イン ター フェ イス の 作成 


1 フ ツー ル パ レ ッ ト の [MSFlexGrid] 闇 | を 使っ て 、 キシ カル 20 
フレ キシ ブル グリ ッ ド コン トロ ー ル を 配置 する 


必 沢 富 j2 諾 回 主導 
フレ キシ プル グリ ッ ド コ 


PE | ント ロー ル は 、 行列 に 複 
es ドー で 数 の セル を 持つ コン トロ 
ー ル で す 。 











Te id1 MSFlexGrid ェ 


全体 | 項目 別 | 






| 較 HB0OOOOODS < 
BorderStyle 1 - flgxBorderSingle 
| True 
6 





お し ) 

0 - vbManual 
True 

1 - flexFiIISingle 


PMID 本 ISYEYTI 
MSFlexGrid1 MSFlexGrid 
| 全体 | 項目 | 


Right TaLeft 
RowHeightMin 



















0 
1 
3 - flexScrallBarBo- 
False 

I - flexSelectionFre 
3 

True 
















n- fsxTaxtElat 訓 


第 1 日 1 時 限 目 か ん た ん 表 計 算 ソ フト の 作成 


[ScrollBars] 
ロリ ティ 


[ScrollBars] プロ パテ ィ 
は フレ キシ ブル グリ ッ ド 
コン トロ ー 江 に スク ロ 二 
ル バ ー を 設定 する プロ パ 
チ メ で 

[ScrollBars] プロ パテ ィ 
の 右側 の 欄 の 右端 に ある 
下向き 三角 を クリ ッ ク す 
る と 、 選 択 肢 の 一 覧 が 表 
示さ れ ま す 。 


[RowHeight 
in] フロ パテ ィ 


[RowHeightMin] プロ パ 
ティ で は 、 行 全体 の 高き 
を 「Twip」 単位 で 設定 し 
ます 。 


更 TWip 


Visual Basic で の 画面 上 の 
長き を 「Twip」 と いう 単 
位 で 指定 し ます 。 1 論理 
cm は 約 567twip、1 論理 イ 
ンチ は 約 1.440twip に な り 
ま 沙 。 


「1 論 理 cm] と は 、 印 刷 し 
た と き の 長 さき が 1cm に な 
る と いう : こ と で す 。 











』$ [ScrollIBars] プロ パテ ィ を [3ー-flexScroll 
BarBoth] に 設定 する 







リバ ティー MSFlexGrid1 ン ン Sex 回 
MSFlexGrid1 MSFlexGrid 引 
全体 | 項目 別 | 





0 - flexScrollBarNone 
1 - flexScrollBarHorizontal 
ー flexScrollBarVertical 


[3 - flexScroll 








UK は wiPoin | BarBoth] を 選択 
0 - flexTextFlat | 


1 [RowHeightMin] プロ パテ ィ を 「320」 に 設 
定 する 


プロ パテ ィ ー xGrid1 





MSFlexGrid1 MSFlexGrid < 
全体 | 項目 | 









0 - flexDefault 

1 - flexOLEDropNone 
1 - flexPictureColor 
True 


False 
30| ーーー 一 質 ーーー 還 [320」 と 入力 
10 
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昌 Form1: Command1-Click 


| 001 ロー ト ) 


Icemmand 引 Iick 。  、 選 


. P エ ミュ ミ ゞ ate Sub Command1 ーー 

| MSF1exxG ェ 1d1 . mxc = TexxE1."mex も 
| mexkt1 .mexxt = "rm 

Sub 














目 Form1: Command2- Click 





1 駐 Lssson16 三 Bee が 





Icemmand2 。 。 選 IClck 。 。 。、 、 。/、 呈 


| P エ ュ ゞ ate Sub Command2 C1iok( ) | 

| Un1oad Form1 | 

| End 

| End Sub | 
| 


Form: Form- Load 





| Private Sub Form Load( ) 
Dim 1 As Tnteger | 
1 


For エ = 1 mo4 
With MSF1exxG ェ 1d1 
・Co1 = ュ 
・Row = 0 
<-mexE = Chr(64 + 1) 
End With 
Nex セ 


With MSF1exxG ェ 1d1 
<Co1l = 5 
・Row = 0 
-mexxt = "合計 " 
End With 





ぎ O ミエ = 1 Po 9 
| With MSF1exxG ェ 1d1 
| 。Co1 = 0 
・ROow = 





第 1 日 1 時 限 目 か ん た ん 表 計 算 ソ フト の 作 





With MSF1exxG ェ 1d1 
| ・Co1 = 1 
・Row = 1 
・Ce11BackCo1or エ = OBCo1or(8) 
End With 
End Sub 


















MSFlexGrid1 


Private Sub MSF1exxGr1d1 C1iock( ) 
| MSF1exxG ェ 1d1 .Ce11BaojkCo1o ェ = OBCo1or(8) 


| エ F MSF1exxGr1d1 .TmexE <> "" mhen 

| mext1 .mexxE = MSF1LexxG ェ id1 . "Tex 
End TE 

| Texxt1 .Set 上 Focus 

| End Sub 





ョ Form1:MSFlexGrid1-LeaveCell 
















LeayeCell 


Private Sub MSF1exxGrid1 TeaveCe11 ( ) 
| MSF1exxG ェ 1d1 .Ce11BaokCo1or = 0 
| End Sub 






| 
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LessSon 1 ユー ザー イン ター フェ イス の 作 


フレ キシ ブル グリ ッ ド コン トロ ー ル は 、 行列 に 複数 の セル を 持つ コン トロ ー ル で 
す 。 グ レー に 塗ら れ た セ モル が 「 固 定 セ ル | と 呼ば れる セル で 、 行 列 の 見 出し な ど に 
使わ れる セル で す 。 フ ォ ー ム デザ イン 時 は 選択 し た り 値 を 代入 する な どの 操作 は で 
きま せん 。 

白く 表示 され て いる モル が 、 実 際 の 値 を 表示 する セル で 、 フ ォ ー ム に 配置 し た 時 
点 で は 1 つ し か 配置 され て いま せん 。 








フォ ー ム 配置 時 は 
行列 ら 列 


行列 数 を 設定 する の が 、[Cols] と [Rows] プロ パテ ィ で す 。 こ れ ら は 、 固 定 セ 
ル を 含め た 総 行 列 数 を 設定 し ます 。 こ の プロ グラ ム で は 10 行 6 列 の 表 を 作成 し て い 
ま : あ 8 

回 定 セ ル は 、 行列 と も に 1 つ ず つ 設 定 さ きれ て いま す が 、[FixedCols] と 
[FixedRows] プロ パテ ィ を 使用 すれ ば 、 複 数 の 固定 セル を 設定 で きま す 。 


複数 の 固定 セル を 
設定 
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[ScrollBars] プロ パテ ィ は 、 フ レキ シブ ル グ リ ッ ド コン トロ ー ル に スク ロー ル バ 
ー を 設定 する か どう か を 指定 する プロ パテ ィ で す 。 こ の プロ パテ ィ を 設定 し て お け 
ば 、 フ レキ シブ ル グ リ ッ ド コン トロ ー ル の サイ ズ が 、 設 定 し た 行列 数 より も 小さ い 
場合 (つま り 、 す べ て の セル が 表示 し きれ な い 場 合 ) に 、 自 動 的 に スク ロー ル バ ー 
が 表示 され ます 。 

[RowHeightMin] プロ パテ ィ は 、 行 全体 の 高き を 「Twip」 単位 で 設定 し ます 。 
また 、[RowHeight]l プロ パテ ィ を 使う と 、 指 定 し た 行 だ け 高 さき を 変更 で きま す 。 
列 の 幅 を 変更 する に は 、[ColWidth] プロ パテ ィ に 幅 を Twip 単位 で 指定 し ます 。 た 
だ し 、 こ の プロ パテ ィ は 一 列 単位 で 設定 し ます 。 

[AllowUserResizing] プロ パテ ィ を 使用 する と 、 プ ログ ラム 実行 時 に ユー ザー が 
セル の 幅 や 高 さ を 自 由 に 変更 で きる よう に な り ま す 。 


ユー ザー が セル の 幅 や 
高 さ を 変更 で きる よう 


に な る 





また 、Font 関 係 の プロ パテ ィ を 操作 する と 、 セ モル に 表示 され る デー タ の フォ ント 
属性 を 設定 で きま す 。 こ れ ら の 、 フ レキ シ プ ブルグ リッ ドコ ント ロー ル の 初期 設定 は 、 
プロ パテ ィ ペ ー ジ を 使っ て 設定 する と 便利 で す 。 プ ロ パ ティ ウィ ンド ウ に ある [( プ 
ロ パ ティ ペー ジ )] を 選び 、[.…] ボタ ン を クリ ッ ク す る と 、 フ レキ シブ ル グ リ ッ ド 
コン トロ ー ル の [プロ パテ ィ ペ ー ジ ] ダイ アロ グ ボ ックス が 表示 され 、 初 期 値 を 一 
括 し て 設定 する こと が で きま す 。 


プロ パテ ィ ウ ィ ン ド ウ の 


[( プ ロ パ ティ ペー ジ )] 
を な クリ ッ グ し 、 上 を 
allowUserResizing  - flexResizeNane クリ ッ ク 
1 - flex3D 





Lesson 1 ユー ザー イン ター フェ イス の 作成 











| 全般 | 2 人 1222 ト | 台 1 
行 @ 財 固定 行 @ 

列 ⑥ 固定 列 ①⑪ 

行 また は 列 全 体 の 選択 G) "レレ マス ポタ PD ID-Delsuh 引 
2 名 - ル パー Boh | 装 定 対 梨 6 hn-sSrec 選 


| [プロ パテ ィ ペ ー ジ ] 
| 
紀 示 ⑪ ny | 居 RERO R-Fco 当 


ダイ アロ グ ボ ックス 


7977IKM@ |[-Leht 昼 飲 誠 更 ⑩p-horc 選 





人 コマ ンド ボタ ンコ ント ロー ル は 、[Style] プロ パテ ィ を [グラ フィ ックス ] に 設 
定 し 、[Picture] プロ パテ ィ に アイ コン や ビッ トマ ッ プ を 割り 当て る と 、 グ ラフ ィ 
カル な コマ ンド ボタ ン を 作成 で きま す 。 ま た 、[Caption] プロ パテ ィ に 文字 を 設定 
すれ ば 、 文 字 と グラ フィ ッ ク を 持っ た コマ ンド ボタ ン を 作成 で きま す 。 


回 回 


グラ フィ ッ ク の 付い た グラ フィ ッ ク と 文字 の 
コマ ンド ボタ ン 付い た コマ ンド ボタ ン 


6⑬ で は 、 コ ー ド の 説明 を 行い ます 。 こ の プロ グラ ム は 、 セ ル を クリ ッ ク し て 、 テ キ 
スト ボッ クス コン トロ ー ル に 数 値 を 入力 し 、[Input] ボタ ン を クリ ッ ク す る と フレ 
キシ ブル グリ ッ ド コン トロ ー ル の セル に その 値 を 代入 し ます 。 

フレ キシ プ ブルグ リッ ドコ ント ロー ル は 、 実 行 時 に 値 を 直接 セル に 入力 する こと が 
で きま せん 。 し た が っ て 、 他 の 入力 用 イン ター フェ イス を 用 意 し 、 そ こ か ら コ ー ド 
で 値 を セル に 転送 する 必要 が あり ます 。 こ の プロ グラ ム で は 、 テ キス ト ボ ックス コ 
ント ロー ル を 入力 用 イン ター フェ イス に し て いま す 。 








セル を クリ ッ ク 

| 2345 ーー5s ] 共 | | 値 を 入力 
REEF | ここ を クリ ッ ク 
595 値 が 入力 され る 


っ | の |gl=lelSIー 
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最初 に 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 、 フ レキ シブ ル グ リ ッ ド コン ト 
ロー ル の 初期 設定 を 行い ます 。 

まず 、For..Next ルー プ を 使っ て 、 列 方 向 の 固定 モル に 項目 名 を 入力 し ます 。 回 
定 セ ル へ の 入力 は 、 プ ログ ラム デザ イン 時 に プロ パテ ィ ウ ィ ン ド ウ で 行う こと が で 
き な い の で 、 コ ー ド で 行い ます 。 

セル へ の 値 の 代入 は 、 ま ず 入 力 す る セル 番地 を 指定 し て カレ ント セル に し ます 。 
そし て 、[Text] プロ パテ ィ に 文字 を 代入 し ます 。 カ レン ト セ モル の 指定 は 、 フ レキ 
シブ ル グ リ ッ ド コン トロ ー ル を オブジェ クト に 指定 し 、[Col] と [Row] プロ パテ 
ィ に 数 字 を 設定 し ます (セル 番地 は 、 固 定 セ モル の 左上 が 「0.0] に な り ま す )。 

だ を えば 、 


MSF1exxGr1d1 .Co1 = 1 
MSF1exG ェ id1.Row = 0 
MSF1exG ェ 1d1 . mext = "ABCP 


と いう コー ド を 実行 する と 、 固 定 セ モル の 左 か ら 2 番目 に 「ABC」 と いう 文字 が 入力 
され ます 。 





「ABC」 と 入力 され る 


これ を 応用 し て 、For..Next ル ー プ を 使っ て 固定 セル の 列 方 向 に 、 自 動 的 に 「A] 
「B] 「C」 と 英字 を 振っ て いき ます 。 文字 を 自動 和信 力 す る に は 、 い ちい ち 文 字 を 指定 
する より も Chr0 関 数 を 使用 し ます 。 

この 関数 は 、ASCII 文字 セッ ト を コー ド 番 号 で 指定 する と 、 文 字 に 変換 し て 返し 
て きま す 。 た と えば 、「Str=Chr(65)」 と 実行 する と 、 変 数 「Str」 に は 文字 「Al が 
格納 され ます 。 こ の 関数 を 使っ て 、 文 字 コ ー ド に ルー プ の カウ ンタ 用 変数 ⑪) を 加 
えて 、 固 定 モ セル の 1 列 目 に 「Al、2 列 目 に 「B]、3 列 目 に 「C」 と 順番 に 英字 を 入力 
し て いき ます 。 
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P ェ ivate Sub Form road( ) 
Dim 1 As Tnteger 


For ュ = 1 mo 4 
With MSF1exxG エ 1d1 
・Col = ュ 
・Row = 0 
・TmexE = Chr(64 + ュ ) 
End With 
TNNex モ 


セル の 一 番 右 端 の 列 は 、 合 計 を 入力 する 欄 に する の で 、 固 定 セ ル に は 「 合 計 」 の 
文字 列 を 入力 し ます 。 こ れ は 、 直 接 こ の セル を カレ ント セル に 指定 し 、[Text] プ 
ロ パ ティ に 文字 列 を 代入 し ます 。 


With MSF1exxG ェ 1d1 
<・Co1 = 5 
・Row = 0 
-mext = "合計 " 
End With 


また 、 列 見 出し と 同じ 方 法 で 、 固 定 行 に 見 出し を 付け ます 。 今度 は 数 字 な の で 、 
[Row] プロ パテ ィ と [Text] プロ パテ ィ に ルー プ の カウ ンタ 用 変数 を 割り 当て 、 
上 か ら 順 番 に 1 行 目 に 「1」、2 行 目 に 「2] … と 番号 を 付け て いき ます 。 


For ミュ =1 "mo9 
With MSF1exxG ェ 1d1 
<Co1 = 0 
・Row = ュ エ 
<・Tmex も t = ュ エ 
End With 


固定 セル に 割り 当て られ た 
行列 の 見 出し 





第 1 日 1 時 限 目 か ん た ん 表 計 算 ソ フト の 作 





ひ 
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最後 に 、 セ ル の 背景 色 を 灰色 に 塗り つぶ し ます 。 こ れ は 、 現 在 ど の セル が カレ ン 
ト セ ル な の か が わか る よう に 、 セ ル の 背景 色 を 塗り つぶ すこ と で 識別 し ます 。 
最初 に 、[Col] と [Row] プロ パテ ィ に 1 を 代入 し て 、 デ ー タ 入力 可能 な セル の 
も っ と も 左上 の セル を カレ ント セル に し ます 。 

次 に 、 そ の セル の 背景 を 塗り つぶ し ます 。 セル の 背景 色 の 塗り つぶ し に は 、 
[CellBackColor] プロ パテ ィ を 使用 し ます 。 プ ロ パ ティ の 値 に は 色 の 番号 を 設定 し 
ます が 、 こ れ ら は QBColor 関数 また は RGB 関 数 を 使用 し て 、 そ の 戻り 値 を プロ パテ 
ィ に 設定 し ます 。 こ の プロ グラ ム で は 、QBColor 関数 を 使用 し まし た 。 


With MSF1exxG ェ 1d1 

Co1 = 1 

・Row = 1 ユ 

・Ce11BackCo1or = OBCo1or (8) 
End With 


カレ ント セル の 背景 が 
塗り つぶ され る 





フォ ー ム 起動 時 の 処理 が 終わ っ た ら 、 今 度 は [Input] ボタ ン の 処理 を 行い ます 。 
テキ スト ボッ クス コン トロ ー ル に 入力 され た 文字 を セル に 代入 し ます 。 

これ は 、 テ キス ト ボ ックス コン トロ ー ル の [Text] プロ パテ ィ の 値 を 、 そ の まま 
フレ キシ ブル グリ ッ ド コン トロ ー ル の [Text] プロ パテ ィ に 代入 する だ け で す 。 代 
入 し た ら 、 次 の 入力 に 備え て テキ スト ボッ クス コン トロ ー ル の [Text] プロ パテ ィ 
の 値 を 空 に し て お きま す 。 


Erivate Sub Command1 C1ick( ) 
MSF1exxG ェ 1qd1 . Tex = "Tex 上 1 .Tmex セ 上 
Text1 Tex 二 = "m 

End Sub 


Lesson 1 ユー ザー イン ター フェ イス の 作 


フレ キシ ブル グリ ッ ド コン トロ ー ル の [Text] プロ パテ ィ に 文字 が 代入 され る 
と 、 現 在 カ レン ト に な っ て いる セル に その 値 が 表示 され ます 。 で すか ら 、 好 き な 
セル を クリ ッ ク し て カレ ント セル に し て か ら [Input] ボタ ン を クリ ッ ク す れ ば 、 
その セル に 値 が 表示 され ます 。 


セル を 指定 し 、 値 を 入力 
し て [Input] ボタ ン を 


クリ ッ ウ ずる ど .. 








その セル に 値 が 転送 され る 


時 うつ 今度 は 、 ユ ー ザ ー が セル を クリ ッ ク し た 場合 の 処理 を 作成 し ます 。 ユ ー ザ ー が 、 
現在 の セル か ら 他 の セル を クリ ッ ク す る と 、 フ レキ シブ ル グ リ ッ ド コン トロ ー ル 
に は 「Cliick」 イベ ント が 発生 し ます 。 
最初 に カレ ント セル の 背景 色 を 塗り つぶ し て いま すか ら 、 ユ ー ザ ー の クリ ッ ク 
に よっ て カレ ント セル が 移動 し た 場合 は 、 今 度 は その セル の 背景 を 塗り つぶ す よ 
う 作 し ます 。 
セル が クリ ッ ク さ れる と 、 自 動 的 に フレ キシ ブル グリ ッ ド コン トロ ー ル の Click 
イベ ント プロ シー ジャ が 呼び 出さ きれ ます か ら 、 こ の プロ シー ジャ を コー ドウ ィ ン 
ドウ の イベ ント リス ト ボ ックス を 使っ て 表示 し ます 。 
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イベ ント リス ト ボ ックス 
か ら Click を 選 応 








Cliick イ ベン ト で は 、 最 初 に クリ ッ ク さ れ た セル の 背景 色 を 塗り つぶ し ます 。 ク リ 
ッ ク さ れ た 時 点 で 、 こ の セル が カレ ント セル に な り ま すか ら 、 そ の まま 
[CellBackColor] プロ パテ ィ に 「 グ レー」 を 設定 し ます 。 


private Sub MSF1exG ェ 1d1 C1iok( ) 
MSF1exxGr1d1 .Ce11BackCo1o エ = OBCo1or (8) 


次 に 、f ス テー トメ ント を 使用 し て 、 ク リッ ク し た セル に 値 が 格納 され て いる か 
どう か を 判断 し ます 。 も し 値 が 格納 され て いれ ば 、 修 正 で きる よう に その 値 を テキ 
スト ボッ クス コン トロ ー ル に 転送 し ます 。 

値 が ある か どう か の 判断 に は 、「<>」 演算 子 を 用 いて 、 フ レキ シブ ル グ リ ッ ド コ 
ント ロー ル の [Text] プロ パテ ィ が 空 で な いこ と を 確認 し ます 。[Text] プロ パテ 
ィ が 空 で な けれ ば (つま り 、 値 が 格納 され て いれ ば )、 そ の 値 を テキ スト ボッ クス コ 
ント ロー ル に 表示 し ます 。 空 で あれ ば 、 何 も せ ず に その まま [Input] ボタ ン の 操作 
が 実行 され ます 。 


エ F MSF1exxGr1d1 .Tmext <> "m mhen 
mext1 .mexx = MSF1exG ェ 1d1 . Tex 
End TE 


そし て 、 次 の 入力 に 備え て 、 テ キス ト ボ ックス コン トロ ー ル に フォ ー カ ス を 移し 
て お きま す 。 


Tex 上 1 . Set 上 Foous 





セル に 値 が 格納 され て いれ ば 、 


テキ スト ボッ クス に 表示 する 
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本 科 今度 は 、 ク リッ ク さ れ た と き に 、 そ れ ま で カレ ント だ っ た セル の 処理 を 作成 し ま 
す 。 そ れ ま で カレ ント だ っ た セル は 、 他 の セル が クリ ッ ク さ れる と カレ ント セル で 
な く な り ま すか ら 、 セ モル の 背景 色 を 元 に 戻し て お く 必 要 が あり ます 。 

フレ キシ ブル グリ ッ ド コン トロ ー ル で は 、 カ レン ト セ ル が 他 の セル に 変更 され る 
直前 に 、「LeaveCelll イベ ント が 発生 し ます 。 こ の イベ ント プロ シー ジャ に 、 カ レ 
ント だ っ た モル の 背景 色 を 戻す 処理 を 作成 し ます 。 

コー ドウ ィ ン ド ウ の イベ ント リス ト ボ ックス か ら 、「LeaveCelll イベ ント を 選び 、 
この イベ ント プロ シー ジャ を 作成 し ます 。 そ し て 、[CellBackColor] プロ パテ ィ の 
値 を 「0] に 設定 し ます 。 プロ パテ ィ の 値 が 「0] に な る と 、 セ ル の 背景 色 は 既定 値 
に 設定 され ます 。 

これ で 、 前 述 の 「MSFlexGrid1_Click| プロ シー ジャ の 処理 と あわ せ 、 ユ ー ザ ー 
が セル を クリ ッ ク す る と セル の 背景 色 が 入れ 替わり 、 カ レン ト セ ル が 移動 し た こと 
が ユー ザー の 目 に も わか る よう に な り ま す 。 


Private Sub MSF1exG ェ id1 TeaveCe11 ( ) 
MSF1exxGr1d1 .Ce11BackCo1or = 0 
End Sub 


上 5 最後 に 、[ 糸 了 ] ボタ ン の 処理 を 作成 し ます 。 こ れ は 、 も うす っ か りお な じみ に な 
っ た 、 フ ォ ー ム の アン ロー ド と End ス テー トメ ント に よる プロ グラ ム の 終了 処理 を 
行い ます 。 


Private Sub Command2 C1ick( ) 
Un1oad Form1 
End 

End Sub 


本 0⑩ 以上 で 、 ブ ログ ラム の 基本 的 な 入力 処理 が 完成 で す 。 ブ ログ ラム を 実行 きせ 、 テ 
キス ト ボ ックス コン トロ ー ル に 数 値 や 文字 を 入力 し 、[Input] ボタ ン を クリ ッ ク す 
る と 、 カ レン ト セ ル に 値 が 転送 され ます 。 ま た 、 セ ル を クリ ッ ク す る と グレ ー に 沙 
りつ ぶさ れ 、 入 力 さ れる セ モル が よく わか る よう に な り ま す 。 


フレ キシ ブル グリ ッ ド に 用 意 さ れ た イベ ント は 「LeaveCell] 以外 に も た くさ ん あり 
ます 。 イ ベン ト を うま く 利 用 し て いく こと が プロ グラ ミン グ の コツ で す 。 





く フ レキ シブ ルコ ント ロー ル に 用 意 さ れ て いる イベ ント > 

Click, Compare, DDIClick, DragDrop, DropOver, EnterCel GotFocus, KeyDown, KeyPress, KeyUp, 
LeaveCell, LostFocus, MOuseDOwn, MouseMove, MouseUp, OLECompleteDrag, OLEDragDrop, 
OLEDragOver, OLEGiveFeedback, OLESetData, OLEStartDrag, RowColChange. Scrol SelChange 





第 1 日 1 時 限 目 か ん た ん 表 計 算 ソ フト の 作 


この レッ スン で は 、 フ レキ シブ ル グ リ ッ ド コン トロール の 初期 設定 を 行う 方 法 を 、 
各 プ ロ パ ティ の 機能 と あわ せ て 説明 し まし た 。 ま た 、 セ ル に デー タ を 入力 する た め の 


其 本 的 な 処理 を 説明 し まし た 。 フ レキ シブ ル グ リ ッ ド コン トロ ー ル は 、 豊 富 な プロ パ 
ティ を 持っ て お り 、 い ろ い ろ な 設定 が 行え る よう に な っ て いま す 。 

Excel の よう に 直接 セル に 値 を 入力 で きま せん の で 、 他 の コン トロ ー ル と 組み 合わ 
せ て デー タ の 入力 を 行う よう に する の が ポイ ント で す 。 





[CellIBackColor] プロ パテ ィ の 色 番 号 の 指定 に は 、 ら 通り の 方 法 が あり ます 。 


【QBColor 関数 の 場合 】 
Ce11BaocjfkCo1or = OBCo1or( 8 ) 


【RGB 関数 の 場合 】 
Ce11BaojkCo1or = RGB(255, 245, 112) 


QBColor 関数 は 、 あ ら か じ め 色 が 数 値 で 設定 され て いる の で 、 数 値 と 色 が すぐ に わ 
か り ま す 。 た だ し 、16 色 ま で し か 指定 で きま せん 。 

一 方 、RGB 関数 は 、 光 の 3 原色 で ある 「Red」 「Green」 「Blue] の 3 つの 色 を 表 
す 数 値 を 「0 255」 の 範囲 で 指定 し て 、 色 番号 を 導き 出し ます 。 こ の 関数 を 使う と 
RGB の 組み 合わ せ で 1670 万 色 中 の 1 色 を 選べ ます か ら 、 好 き な 色 を 使う こと が で 
きま す 。 


く QBColor 関数 に セッ ト す る 色 番 号 > 
番号 | に 」 


















に ! 
灰色 
明る い シ アン 
明る い 赤 
13 明る い マ ゼン タ 
黄 14 明る い 黄 


ト 委 15 。 | 衣 So 、  560〔mj 

























Lesson 1 


ひ 


くだ さい 。 


演算 子 の 種類 と 優先 順位 


ユー ザー イン ター フェ イス の 作 


作成 し た 「Lesson 1 .vDp]」 の フレ キシ ブル グリ ッ ド コン トロ ー ル の セ 
ル の 幅 と 高 さ が 、 ユ ー ザ ー に よっ て 自由 に 調節 、 変 更 で きる よう に し て 


解答 は 巻末 に 一 


Visual Basic で 用 いら れる 演算 子 に は 「 算 術 演 算 子 ]、「 比 較 演 算 子 ]、「 論 理 演算 子 」 の 3 種類 
が あり ます 。P.18 の 「13」 で 説明 し て いる 「<>」 演算 子 は 、 比 較 演 算 子 と 呼ば れる も の で す 。 


算術 演算 子 
指数 演算 (^) 
マイ ナス 符号 (-) 
乗 算 と 除算 (*、/) 
整数 除算 (\) 
剰余 演算 (Mod) 
加算 と 減算 (+、-) 


文字 列 連結 ( く ) 


比較 演算 子 


XOr 
Eqv 


IAmd 
さ lor | 
| より 大 きい C) |Xor | 
うつ law | 
ー) 


ue | | 


式 の 中 で 複数 の 演算 が 行わ れる と き は 、「 算 術 演算 子 」 一 「 比 較 演 算 子 」 一 「 論 理 演算 子 」 の 
順番 に 行わ れ て いき ます 。 ま た 算術 演算 子 の 中 で は この 表 の 上 か ら 下 の 順番 に 評価 され て いき 
ます 。 例 えば 文字 列 連結 演算 子 「&」 は 比較 演算 子 よ り 前 に 評価 され ます が 、 人 算術 演算 子 の 中 で 


は 一 番 最 後に 評価 され ます 。 





第 1 日 





1 時限 目 か ん た ん 表 計 算 ソ フト の 作 

















川 合計 計算 処理 の 作成 




















HHHHRH 
還 箇 時 作成 し た プロ グラ ム に 、 セ ル の 数 値 を 合計 する 処理 を 組み 込み ます 。 複 
数 の セル を 選択 し て 、[ 合 計 ] と いう メニ ュー を 選ぶ と 、 選 択 し た セル 
の 値 を 合計 する 計算 を 実行 し ます 。 メ ニュ ー は 、 ポ ッ プ アッ プ メ ニュ ー 
を 採用 し 、 選 択 範囲 の 位置 で 選べ る よう に し ます 。 
今回 作成 する プロ グラ ム 
合計 し た い セ ル を 左 
か ら 右 に 選択 する 
w. 病 単 表 計 定 ソフ ト 
第 1 日 
ら 時 限 目 


Lessan2.Vbp 
@) VB6C02 
ヨコ Lesson02 





右 ク リッ ク し て ポッ プア ッ プ 
メニ ュー の [合計] を クリ ッ 
ク す る と 合計 が 表示 され る 


プロ グラ ム に ポッ プア ッ プ メニ ュー を 組み 込み 、 列 方 向 に 選択 し 
た セル の デー タ を 合計 計算 し ます 。 範 囲 選択 し た セル 番地 の 把握 と 
値 の 取り 出し 方 法 、 計 算式 の 組み 立て 方 法 の 知識 を 身 に 付け ます 。 
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Lesson ら 合計 計算 処理 の 作成 


に に 電電 陸生 ルー と 二 " 半 ん 二 IP 二 っ 便 . 症 コ 
※ 前 の レッ スン で 作成 し た 「Lesson 1 .vbp」 を 開い て くだ さい 。 


[標準 ] ツー ル バ ー の [メニ ュー エディ タ ] ボタ ン を 
クリ ッ ク し 、 メ ニュ ー エ ディ タ を 起動 する 


iv < 』 
昌 = っ oo)?)%《』 ぎ ここ ok | 
昌 時 間 =oo 〇 〈 《 | yk | 








イデ ク x09.「 IS ない ェ 
AL2" エ テキ スト 番号 (Hy ネエ ー ト 位置 0: ID- な し mw 


「 ため ⑥) レ 有効 トレ 表示 ⑯ 「ー ウ トウ 9 スト 


| っ | | ーWAO | mmO | 


[キャ プシ ョ ン ] に 「 計 算 」、[ 名 前 ] に 「IDM_CALC」 
と 入力 する 





1 | x| 
HOOF ミ ーー 二 sss= 町 | [計算 」 と 入力 
前 人 [pmCal {6 yk | 










ー ト ト [の ない) 』 
AM2* や ヤ テ キメ ト 番号 富 尋 位置 65 。n- な し | 
「 二 カ @ ドレ 有効 ドレ 表示 「 ウト ツウ リト 


*| っ | *| *| @ ] go | amso | 






IIDM_CALC」 
と 入力 


は チェック ポッ クス を クリ ッ ク し て オフ に する 








25a) 同定 OK 


名 前 [pMcatC_ 0 〈 パ 1 パー…^〈6% や 6 1 キツ セル 
イデ yz09 ※ー ト SM [な い ェ 


^ ル 7* ヤ テ キス ト 番号 ネ ゴ 江 ー ト 位置 O* hp- ぉ し 引 
「 な め ⑥) ドレ 有効 8 ・ 6 


*| っ | 4*| と | ーー デイ AO | ーー 
| 


2 ンク 








。 Lesson1.vDp 
デ ファ イル 


「Lessonl.vbp] ファ イル 
は 、 付 録 CD-ROM の 
「Lesson01] フォ ル ダ に も 
収録 ミ きれ て いま す 


[表示 ] チェ ッ ク 
硬 ホッ クス 

トッ プ メ ニュ ー の [表示 ] 
チェ ッ ク ボ ックス を オフ 
に する と 、 そ の 下 に 組み 
込ま れる サ プ メ ニュ ー も 
含め 、 そ の メニ ュー 全体 
が 非 表 示 に な り ま す 。 
RDZ の 炊 メ デ テ 三宅 
作る と き は この よう に チ 
ェ ッ ク を 外 じ で て お きま す 。 





第 1 日 ら 時 限 目 か ん た ん 表 計 算 ソ フト の 作成 


灯 メニ ュー の 兵 入 


「IDM_CALC」 を 入力 し た 
と ころ で Enter キー を 押し 
て も 、 同 様 に 空白 の メニ 
ュー を 挿入 する こと が で 
きま す 。 


う 全 











PTDr 症 cl 
54 ツ ⑤: 周 富 OK ] 
名 前 ⑯: IDM CalC キッ セル | 


イデ ウ z69 「 ョ ー ト カット ⑤) [な 選 
AM2" ヤ テキ メト 番号 折 福江 - ト 位置 6) ln- な し 選 
「 二 め の ⑥ ドレ 有効 ⑥ 「 床 示 ⑯ 「 ウツ ト ウリ メト WO 


に ココ また 2 E 






竹 [次 へ ] を クリ ッ ク し て 次 の 行 に 移動 する 


ここ を クリ ッ ク 


次 の 行 で 右向き の 矢印 ボタ ン を クリ ッ ク し て 一 段 下 


が っ た メニ ュー を 挿入 する 





7*a2B: 「 OK ] 
名 前 0⑩ [0 〇 。、、。 5 キッ セル | 
ヤセ デ ウ xG9: 「 シー トト ⑤) 区 選 
へ M2* ヤセ テ ネスト 番 号 ⑬⑪: 禄 江 - ト 位置 6) hn- な し 選 
「 な め ⑥) レ 有効 レ 表示 1 ウッド トウ 9 スト の 


| 


レト ドド レロ 


ここ を クリ ッ ク 


[キャ プシ ョ ン ] に 「 合 計 」、[ 名 前 ] に 「IDM_SUM」 











75a7(B | 人 さ 計 

名 前 M) IDM SUM キ t ツ セル | 
イセ デ ウス: ジー な おい) 選 
AM7* コ テキ メト 番号 (HE エー ト 位置 ⑩: p- な し 司 


「 な み ⑥) レ 有効 ⑤ ドレ 表示 「 ウト ウリ スト W 


| っ | | | し | AO | WO | 





合計 ] と 入力 


IIDM_SUM] 
と 入力 


Lesson ら 合計 計算 処理 の 作成 





[OK] ボタ ン を クリ ッ ク し て メニ ュー エディ タ を 閉じ 





る 
| 詳 電 6 串 ISH 0 〇 〈】。】))】。 6《6 ぞ 5 。 0 
本 Drsuh。。。、。、。、、 靖 還 語 izp 衣 
| テッ 2z09 ー ト ト G Io 品 


| A02' や 計 I 番 号 ⑪ D 社 江 生垣 Oh- な し 中 | 
| 「 お み @ レ 有効 ⑤ レレ 表示 ウト ウツ 9 スト W 


| ーWAo | Wo | 





| 


Ed 


是 Form1:MSFlexGrid1-MouseDown 








IO」 





INN 

1 
] [MSFiexGriq1 引 [Mousepown 引 | 
EE ヤヤ ェ OOOOO 


Private Sub MSF1exxG ェ id1 MouseDowm (Button As Tnteger, ShiFt As 
| エ nteger, xx AS Sing1e, y As Sing1e) 
エ F BuEton = 2 Then 
PopupMenu TDM Ca1c 
| End TE 
| End Sub 


ョ Form1:IDM_SUM-Click 







| P エ ミュ Ya も @ Sub TDM Sum C1icK( ) 
| Dim Sa ェ ECo1 As Tn も teger 
Dim EndCo1 As Tnteger 
Dim Store As Long 


Store = 0 
With MSF1exxG ェ 1d1 
SEa エ ECo1 = 。.Co1 
EndCo1 = .Co1Se1 
End With 


On 到 エ エ o エ GoToO BAC 丈 





第 1 日 ら 時 限 目 か ん た ん 表 計 算 ソ フト の 作 


FoO ェ 1 エ = S ヒ ar ェ モ Co1 "To 正 ndCo1 
With MSF1exxG ェ 1d1 | 
xsCO = ョ 直 | 
Sore = Store + CLng( .Tex モ ) 
End With 
Ne 


With MSF1exxG ェ 1d1 
・Co1 = 5 
・mex = 8SOr@G 

End With 

E 交 ふ モ Sub 


| BACK : 
| wsgpox "入力 デー タ が 数 値 で は な い の で 計算 で きま せん 。 ・ 














証 。 この 合計 計算 の 機能 は よ 、 い ろ い ろ な 方 法 が 考え られ ます が 、 こ こ で は 整数 の 足し 
算 を 行う 機能 に 絞っ て 、 次 の 動作 で 実現 する よう に し て いま す 。 


① 列 方 向 に 計算 し た い セ モル を 範囲 選択 する 








ス 


Lesson ら 合計 計算 処理 の 作 


③ メ ニュ ー を 選ぶ と 「 合 計 」 欄 に 合計 が 入力 され る 








セル に 数 値 デ ー タ 以外 の 値 が 入力 され て いる 場合 は 、 計 算 で き な い 旨 の メッ セ 
ー ジ を 表示 する 


の ) 





まず 、 メ ニュ ー の [合計] を 表示 する 処理 を 作成 し ます 。 フ レキ シブ ル グ リ ッ ド 
コン トロ ー ル の 上 で マウ ス の 右 ボ タン を 押す と 、「MouseDown] と いう イベ ント が 
発生 し ます か ら 、 こ の イベ ント プロ シー ジャ に 、[ 合 計 ] メニ ュー を 表示 する 処理 を 
作成 し ます 。 こ の プロ シー ジャ で は 、 ま ず Hf ス テー トメ ント で マウ ス の 右 ボ タン が 
押さ きれ た か どう か を 判断 し 、 押 きれ て いれ ば 「PopupMenu」 メソ ッ ド を 使っ て 、 
[計算 ] メニ ュー を 表示 し ます 。 

メニ ュー エディ タ で [計算] メニ ュー を 作成 し た と き に 、 こ の メニ ュー を 「 非 表 
示 ] に し て いま すか ら 、 フ ォ ー ム に は メニ ュー が 表示 きれ ませ ん 。 し か し 、[ 表 示 ] 
メニ ュー の 中 の サ プ メ ニュ ー [合計 ] は 、「PopupMenul メソ ッ ド を 使う と 表示 さき 
れる よう に な り ま す 。 


P ェ ュ ate Sub MSF1exG ェ 1d1 MouseDowm ( Bu モモ on AS Tnteger, 
ShiF モ As Tnteger, xx AS Sing1e, ゞ As Sing1e ) 
エ F Button = 2 Then 
PopupMenu TDM CALC 
End エモ 
End Sub 





第 1 日 ら 時限 目 か ん た ん 表 計 算 ソ フト の 作 





人 る 合計 計算 の 処理 は 、 こ の [合計 ] メニ ュー が 選ば れ た 時 点 で 実生 し ます の で 、 こ 
の メニ ュー の Click イ ベン ト プ ロ シー ジャ に 処理 を 作成 し ます 。 
まず 、 変 数 を 3 つ 作成 し ます 。 そ れ ぞ れ の 変数 は 次 の 役割 を し ます 。 


Dim S ヒ a エ ECo1 AS Tntege エ ----ー て 
Dim EndCo] As エ Tntege エ --- ニ ーーー @② 
D3m 8Etore AgiEOnO ニーーーーーー ニ ーーー ( ③ 


① 選 択 さ きれ た セル の 最初 の モル (選択 範囲 の 先頭 セル ) の 列 番号 を 格納 する 変数 
② 選 択 さ れ た セル の 最後 の セル (選択 範囲 の 未 尾 セル ) の 列 番号 を 格納 する 変数 
合計 計算 値 を 格納 する 変数 


この と き 、 変 数 「Store] だ け デ ー タ 型 を 「Long」 ( 長 整数 型 ) で 宣言 し ます 
(「 nteger」 (整数 型 ) で は 、 格 納 で きる 整数 の 桁 数 が 32.767 まで し か あり ませ ん )。 
変数 を 宣言 し た ら 、 変 数 「Store] に 「0]」 を 代入 し て 初期 化し て お きま す 。 


Store = 0 


省 。。 火 に 、 現 在 選 択 さ きれ て いる セル の 範囲 を 把握 し ます 。 選 択 範 囲 の 先頭 の モル は 、 
現在 カレ ント に な っ て いる セル な の で 、[Col] プロ パテ ィ を 使っ て 列 番号 を 変数 
「StartColl」 に 格納 し ます 。 ま た 、 選 択 範 囲 の 最後 の セル は 、[ColSell プロ パテ ィ を 
参照 する こと で 把 所 で きま す (フレ キシ ブル グリ ッ ド コン トロ ー ル の 選択 範囲 は 、 
列 方 向 で は [Col] プロ パテ ィ と [ColSel] プロ パテ ィ で 指定 され た 範囲 に な り ま 
す )。 

これ で 、 列 方 向 に 選択 され た セル 範囲 を 把握 で きま す 。 


With MSF1exG ェ 1d1 
8 上 a エ ECo1 = .Co1 
EndCo1 = .Co1Se1 
End With 


行方 向 の 選択 範囲 を 把握 する に は 、[Row] プロ パテ ィ と [HowSel] プロ パテ ィ を 
使用 し ます 。 ま た 、 コ ー ド で これ ら の プロ パテ ィ に 値 を 設定 すれ ば 、 コ ー ド か ら 範 囲 を 
選択 する こと が で きま す 。 デ ザイ ン 時 に は 、 値 を 設定 で きま せん 。 


Lesson ら 合計 計算 処理 の 作 | 


人 遂 択 穫 囲 が 把握 で きた ら 、 セ ル か ら 値 を 取り 出し て 合計 計算 を 実行 し ます 。 た だ 

し 、 セ モル に 数 値 以外 の 値 (文字 列 な ど ) が 入力 され た 場合 は 計算 が エラ ー に な る の 

で 、 合 計 計算 の 前 に 「On Error] ステ ー ト メン ト で エラ ー 処 理 を 挿 人 し て お きま す 。 

合計 計算 は まず 、For..Next ル ー プ で 、 選 択 範囲 の 先頭 の セル か ら 、 範 囲 の 最後 

の セル まで を 1 つ ず つ ア クセ モス し 、[Text] プロ パテ ィ の 値 を 取り 出し ます 。 取り 

出し た 値 は 「CLng」 関数 を 使っ て 、Long 型 の 整数 に 変換 し ます 。 変換 し た 値 は 変 

数 「Store] に 加算 し な が ら 格 納 し ます 。 こ れ で 、 範 囲 の 最後 の セル まで 、[Text] 
プロ パテ ィ の 値 が 整数 に 変換 され て 合計 計算 きれ て いき ます 。 


On 正 エ エ o エ GoTo BACK 
下 O エ エエ = S モ ar エモ 上 Co1 "To EndCo1 
With MSF1exxG ェ 1d1 
<Col = ュ 
Store = Store + CLng( .Text ) 
End With 
Nex モ 


0 合計 計算 が 終了 し た ら 、 そ の 値 を 「 合 計 」 億 の モル に 格納 し ます 。 そ し て 、 エ ラ 
ー 処 理 の た め に 「Exit (Sub)」 ステ ー ト メン ト で プロ シー ジャ を 終了 きせ ます 。 こ 
の ステ ー ト メン ト を 記述 し て お か な いと 、 エ ラー で も な い の に 、 次 の エラ ー 処 理 の 
コー ド ま で 実行 され て し まい ます 。 


With MSF1exxG ェ 1qd1 
<Co1 = 5 
・TGx ヒ = Sore 

End With 

Ex エモ Sub 


CLng 関数 の 引数 に 数 字 以 外 の 文字 列 が 入る と 、 正 常 な 変換 が で き な く な り 、 こ 

の 関数 は エラ ー を 発生 きせ ます 。 こ れ を On Error ス テー トメ ント で 把握 し て 、 次 の 
エラ ー 処 理 で ある 「BACK]」 ラベ ル に 処理 を 移動 させ ます 。「BACK] ラベ ル で は 、 
メッ セー ジ ボ ッ クス で 計算 で き な い 和 旨 の 警告 を 表示 し 、 プ ロ シ ー ジ ャ を 終了 し ます 。 


BACK: 
MsgBox "入力 デー タ が 数 値 で は な い の で 計算 で きま せん 。 " 


以上 で 、 合 計 計 算 機能 が 完成 で す 。 実 際 に 数 値 を 入力 し て 、 計 算 さ きせ て みて くだ 
きい 。 
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レッ スン の 冒頭 に も 言い まし た が 、 合 計 計 算 機能 は 、 他 の 方 法 で も 実現 で きま す 。 
た と えば 、 コ マン ド ボ タ ン を 使っ た り 、 フ ォ ー ム の メニ ュー を 使用 する 方 法 も あり ま 
す 。 ま た 、 合 計 だ け で な く 、 い ろ い ろ な 計算 を 選べ る よう な 機能 を 組み 込む こと も で 
きま す 。 こ の レッ スン を 参考 に 、 自 分 の 設計 に あっ た 機能 を 組み 込ん 々 で くだ さい 。 


上 作成 し た プロ グラ ム を 、 小 数 点 の 合計 計算 も で きる よう に 、 計 算式 を 
組み 替え て くだ さい 。 


解答 は 巻末 に 一 





デー タ 変 換 関数 は 、CLng 以外 に も 関数 が 用 意 さ れ て いま す 。 こ れ ら の 関数 は 、 引 数 
X に 変換 元 の デー タ を 与え る と 、 指 定 し た 変換 操作 を 行っ て 、 そ の 値 を 返し て きま す 。 


く 代 表 的 な 変換 関数 > 














関数 名 (x は 引数 ) 機能 


ブール (Beolean) 
イト (Byrg 




















CCur(%) 通貨 型 (Currency) 

CDate(X) 日 付 型 (Date) 

CDbI() 倍 精度 浮動 小数 点数 型 (Double) 
単 精度 浮動 小数 点数 型 (Single) 








CVar(X) バリ アン ト 型 (Variant) 
CStr(X) 文字 列 型 String) 





Lesson ら 合計 計算 処理 


この プロ グラ ム で は 、 合 計 す る セル を 選択 する と き は 必ず 「 左 か ら 右 ] へ 選択 し て 、 
合計 計算 を 行う よう に 作成 し て いま す 。 

「 右 か ら 左 ] に 選択 し た 場合 で も 合計 計算 が 行え る よう に する に は 、 右 か ら 左 へ 選択 
され た と き と 逆 の 処理 を 行う よう な コー ド を 追加 し て あげ ます 。 

まず 、 選 択 範 囲 の 先頭 の セル 番号 と 終端 の セル 番号 を 比較 する こと で 、 ど ちら の 方 向 
か ら 選 択 さ れ た の か が わか り ま すか ら 、 こ れ を If ステ ー ト メン ト で 判断 し 、 右 か ら 左 に 
セル 内 容 を 合計 計算 する 場合 と 、 左 か ら 右 に 合計 計算 する 場合 の 、 ら 種類 の 処理 に 振り 
分 ける よう に し ます (修正 し た プロ グラ ム は 、 付 録 CD-ROM に 「Lesson2-2.vbp」 
と いう ファ イル 名 で 収録 し て あり ます )。 


On 正 エ と エ o エ GoTo BACK 
エ F Sta ェ ECo1 < EndCo1 mhen 追加 し た コー ド 
Fo エ 1 エ = 8S 上 a エ ECo1 To 正 ndCo1 
With MSF1exG ェ 1d1 


<Co1 = ュ 
SOre = SEore + CLng( .Text ) 
End With 
Nex モ 
, 右 か ら 左 へ 選択 され た と き は 逆 の 処理 を 行え ば よい 
E1se , 追 加 し た コー ド 
Fo 1 = EndCo1 To Sa ェ モ Co1 変更 し た コー ド 
With MSF1exxG ェ 1d1 ' 変 更 し た コー ド 
-Co1 = ュ , 変 更 し た コー ド 
Store = Store + CLng(.Text) 変更 し た コー ド 
End With , 変 更 し た コー ド 
Nex セ 
End エモ : 追 加 し た コー ド 
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目 目 
目 目 


Se Lesson3.xls 


@) V8e6c02 
白 * コ Lesson03 


る 2 


セル デー タ を ファ イル に 保存 する 


作成 し た 表 計 算 プ ログ ラム の セル デー タ を 、 フ ァイル に 保存 し ます 。 フ 
ァイル の 読み 書き は 、 ラ ンダ ム ア ク セス モー ド で 行い ます 。 ま た 、 フ ァ 
イル 名 の 設定 に は 、 コ モン ダイ アロ グ ボ ックス を 使用 し ます 。 


今回 作成 する プロ グラ ム 


ECEHEDZN 症 is nx 障 識 
00 [保存 ] コマ ンド で [デー タ を 


fh 本 較 記 *」 ダイ アロ グ ボッ クス を 表 


| 示し 、 セ ル デ ー タ を ファ イル に 
E ー ー 保存 する 


1000 2000 3000 4000 100nn 












2 


EE 人 環 ss 


保存 する 場所 ⑪: | ご ) My Documents <| 器 | 可 | 


| 
| 
~」 My Pictures | 
| 
| 
1 
| 
| 





~」 My Webs 


フイ ル 名 (M: lydstal 保存 ⑤) 
アイ ル の 種類 ⑪。 | テー5 フ ァイル scs) <] キャ ン セ ル 
「 読み 取り 専用 ファ イル と し て 開く (BI 


ーーーー ニ ーー ニー ニー ーー テー ンー し > ーー ョ ング 2 


ラン ダム アク セス モー ド は 、 デ ー タ 1 つ 1 つ に レコ ー ド 番号 を 付 
け て ファ イル に 書き 込む た め 、 任 意 の デー タ を 抜き 出す こと が で き 
ます 。 こ の 機能 を 使用 し て 、 先 頭 の セル か ら セ ル デ ー タ の ファ イル 
へ の 書き 出し を 行い ます 。 コ モン ダイ アロ グ ボ ックス の 「[ フ ァイル 
名 を 付け て 保存 ] ダイ アロ グ ボ ックス を 表示 し 、 保 存する ファ イル 
名 と フォ ル ダ 名 を 取得 し ます 。 
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攻 コン トロ ー ル と プロ パテ ィ の 設定 
※ 前 の レッ スン で 作成 し た 「Lesson2.vbp」 を 開い て くだ さい 。 


ツー ルル ウッ トマ ウス の 右 ポ タン で クリ ッ ク し 、 
メニ ュー か ら [コン ポー ネン ト ] を 選 点 


回 販 箇 
ここ を クリ ッ ク 


の 追加 (@⑱)- 
| ンド 引導 可能 ⑯ 
非 表 示 (H 








[Microsoft Common Dialog Control 6.0] を 
チェ ッ ク し 、[OK] ボタ ン を クリ ッ ク す る 






ヤー を | デ : 人 サ | 捧 入 可能 な わ ツ 5 ト | 
Microsoft Agent Control 20 

[し Microsoft Calendar Control 90 

[Microsoft Chart Control 60 0LEDB) 


Microsoft Comm Control 60 
マ lrosoft Common Daloe Conmol60 。 


Microsoft Data Bound Grd Control 50 GP3) 
Microsoft Data Bound List Controls 6 
Microsoft DataGrid Control 60 0LEDB) 

Microsoft DataList Controls 60 (OLEDB) 
Microsoft DataRepeater Control 6 (OLEDB) 



















だ の リツ 


ツー ル パ レ ッ ト に コモ 
ンダ イア ログ コン トロ 
ー ル が 追加 され る 


CommoanhDialog 











LesSOn ら .vbp 
ファ イル 


「Lesson2.vybp] ファ イル 
は 、 付 録 CD-ROM の 
「Lesson02] フォ ル ダ に も 
収録 ミ れ て いま す 。 
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[ポタ ン 

[.…] ボタ ン は 、 そ の プロ 
パテ ィ の 詳細 な 指定 を 行 
う ダ イア ログ ボッ クス が 
用 意 き れ て いる こと を 示 
し て いま す 








ツー ル パ レ ッ ト の [CommonDialog] 還 を 使っ て 、 
コモ ンダ イア ログ ボッ クス コン トロ ー ル を 配置 する 


1) 












プロ パテ ィ ウ ィ ン ド ウ の 「[( プ ロバ パテ ィ ペ ー ジ )] を 
クリ ッ ク し 、[.……] ボタ ン を クリ ッ ク す る 


プロパ ティ - CommonDialgg1 
全 で を クツ 
ここ を 2 リツ タ 


True 





Color 圏 HO0& 
ICopies 1 

DefaultExt BCa 

DialogTitle 


人 [開く / 保 存 ] タブ で 、 次 の 項目 を 設定 する 


OCZEO22 間 Iiiav> ウ = 
開 ツ 保存 | 色 | フト | 印刷 | ^M2* | 

fh | フラ が pb 
アル 名 既 走 の 拡張 子 (D: leca 
初期 デ 和 ル 外 9(D) トト * 最大 2z 人 ル サイ XYM: EGO 
2 が 2 タイ セ デ ッ Xp 




















Lesson 3 セル デー タ を ファ イル に 保存 する 


初期 ディ レク トリ C:\ 
フィ ル タ デー タフ ァイル (*.eca)『.eca 


既定 の 拡張 子 eCa 
キャ ン セ ル 時 に エラ ー | (チェ ッ ク す る ) 





[標準 ] ツー ル バ ー の [メニュー エディ タ ] ボタ ン を | ae フォ ー ム を 





クリ ッ ク し 、 メ ニュ ー エ ディ タ を 起動 する 2 

手順 6 を 行う 前 に 、 フ ォ ー 
PT] El ム 上 の コン トロ ー ル 以外 
「 ov 古語 ーー | の 部 分 を クリ ッ ク し て 、 
72(Py ポ | フォ ー ム を 選択 し て くだ 
名 前 ⑩ [DMCAtC 0 0 、。 {6 heybL | | 


きい 


%2269 | wa-tS [な D 引 | 
^M2! や 玉 人 番号  " 礼 江 = 填 ⑥。 n- な し | 
1 お め ⑥ 有効 「 表示 め 9 トウ 9 スト 
*| *| | | 次 WO | 振 A@ | 


台 





が [挿入 ] ボタ ン を クリ ッ ク し 、 メ ニュ ー を 追加 する 


還 ェ エ デ * 偽 





ここ 2 xi 
キツ (PB [ OK | 
名 前 1 0〔{〔60ー《0〈 〇 〔、0 {1 66. ぞ hybk | 


イデ 209. ジー トト ⑤) | な し ) | 
へ 7" ヤ テ キス ト 番号 福江 - ト 位置 0O) |[D- な し 


「 な め ⑥ レ 有効 ドレ 表示 め 「 ウル トウ リス メト 
| っ | | | IE5S コ 


合計 











[ 振 入 】 ボタ ン 
な を 多 りみ 
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[キャ プシ ョ ン ] に 「 フ ァイル 」、[ 名 前 ] に 「IDM_FILE」 
と 入力 する 


| hw ウー 語 計 
| WP: wrtE 0 、 6 、 ye | 入力 
| セ デ 2269: ptS WI な DO 選 
| AM2! コ 2 テス ト 番号 ⑪。 IP " " 社 江 - ト 位置 O [ph- な し = 
IIDM_FILE」 
と 入力 









「 な め ⑥) じ レ レ 表示 ⑯ 量 に rc 


0 さら に メニ ュー を 挿入 し [キャプ ショ ン ] と [名 前] 
作成 する に 次 の 項目 を 入力 し 、 ら つ の サブ メニ ュー を 追加 する 


サ プ メ ニュ ー を 作成 する 
に は 、[ 挿 入 ] ボタ ン を ク 











リッ ク し て 容 白 行 を 作り 、 みた を 2 唐 

サ プ メ ニュ ー を 作成 する 開く IDM_OPEN 

行 を 選択 し て 、 右 向き の 

矢印 ボタ ン を クリ ッ ク レ し 保存 IDM_SAVE 

まま 。 

25aV(P 附 存 OK | 

| 狗 0 IF5vssf 0 )0{〔{〔〕』】{〔 ey | 
| で 2 の wa [GO っ 引 


202! ヤ 計 2 ト 番号 dQ 上 DP  " 知 江 Na 填 0 - な し 選 
1 お 2@ レ 有効 G 〇 レ 表示 め 22 トウ 9 リト 


| LSW | Ao | mol 
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、 Private Sub エ TDM SAVE C1ick() 
Dim GetF ュ 1eName AS 8 モエ ng 
Dim Data As String * 10 | 
Dim DataByte As Long | 
Dim RecNo As Tnteger 

Dim ii As Tnteger, ] AS Tnteger 


RecNo = 1 

With CommonDia1og1 

| -Dia1ogmit1e = "デー タ の 保存 " 
On 下 エ エ o エ GoTO BACK 

| ・ShowSa@ 

| End With 


GetFi1eName = CommonDia1og1 .Ei1ename 
DataByte = LenB(Da て a ) 


| Open GetFi1eName For Random As 井 1 Ten = DataBy モ e 


For ュ = 1 mo9 | 
For ] = 1 mo 5 
With MSF1exxGr1d1 
sCot ww 
・ROw = ユエ 
Data = -.Tex セ 
下 nd With 
Pu 失 1, RecNo, Data 
RecNo = RecNO + 1 | 
Next | 


Nex モ 





C1ose #1 | 
| 下 x ふ 1 モ Sub 


| BACK : 


1 
| 下 nd Sub 
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この 機能 は 、 セ モル に 入力 され た デー タ を 、 テ キス トト 形式 の ラン ダム アク セス モー 
ド で ファ イル に 保存 し ます 。 メ ニュ ー の [保存] を 選ぶ と 、 コ モン ダイ アロ グ ボ ッ 
クス コン トロ ー ル の [ファ イル 名 を 付け て 保存 ] が 開き ます 。 こ こ に 、 保 存する フ 
ァイル 名 と フォ ル ダ 名 を 指定 し 、Open ス テー トメ ント を 実行 し ます 。 

Open ス テー トメ ント と は 、 フ ァイル を 開い て 、 フ ァイル へ デー タ を 入出 力 する 
た め の ス テー トメ ント で す 。 

【0pen ステ ー ト メン ト の 書式 】 

Open pathname For mode [Access access] [1ook] As 
[#] Ei1enumbper [Len= エ ec1enthe] 


pathname 開く ファ イル の パス 名 を 指定 し ます 。 

mode ファ イル の モー ド を 指定 し ます 。 Appenda、 Bina ェ マ 、 Tnput、 
Output 、 Random。 

Access 開く ファ イル に 対す る 処理 を 指示 し ます 。 省 略 可 。 

1ock 他 の プロ セス か ら の アク セス を 制御 し ます 。 省 上 略 可 。 

Fi1enumber 開く ファ イル に 対し て 参照 の た め の 任意 の ファ イル 番号 を 指定 し ます 。 

ェ ec1ength レコ ー ド 長 や バッ ファ 容量 を 示し ます 。32,787 バイ ト 以 下 の 数 字 を 


本 SR 
「 ラ ンダ ム ア ク セス モー ド 」| と は 、「 シ ー ケ ン シ ャ ル ア ク セス モー ド 」 の よう に 、 
ファ イル の 先頭 か ら 順 番 に デー タ を 書き 込ん だ り 読み 出す の で は な く 、 デ ー タ ーー 件 
一 件 に 「 レ コー ド 番 号 ] を 設定 し て 、 フ ァイル 内 の 任意 の 位置 の デー タ を 読み 出し 
た り 、 任 意 の 位置 に 書き 込む こと の で きる モー ド で す 。 

また 、 ラ ンダ ム ア ク セス モー ド は 、1 つ の デー タ あ た り の バイ ト サ イ ズ を 設定 し 
て 書き 込み ます 。 こ の デー タ サ イズ は 、1 つ の ファ イル で すべ て の デー タ が 同じ サ 
イズ に な り ま す 。 し た が っ て 、 設 定 し た バイ ト サ イ ズ に 達し な い デ ー タ で も 、 そ の 
分 の 領域 を 消費 し ます 。 

た と えば 、1 つ の デー タ の サイ ズ を 20 バ イト に 設定 し た 場合 、1 バ イト の デー タ で 
も 20 バイ ト の 領域 を 消費 し ます 。 


コモ ンダ イア ログ ボッ クス の 各 プ ロ パ ティ の 初期 設定 は 、 プ ロ パ ティ ウィ ンド ウ 
で も 設定 し ます が 、 多 く の 項 目 を 変更 する と き は 「 プ ロ パ ティ ペー ジ 」 を 使用 し た 
ほう が 一 括 し て 設定 で きる の で 便利 で す 。 

今回 設定 し た 項目 と プロ パテ ィ 名 と 値 は 、 次 の と お り で す 。 


人 @ [初期 ディ レク トリ ] (InitDir) … 「c:\」 
ダイ アロ グ ボ ックス が 表示 され た と き に 表示 され る 、 デ ィ レ クト リ (フォ ル ダ ) 
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名 を 設定 し ます 。 こ こ で は 、 ド ライ ブ C の ルー トディ レク トリ を 指定 し て いま す 。 


[フィルタ] (Filter) …「 デ ー タ ファ イル (*.eca)|*.ecla」 
ファ イル の リス ト を 表示 する と き に 、 特 定 の 種類 の ファ イル だ け を 表示 し た い 場 
合 に 、 こ の プロ パテ ィ を 設定 し ます 。 値 の 書式 は 、 次 の と お り で す 。 


[表示 タイ トル | ファ イル の 拡張 子 ] 


最初 に ボッ クス に 表示 する 文字 列 を 指定 し ます 。 こ こ で は 、「 デ ー タ ファ イル 
(*.eca)| を 指定 し て いま す 。 次 に 、「|」 (半角 縦 棒 ) で 区 切っ て 、 フ ァイル の 種類 を 
表す ファ イル 拡張 子 を 指定 し ます 。 こ こ で は 、「.ecal を 設定 し て いま す 。 必ず 「.」 
(ピリ オド ) と 拡張 子 の 文字 (3 文字 以内 ) を 記述 し ます 。 こ の フィ ル タ は 、「[| ( 縦 
棒 ) で 区 切る と 、 い くつ で も 設定 で き 、 ダ イア ログ ボッ クス の リス ト ボ ックス に 表 
示さ れ ま す 。 


@「[ 既 定 の 拡張 子 ] (DefaultExt) … 「eca」 

この プロ パテ ィ に 拡張 子 を 設定 し て おく と 、 フ ァイル を 保存 する 際 に 、 フ ァイル 
名 を 入力 する だ け で 自動 的 に この 拡張 子 を 付け て 保存 し て くれ ます 。 こ の プロ パテ 
ィ を 設定 し て いな い 場 合 は 、 ユ ー ザ ー が 拡張 子 ま で 付け て ファ イル 名 を 入力 する 必 
要 が あり ます 。 


@ [キャ ン セ ル 時 に エラ ー] (CancelError) … (チェ ッ ク ) 

[ファ イル 名 を 付け て 保存 ] ダイ アロ グ ボ ックス の [キャン セル ] ボタ ン が クリ ッ 
ク さ れ た と き に 、 エ ラー を 発生 きせ ます 。 [キャン セ モル] ボタ ン が クリ ッ ク さ れ た と 
き の 処 理 を 組み 立て る 場合 は 、 こ の プロ パテ ィ を 「True」 に 設定 し ます 。 





開 の 保存 | 色 | フト | 印刷 | 2* | 


%fhkOD。 | 2 。 | 
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フ M9(B 也 ー タ ファ イル scaleeca 20 人 や 2X00  h 
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「eca] と いう 拡張 子 は 、 こ の プロ グラ ム の た め に 筆者 が 勝手 に 作成 し た 拡張 子 で 、 
「Easy Calc] の 略 で す 。 フ ァイル の 拡張 子 は 、 自 由 に 設定 し て か まい ませ ん が 、 現 在 
すでに ある ファ イル の 拡張 子 と 重複 し た な いよ うに し て くだ さい 。 


人 で は 、 最初 に デー タ を ファ イル に 保存 する 処理 か ら 作成 し ます 。 こ の 処理 は 、 メ 
ニュ ー の 「【[ フ ァイル ー 保 存 ] を 選ん だ と き に 実行 し ます の で 、 こ の メニ ュー の Click 
イベ ント プロ シー ジャ に 作成 し ます 。 

プロ シー ジャ の 先頭 で 、 使 用 する 変数 を 宣言 し ます 。 


Dim GetFi1eName As 8 モエ ing ーーーーーーーーーーー 
Dim Data Ag Btrlng * 10  。 。 。 。 。  -------ーー-- ( の) 
Dim DataBy も Ee Ag On “ 。 。 。 。 。 。 。 ーー ニー ニーーーーーーーー ③ 
Dim RecIO Ag エ TnEeg@e エ = "= 〔"。 。 。 。 ーー ニーーー ニ ーー ニーーーー (4 
Dim 1 Ag Tnteger, ゴ Ag TnEeg@e エ  ""ー-ーーー-ーーーーーー ⑤) 


① コ モン ダイ アロ グ ボ ックス か ら 取 得 し た ファ イル 名 を 格納 する 変数 

② セ ル デ ー タ を 格納 する 変数 。 文 字 列 型 を 指定 し 、 さ ら に 10 文字 分 の サイ ズ を 指 
定 し て 宣言 する 

⑬③ デ ー タ の サイ ズ を 格納 する 変数 。Long 型 で 宜 言 する 

(ラン ダム アク セス で 書き 込む 際 に 使用 する レコ ー ド 番号 用 変数 

⑤For..Next ル ー プ で 使用 する カウ ンタ 変数 


宜 言 し た ら 、 レ コー ド 番 号 用 変数 「RecNo] を 初期 化し て お きま す 。 


RecNo = 1 


人 竹 。 炎 に 、 コ モン タイ アロ グ ボ ックス を 表示 し ます 。 ま ず 、[DialogTitle] プロ パテ ィ 
に 、 ダ イア ログ ボッ クス の タイ トル と な る 文字 を 設定 し ます 。 フ ァイル を [開く ] 
と [保存 ] は 同じ スタ イル の ダイ アロ グ ボ ックス に な る の で 、 そ れ ぞ れ の タイ トル 
を 変え て 表示 する よう に し ます 。 
[保存 ] ダイ アロ グ ボ ックス を 表示 する に は 、「ShowSave」 メソ ッ ド を 実行 し ま 
す 。 こ の プロ パテ ィ 設 定 と メソ ッ ド の 実行 で 、[ フ ァイル 名 を 付け て 保存 ] ダイ アロ 
グ ボ ックス が 表示 され ます 。 


With CommonDia1og1 
-Dia1ogmit1e = "デー タ の 保存 * 
On Eror GoTo BACK 
・ShowSave 

End With 





Lesson 3 セル デー タ を ファ イル に 保存 す 


な お 、ShowSave メ ソ ッ ド の 前 に 、On Error ス テー トメ ント を 組み 込ん で お きま 
す 。 こ れ は 、 ダ イア ログ ボッ クス の [キャン セル ] ボタ ン が クリ ッ ク さ れ た と き に 、 
ラベ ル 「BACK」 に ジャ ンプ し 何 も 処理 を せ ず に プロ シー ジャ を 終了 ミ させ る た めで 


8 
上 [ファ イル 名 を 付け て 保 ] 
ダイ アロ グ ボ ックス 








通常 、 文 字 列 型 変数 を 宣言 する と 、 文 字 列 の 長 さ を 気 に せ ず に 格納 で きる 、「 可 変 文 
字 列 型 変数 ] と し て 使用 で きま す 。 

し か し 、 格納 する 文字 数 を 制限 し た い 場 合 は 、 文字 数 を 指定 し て 変数 を 宣言 で きま す 。 
その 場合 は 、「AS String] の あと に 「* 10」 の よう に 、 確 保 し た い 文字 数 を 「*」 を 
付け て 記述 し ます 。 デ ー タ ベー スプ ログ ラム の よう に 、 フ ィ ー ル ド の デー タ 数 が 決め ら 
れ て いる 場合 は 、 この よう な 変数 宣言 の 仕方 を し ます 。 変数 の 文字 数 を 指定 し た 場合 は 、 
指定 し た 文字 数 以上 の デー タ を 入力 し て も 、 こ の 文字 数 分 だ けが 格納 され ます 。 

次 の コー ド は 、8 文字 に 設定 し た 変数 に 9 文字 代入 し て いま す が 、 実際 に は 8 文字 
分 し か 格納 され ませ ん 。 


Dim Data As String * 8 
Data = "123456789" 
MsgBoxx Da モ a 





8 文字 し か 表示 され な い 





人 [ ワ テ ァイル 名 を 付け て 保存 ] ダイ アロ グ ボ ックス が 表示 され 、 フ ァイル 名 と フォ ル 
ダ 名 が 指定 され る と 、 コ モン ダイ アロ グ ボ ックス の [filename] プロ パテ ィ に 、 こ 
の ファ イル 名 が フル パス で 格納 され ます 。 こ れ を 、 変 数 「GetFileName」 に 格納 し 
で お きま すず す 。 
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GetFi1eName = CommmonDia1og1 .E11ename 


また 、 確 保 し た 10 文字 分 の 文字 列 型 変数 「Datal の バイ ト サ イ ズ を 、LenB 関 数 
で 計算 し て 、 変 数 「DataByte」 に 格納 し ます 。 

LenB 関 数 は 、 引 数 に 与え られ た 文字 列 の 文字 数 を 、 バ イト 数 に 変換 し て 返し て 
くれ る 関数 で す 。 戻り 値 は Long 型 に な り ま す の で 、 受 け 取 る 変数 も Long 型 で 宣言 
し で お きま すず 。 


DataByte = LenB(Daa ) 


ファ イル 名 と ファ イル に 格納 する デー タ の サイ ズ が 決ま っ た ら 、Open ス テー ト 
メン ト を 、 ラ ンダ ム モ ー ド で 実行 し ます 。Open ス テー トメ ント を ラン ダム モー ド 
で 実行 する 場合 は 、「For Random」| を 指定 し 、 最 後に 「Len] で 1 レコ ー ド あたり 
の バイ ト 数 を 指定 し ます 。 こ こ で は 、 フ ァイル 名 に 「GetFileName」 を 、[「Len」 に 
「DataByte」 の 変数 を 指定 し て 実行 し ます 。 

存在 し な い フ ァイル 名 を 指定 し て Open ス テー トメ ント を 実行 する と 、 新 規 に そ 
の ファ イル が 作成 され ます 。 


Open GetFi1eName For Random AS 韻 1 Ten = DataBye 


Open ス テー トメ ント で ファ イル を 開い た ら 、 セ ル デ ー タ を 1 つ ず つ 書 き 出 し て 
いき ます 。 ラ ンダ ム ア ク セス で の ファ イル の 書き 出し は 、Put ス テー トメ ント を 使 
用 し ます 。 こ の ステ ー ト メン ト は 、 書 き 出す デー タ と その サイ ズ 、 そ し て レコ ー ド 
番号 を 指定 し て 実行 し ます 。 

セル 番地 の 参照 は 、1 行 目 の 1 列 か ら 順 番 に 行い ます 。1 列 目 の 最後 の 列 の デー タ 
に アク セス する と 、 次 の 行 の 1 列 目 に 移動 し ます 。 そ の た め 、 2 つの For..Next ルー 
プ で 【[Col] と [Row] プロ パテ ィ に 値 を 設定 し 、[Text] プロ パテ ィ の 値 を 変数 
「Data」 に 格納 し ます 。 ル ー プ は ネス ト (次 ペー ジ 参 照 ) させ 、 中 の ルー プ が 列 
(Col) の 、 外 の ルー プ が 行 (Row) の 値 を 設定 する よう に し ます 。 


For ュ =1 mo9 
or =1 mo5 
With MSF1exxG エ 1d1 
<Co1 = ] 
>ROw = ユエ 
Data = -.Texx 
End With 


セル の 値 を 変数 「Data」 に 格納 し た ら 、Put ス テー トメ ント を 使っ て セル デー タ 
を ファ イル に 書き 出し ます 。 セ モル デ ー タ は 、 セ モル 1 つ 1 つの 値 を 順番 に 書き 出し ま 
す の で 、 中 の ルー プ で Put ス テー トメ ント を 実行 し ます 。 





Lesson 3 セル デー タ を ファ イル に 保存 す 


Pu 韻 1, RecNo, Data 
RecNo = RecNO + 1 


Put ス テー トメ ント に は 、Open ステ ー ト メン ト で 使用 し た ファ イル 番号 を 指定 し 
ます 。 そ し て 、 レ コー ド 番 号 は 変数 「RecNo」 を 使用 し 、 ル ー プ が 1 回 まわ る ご と 
に 1 つ 増 加 さ きせ て 、 す べ て の セ モル の デー タ が 自動 で 格納 で きる よう に し て いま す 。 

ファ イル に 確保 され る 1 デー タ あ た り の バイ ト 数 は 、Open ス テー トメ ント の 
「Len」 で 指定 し た バイ ト 数 「Len = DataByte」 が 割り 当て られ ます 。 そ の た め 、 
この 「Len] で 指定 する バイ ト 数 は 、 実 際 の デー タ が 消費 する バイ ト 数 以上 の バイ 
ト 数 を 指定 し て くだ さい 。 


し レル スエ メメ メメ メオ オミ トメ ミミ ドド KKKKTYSKYYIIKAKAKKYEKKKKKKKYKKLYKRKKEKKRYEKKKKKKKKEEE と と 


【Put ステ ー ト メン ト の 書式 】 
Pu [ 韻 ] 下 1enumbe ェ , [recnum わ be て ] , で a エ name 


Fi1enumber 開い て いる ファ イル の ファ イル 番号 を 指定 し ます 。open ステ ー ト メン 
ト で 指定 し た 番号 と 同じ 番号 を 使い ます 。 

recnumlber 書き 込む デー タ の レコ ー ド 番号 を 指定 し ます 。 任意 の 番号 を 指定 で き 
ます 。 フ ァイル の 中 の デー タ へ は この 番号 を 使っ て アク セス する こと 
が で き 、 フ ァイル か ら デ ー タ を 読み 出す と き に も 使用 し ます 。 

で arname 書き 込む デー タ の 変数 を 指定 し ます 。 


く 例 > 
次 の 記述 は 、 フ ァイル の 先頭 か ら 2 番目 の 位置 に デー タ を 書き 込み ます 。 


Pu 提 1, 2, Data 





ネス ト と いう の は 、「 入 れ 子 」 と いう 意味 で す 。 プ ログ ラム で For.…Next ルー プ の 中 
に 、 さ ら に For.…Next ルー プ を 組み 込む お よう な 状態 を 「 ネ スト 」 と 呼ん で いま す 。 


TO < 


ルー プ 部 分 
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これ で 、 デ ー タ を ファ イル に 書き 込む 操作 が 終わ り ま し た 。 後 は 、Close ステ ー 
トメ ント で ファ イル を 閉じ ます 。 ま た 、On Error ス テー トメ ント で エラ ー 処 理 を 組 
み 込 ん で いる の で 、 正 常 終了 の 処理 で ある Exit (Sub) ステ ー ト メン ト を 記述 し て 
お きま す 。 そ し て 、 最 後に 、 エ ラー 処理 の た め の ラ ベル 「BACK:| を 設定 し て お き 
ます 。 

[ファ イル 名 を 付け て 保存 ] ダイ アロ グ ボ ックス の [キャン セル ] ボタ ン が クリ ッ 
ク さ れる と 、 フ ァイル 名 の 指定 が な いま ま Open ス テー トメ ント が 実行 され て し ま 
い 、 エ ラー に な り ま す 。 そ こ で 、On Error ス テー トメ ント で この ラベ ル に 処理 を ジ 
ャ ンプ させ ます が 、[ キ ャ ン セ モル] ボタ ン が クリ ッ ク さ れ て 発生 し た エラ ー な の で 、 
特に 何 の 処理 ちせ ず に プロ シー ジャ を 終了 きせ る の で 、 ラ ベル の 記述 の み に し て い 
ます 。 


C1ose #1 
Ex エ 上 Sub 


BACK: 


以上 で 、 入 力 さ れ た デー タ に ファ イル 名 を 付け て 保存 する 処理 が 完成 で す 。 

プロ グラ ム を 動作 させ 、 セ モル に 値 を 入力 し て 、 フ ァイル を 保存 し て くだ さい 。 こ 
の デー タフ ァイル は 、 基 本 的 な 部 分 は テキ スト 形式 で 保存 きれ て いま すか ら 、 
Windows の メモ 帳 な ど で 中 身 を 見 る こと が で きま す 。 










入力 し た デー タ を 保存 する 


セル の 順番 どおり に デー 
タタ が 保存 され て いる 
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ラン ダム アク セス モー ド は 、 シ ー ケ ン シ ャ ルモード と 違い 、 あ ら か じ め デ ー タ に 確 
本 7 CT ト 抽 0b か に と きた 0 デー タ を 任意 の 位置 に 書き 込む こと が で きま す 。 
デー タベース プロ グラ ム の よう に 、 不 連続 な デー タ を 格納 する の に 便利 な モー ド で す 。 
必ず 、 書 き 込 む デ ー タ の サイ ズ は 、Open ステ ー ト メン ト の 「Len」 で 指定 し た バイ 
ト 数 以内 に 収まる よう に し て くだ さい 。 指 定 し た 以上 の バイ ト は 無視 され ます 。 

また 、Open ステ ー ト メン ト で ファ イル を 開い た ら 、Close ステ ー ト メン ト で ファ 
イル を 閉じ て くだ さい 。 


あぁ 練習 問題 


し て 保存 する と 、 い き な り その ファ イル 名 で 上 書き 保存 し て し まい ます 。 
そこ で 、 す で に 同じ ファ イル 名 が ある 場合 は 、 上 書き 保存 し て いい か ど 
うか を 確認 する 処理 を 組み 込ん で くだ さい 。 


〇 1 作成 し た プロ グラ ム で は 、 既 に ある ファ イル と 同じ ファ イル 名 を 使用 


【 ヒ ント 】 

ファ イル が 存在 する か どう か を 調べ る に は 、 Dir 関数 を 使う と 便利 で す 。 
この 関数 は 、 引 数 に ファ イル 名 を フル パス で 指定 し て 実行 する と 、 フ ァ 
イル が 存在 すれ ば その ファ イル 名 を 返し て きま す 。 フ ァイル が 存在 し な 
けれ ば 、 空 の 文字 ("") を 返し て きま す 。 こ の 戻り 値 を 使っ て 、 フ ァイル 
が 存在 する か どう か を 判断 する と いい で し ょ う 。 


【Dir 関数 の 書式 】 


Di [ (pathname [ , atributes] ) ] 


pathname バス 名 を 指定 し ます 。 省 上 略 可 。 
att ェ 1butes ファ イル 属性 を 値 や 定数 で 指定 し ます 。 省略 可 。 


魚 答 は 巻末 に 一 
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白 - Lesson04 





ファ イル か ら デ ー タ を 読み 込む 


ラン ダム アク セス モー ド で の ファ イル の 読み 込み を 使っ て 、、 デ ー タ を 保 
存 し た ファ イル を 開き 、 セル に 値 を 組み 込み ます 。 ファ イル 名 の 取得 は 、 
コモ ンダ イア ログ ボッ クス の [ファ イル を 開く ] ダイ アロ グ ボ ックス を 
利用 し ます 。 ラ ンダ ム ア ク セス モー ド で は 、 レ コー ド 番 号 を 指定 し て 、 
ファ イル 内 の 任意 の 位置 の デー タ を 取り 出す こと が で きま す 。 


今回 作成 する プロ グラ ム 











= 回 | 


ファ イル 


| _ wm | 双 


A B c 訓 | [ファ イル を 開く ] ダイ アロ グ 
1 123 223 23 | ボッ クス を 使っ て 、 保 存 さ れ て 
ぅ いる デー タ を セル に 組み 込む 












前 2 3 | | 
アイル の 場所 の [つつ で ) = 回 | 品評 | 
」Quickcmd 

~] AoBI 」 Realmade 


~] Kpcms し 」Windows 
-」 Mouse 」Yamaha 
3 My Documents | 識 mydataeca 


Program Files 


アイル 名 ⑱ [rydataeca 開く ⑩) | 


イル の 種類 ①: ピー5 フ ァ イ ル eca) | キャ ン セ ル | 
「 読み 取り 専用 ファ イル と し て 開く (BI) 


4 


ラン ダム アク セス モー ド で 、 フ ァイル か ら レ コー ド 番 号 を 指定 し 
て デー タ を 取り 出し ます 。 こ の 処理 は 、Get ステ ー ト メン ト を 使用 
し て 行い ます 。 ま た 、 コ モン ダイ アロ グ ボ ックス の [ファ イル を 開 
く ] ダイ アロ グ ボ ックス の 使い 方 を 覚え る と 、 フ ァイル 名 の 取得 が 
と て も 簡単 に 行え ます 。 


Lesson 4 ファ イル か ら デ ー タ を 読み 込む 





ドル と プ EE に 喧 その 設定 


※ 前 回 作成 し た 「Lesson3.vbp」 を 開い て くだ さい 。 ま た 、 今 回 は 
コー ド を 追加 する だ け な の で 、 ユ ー ザ ー イ ンタ ー フ ェ イ ス の 変更 は 
あり ませ ん 。「Lesson3.vbp] ファ イル は 、 付 録 CD-ROM の 
「Lesson03」 フォ ル ダ に 収録 され て いま す 。 








IDM_ OPEN マテ [Ciick | | 





Privyate Sub TDM OPEN _C1ick( ) 
Dim GetF ュ 1eName AS S モ ェ ing 
Dim Data As String * 10 
| Dim DataByte As Long 
| Dim RecNo As Tnteger 
| Dim 1 As Tnteger, ] AS TnEeger, ik AS Tnteger 
Dim cc As String 
Dim Data2 As String 
Dim Num As Tnteger 


RecNo = 1 


With CommonDia1og1 
-Dia1ogrit1e = "ファ イル を 開く 
On 正 エ エ o エ GoToO BAC 丈 
・ShowOpen 

End With 


| GetFi1eName = CommonDia1og1 .Fi1eName | 
| DataByte = LenB(Data) | 


Open GetFi1eName For Random AS 提 1 Tien = DataBy ヒ e 
Tor エミ =1 mo9 


の に まま PO:5 
Get 拉 1, RecNo, Data 
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cc = Mid(Data, k, 1) 
エ デ Co <> "= Pen 
Data2 = Data2 & oo 
End エモ 
いい (つく コ 


With MSF1exxGr1d1 
| 
・ROW = エミ 
・mexE = Data2 
End With 


Data2 = "m 
RecNo = RecNo + 1 
Ne 
い ( ュ コ 


C1ose #1 
芯 1 上 Sub 


BACK: 





End Sub 





本 ラン ダム アク セス モー ド で の ファ イル の 読み 出し は 、 前 回 の レッ スン で 作成 し た 
ファ イル へ の 書き 出し と ほぼ 同じ よう な 処理 に な り ま す 。 フ ァイル へ の 書き 出し が 
Put ス テー トメ ント を 使っ た の に 対し 、 読 み 出 し は Get ス テー トメ ント を 使用 し ま 
す 。 

最初 に 、 変 数 の 宜 言 を し ます が 、 こ の 宣言 は ファ イル 書き 出し の コー ド と 同じ 変 
数 を 使用 し ます 。 


Dim GetFi1eName AS String 

Dim Data As String * 10 

Dim DataByte As Long 

Dim RecNo As Tnteger 

Dim i As Tnteger, ] AS TnEeger, KK AS TnEeger 


また 、 セ モル に 値 を 入力 する 際 に 行う 空白 除去 の 処理 に 使用 する 変数 を 宣言 し ます 。 
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Dim Co As St エ ing 
Dim Data2 AS St 上 エ ing 
Dim Num AS Tntege エ 


2 つの プロ シー ジャ で まっ た く 同 じ 変 数 を 使う 場合 は 、 モ ジュ ー ル レベ ル の 変数 
(P.53 参照 ) と し て 宣言 し て も か まい ませ ん 。 変数 宜 言 を し た ら 、 レ コー ド 番 号 の 変 
数 「RecNo」 を 初期 化し て お きま す 。 


RecNo = 1 


つう 続い て 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル を 、[ フ ァイル を 開く ] ダイ アロ 
グ ボ ックス で 表示 し ます 。 メ ソ ッ ド は 「ShowOpen」 を 使い ます 。 ま た 、 ダ イア ロ 
グ ボ ックス の タイ トル も 「 フ ァイル を 開く 」 に 変更 し ます 。 
[キャ ン セ ル ] ボタ ン が クリ ッ ク さ れ た と き の エ ラー 処理 (On Error GoTo 
BACK) を 組み 込む の を 忘れ な いで くだ さい 。 


With CommonDia1og1 
-Dia1ogTit1e = "ファ イル を 開く " 
On 下 エ と エ Oo エ GoTO BACK 


・ShowOpen 
End With 


表示 され た [ファ イル を 開く ] 
ダイ アロ グ ボ ックス 





[ファ イル を 開く ] ダイ アロ グ ボ ックス を 表示 し た ら 、 こ こ に 入力 され た ファ イル 
名 を 、[f 操 ename] プロ パテ ィ か ら 取 得 し ます 。 


GetFi1eName = CommonDia1og1 .Ei1ename 


また 、LenB 関 数 を 使っ て 、1 レ コー ド 分 の デー タ の バイ ト 数 を 計算 し 、Open メ 
ソ ッ ド を 実行 し ます 。 こ の 処理 は 、 デ ー タ 書き 込み の 処理 と まっ た く 同 じ で す 。 
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DataByte = LenB(Daa ) 


Open GetFi1eName For Random As 韻 1 Len = DataBye 


衝 ファ イル を 開い た ら 、Get ス テー トメ ント で ファ イル か ら デ ー タ を 取得 し ます 。 
Get ス テー トメ ント は 、 指 定 し た レコ ー ド 番号 の デー タ を ファ イル か ら 読 み 込 む ス 
テー トメ ント で す 。 読み 込む ファ イル 番号 と レコ ー ド 番号 、 読 み 込 ん だ デー タ を 格 
納 す る 変数 名 を 指定 し ます 。 ラ ンダ ム ア ク セス モー ド と Get ス テー トメ ント を 使用 
する と 、 フ ァイル 内 の 任意 の 位置 に ある デー タ を 取り 出す こと が で きま す 。 

ここ で は 、 ま ず Get ス テー トメ ント で レコ ー ド 番号 を 1 か ら 順 番 に 読み 込ん で 、 
フレ キシ ブル グリ ッ ド コン トロ ー ル の セル に 順番 に 格納 し て いま す 。 書き込み 処理 
と 同じ よう に 、 内 側 の For..Next ルー プ で 列 番号 を 、 外 側 の ルー プ で 行 番号 を 指定 
し 、 左 上 の セル か ら 列 方 向 に 順番 に デー タ を 格納 し て いき ます 。 こ の 順番 は 、 デ ー 
タ 書 き 込 み の 処理 と 同じ に し て くだ さい 。 そ うし な いと 、 セ ル の ポジ ショ ン と 値 が 
保存 し た と き と 一 致し な く な り ま す 。 


For i = 1 mo9 
For ] = 1 mo 5 
Get #1, RecNo, Data 


Gt ステ ー ト メン トド の 潮 式 人 作法. さ な 人 な 
Get [ 提 ] Ei1enumber, [recnumber] , ゞ arname 


Fi1enumber 開い て いる ファ イル の ファ イル 番号 を 指定 し ます 。open ステ ー ト メン 
ト で 指定 し た 番号 と 同じ 番号 を 使い ます 。 

recnumber 読み 出す デー タ の レコ ー ド 番号 を 指定 し ます 。 フ ァイル の 中 の デー タ 
は この 番号 を 使っ て アク セス する こと が で き 、 任 意 の 番号 を 指定 する 
こと で 任意 の 位置 の デー タ を 読み 出す こと が で きま す 。 

Yarname 読み 込ん だ デー タ を 格納 する 変数 を 指定 し ます 。 


く 例 > 
次 の 記述 は 、 フ ァイル の 先頭 か ら 2 番目 の 位置 に ある デー タ を 読み 込み ます 。 


Get 提 1, 2, Data 


に し た エエ ナミ オオ ミエ エミ エエ オ エエ エミ メオ ミミ トミ ミト KILLIKKKKIKYKYKKYKEKSKEKKKKKKKKRRKRIRRRKKREEKKKEKKKK ミ KEK 
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$ この と き 、 た と えば 3 桁 の 数 字 の 場合 は 、 テ キス ト フ ァイル か ら そ の まま 読み 込 
ん で セル に 転送 する と 、 数 字 が セル の 中 央 に 表示 さき れ て し まい ます 。 
これ は 、 フ ァイル の デー タ を セル に 転送 する 際 に 、10 桁 に 満た な い 数 字 は 、 人 後ろ 
に 空白 を 付け て 10 文 字 に な る よう に 調整 され て 、 い っ し ょ に セ モル に 転送 され て し ま 
うか ら で す 。 
し た が っ て 、 デ ー タ を モル に 転送 する 前 に 、 数 字 以 外 の 空白 を 取り 除い て 、 数 字 
だ け を セル に 転送 する よう な 文字 列 処理 を 行っ て あげ ます 。 


10 文 字 に 満た な い 数 字 は 
この よう に 表示 され て し 
まう 





まず 、Get ス テー トメ ント で 読み 込ん だ セ モル 1 つ 分 の デー タ が 何 文字 ある の か を 
Len 関数 で 数 えま す 。 

次 に 、For..Next ス テー トメ ント と Mid 関数 を 組み 合わ せ て 、 デ ー タ の 先頭 か ら 
1 文字 ずつ 取り 出し ます 。 取り 出し た 文字 は 変数 「cc」 に 格納 し 、TT ス テー トメ ント 
で 空白 で な いか どう か を チェ ッ ク し ます 。 そ し て 、 空 白 で な けれ ば 、 変 数 「Data2] 
に 格納 し ます 。 

この 処理 を 、 デ ー タ の 全文 字 に 対し 行え を ば 、 空 白 を 取り 除い た 数 字 だ けが 変数 
「Data2] に 代入 きれ ます 。 


Num = Len (Daa ) 
For k = 1 mo Num 
CC = MG(Data, kg, 1) 
まま の GG で テテ" Du 
Data2 = Data2 & Cc 
End エモ 
Nex セ 
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あと は 、 こ の 数 字 を フレ キシ ブル グリ ッ ド コン トロ ー ル の Text プ ロ パ ティ に 代入 
すれ ば 、 セ ル に 右 詰め で 数 字 が 表示 され ます 。 


With MSF1exxG ェ 1d1 
<Co1 = ゴ 
・Row = エ 
・TexE = Data2 
End With 


1 デー タ 分 使用 し た 変数 「Data2] は 、 次 の デー タ の た め に "" を 代入 し 初期 化し て 
お きま す 。 そ し て 、 レ コー ドド 番号 を 1 つ 増 や し 、2 番 目 以降 の デー タ に 対し 同じ 処理 
を 繰り 返し ます 。 


Data2 = "m 
RecNo = RecNo + 1 
Nex セ 
Nex セ 


最後 に 、 フ ァイル を クロ ー ズ し 、Exit ス テー トメ ント で 正常 な 処理 の プロ シー ジ 
ャ を 終了 し ます 。 ま た 、 ラ ベル [BACK」 を 設定 し 、 エ ラー 処理 の 終了 処理 を 作成 
し て 完成 で す 。 


C1ose #1 
Exi モ 上 Sub 


プロ グラ ム を 起動 し 、 デ ー タ を 入力 し た の ち に ファ イル を 保存 し ます 。 一度 プロ 
グラ ム を 終了 し 、 再 度 同 じ フ ァイル を 開く と 、 保 存 し た と き と 同 じ セ ル 位 置 に デー 
タ が 格納 され ます 。 

例 と し て 、「Lesson04] フォ ル ダ の 「testecal を 開い て みて くだ さい 。 
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フレ キシ ブル グリ ッ ド コン トロ ー ル の 「CellAlignment]」 プロ パテ ィ を 使用 する と 、 
セル 内 に 表示 する 文字 の 表示 位置 を 設定 で きま す 。 こ の プロ パティ は デザ イン 時 に は 設 
定 で きず 、 コ ー ド か ら 行 いま す 。 た だ し 、 今 回 の よう に 空白 を 含む 文字 列 の 場合 は 、 空 
白 も 文字 と し て 扱わ れ て し まい ます 。 

プロ パテ ィ の 設定 値 は 定数 で 、 次 の 値 を 使用 し ます 。 





|: 敵 還 に 


eemoo セル の 内 容 は 左側 の 上 に 配置 され ます 。 


flexAlignLeftCenter 文字 列 の 既定 値 で す 。 セ ル の 内 容 は 左側 の 中 央 に 配置 
され ます 。 


| fexAignLeftBottom | ら | セル の 内 容 は 左側 の 下 に 配置 され ます 。 = | 
| iexAlignCenterCenter | 4 | セル の 内 容 は 中 央 の 中 央 に 配置 され ます 。 | 
oiEaWaBeRi 了 Eb 


flexAlignRightTop 5 隊 の 和 れ ま す 。 





flexAlignRightCenter 数 値 の 既定 値 で す 。 セ ル の 内 容 は 右側 の 中 央 に 配置 さ 
れ ま す 。 





flexAlignRightBottom セル の 内 容 は 右側 の 下 に 配置 され ます 。 


flexAlignGeneral セル の 内 容 は 通常 の 方 法 で 配置 され ます 。 つ まり 、 文 
字 列 は 左側 の 中 央 に 配置 され 、 数 値 は 右側 の 中 央 に 配 
置 さ れ ま す 。 








変数 を 「 モ ジュ ー ル レベ ル 変 数 ] と し て 宣言 する と 、 そ の フォ ー ム モジ ュー ル 内 の す 
べ て の プロ シー ジャ か ら 宣 言 し た 変数 を 参照 する こと が で きま す 。 変数 の 値 を 共有 し た 
いと き に は モジ ュー ルレ ベル 変数 と し て 宣言 する の が よい で し ょ う 。 

反対 に プロ シー ジャ 内 で 宣言 する 変数 は 「 ロ ー カ ル 変 数 ] と 呼ば れ 、 そ の プロ シー ジ 
ャ 内 だ け で 有効 な 変数 に な り ま す 。 
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ファ イル を 指定 し .… 
[開く ]」 を クリ ッ ク す る 





デー タ が セル に 
格納 され る 
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ラン ダム アク セス モー ド で の デー タ の 読み 込み は 、 読 み 出す デー タ の レコ ー ド 番号 
を 指定 し て 、Get ステ ー ト メン ト を 実行 し ます 。 

この プロ グラ ム で は 、 フ ァイル を 先頭 か ら 順 番 に アク セス し て デー タ を 読み 込み ま 
し た が 、 レ コー ド 番 号 を 上 手 に 使え ば 、Microsoft Access の よう に 、 デ ー タ を 選ん 
で 入力 ・ 更 新 す る こと が で きま す 。 


@c》 練習 問題 


接 「#1」 と 指定 し て 使用 し て いま す が 、 他 の アプ リケーション に よっ 
て この 番号 が 使わ れ て いる 場合 が あり ます 。 

そこ で 、 空 いて いる ファ イル 番号 を 返す 「FreeFile」 関数 を 使用 し て 、 
現在 使用 可能 な ファ イル 番号 を 取得 し て か ら 使用 する よう に プロ グラ ム 
を 修正 し て くだ さい 。FreeFile 関数 の 使用 方 法 は 簡単 な の で Visual 
Basic の オン ライ ン ヘ ルプ を 参照 し て みて くだ さい 。 


〇 1 この プロ グラ ム で は 、Open ステ ー ト メン ト で 使用 する ファ イル 番号 を 、 
直 


解答 は 巻末 に 一 





キー ボー ド で 操作 する 


例え ば [Input] ボタ ン を クリ ッ ク し て 入力 する より 、 キ ー ボ ー ド で Enter キ ー を 押し た と き 、 
数 値 が 入力 で きる よう に な る と より ソフ トウ ェ ア ら し く な り ま す 。 

Enter キー が 押さ れ た こと を 処理 に 利用 する に は 、KeyDown イベ ント を 利用 し て み ま し ょ う 。 
考え 方 と し て は 「Text1] コン トロ ー ル 上 で Enter キー (KeyCode = 13) が 押さ きれ た と き に 
[Inputl ボタ ン と 同じ 動作 を きせ る よう に し ます 。 以下 の コー ド を 追加 し て み ま し ょ う 。 


Private Sub Tex モ 1 KeyDown (KeyCode As Tnteger, ShiEt AS 
ェ エ nteg@r ) 
ェ エ F KeyCode = 13 Then 
MSF1exG ェ 1d1 . mext = Tex モ 1 .Tex 
Text1 .Tmex モ = 『m 
End エモ 
End Sub 














第 1 日 4 時 限 目 か ん た ん 表 計 算 ソ フト の 作 





Visual Basic60 
実 中 教室 











基 どど 日 (Lesson5 ~ Lesson7) 
ワー プロ ソフ ト の 
作成 


Visual Basic 6.0 に 装備 され て いる 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル は 、 
テキ スト ボッ クス コン トロ ー ル を 機能 拡張 し て 、 文 字 の 装飾 や イン デン ト の 設 
フォ ント の 選択 な ど が 行え る コン トロ ー ル で す 。 そ の 機能 は 大 変 強力 で 、 他 の 
ActiveX コン トロ ー ル と 組み 合わ せる と 、 ち ょ っ と し た ワー プロ ソフ ト な み の プ 
ログ ラム を 自分 で 作成 する こと が で きま す 。 

この レッ スン で は 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル 、 ツ ー ル バー コン トロ ー 
ル 、 イ メー ジリ スト コン トロ ー ル を 組み 合わ せ て 、 簡 易 ワ ー プ ロ ソ フト を 作成 し ま 
die 

今日 の レッ スン で 解説 する 項目 

ツール バー コン トロ ー ル の 設定 

ロイ メー ジリ スト コン トロ ー ル へ の イメ ー ジ の 組み 込み 

ロロ ツールバー コ ント ロー ル と イメ ー ジ リス トコ ント ロー ル の 連動 操作 

ロア イコ ン フ ァイル の サイ ズ 

ロロ ツール バー コン トロ ー ル の イベ ント プロ シー ジャ の 処理 

ロロ リッチ テ キス ト ボ ックス コン トロ ー ル の 設 

RTF 形 式 で の ファ イル の 保存 と 読み 込み 

ロロ ツールバー コン トロ ー ル と リッ チ テ キス ト ボ ックス コン トロ ー ル の 連携 

コモ ンダ イア ログ ボッ クス コン トロール を 使っ た ファ イル 名 の 取得 と 設 

日 選択 し た 文字 列 の フォ ント 操作 と 文字 色 の 設 

日 選択 し た 文字 列 の 表示 位置 の 操作 

コン ボボ ックス コン トロ ー ル と リッ チ テ キス ト ボ ックス コン トロール の 連携 操作 
ロリ ッ チ テキ スト ボッ クス コン トロ ー ル の 印刷 機能 












































ツー ル バ ー コ ント ロー ル の 組み 込み 


まず は 、 フ ォ ー ム に ツー ル バ ー を 組み 込み ます 。 ツ ー ル バー コン トロ ー 
ル を 使う と 、 簡 単に プロ グラ ム に ツー ル バ ー を 作成 で きま す 。 ま た 、 イ 
メー ジリ スト コン トロ ー ル を 使っ て 、 こ の ツー ル バ ー に グラ フィ ッ ク を 
組み 込み 、Microsoft Word の よう な ツー ル バ ー に 仕上 げ ま す 。 





























今回 作成 する プロ グラ ム 
Sm 。。 = 
グラ フィ ッ ク を 組み 込ん だ 園 
- 証 ツー ル バ ー を 作成 する 。 同 
第 ら 日 
1 時 限 目 


CH Lesson5.vhp 
⑥⑤) VBecD2 
ペコ Lesson05 


ツー ル バ ー コ ント ロー ル は 、1 つの コン トロ ー ル で いく つ で も ボ 
タン を 組み 込む こと が で きま す 。 ま た 、 イ メー ジリ スト コン トロ ー 
ル と 組み 合わ せる こと で 、 好 き な グ ラフ ィ ッ ク を ツー ル バ ー の ボタ 
ン に 貼り 付け る こと が で きま す 。 

イメ ー ジ リス トコ ント ロー ル は 、 複 数 の アイ コン や ビッ トマ ッ プ 
を 一 元 管理 する 便利 な コン トロ ー ル で す 。 こ の コン トロ ー ル を 使え 
ば 、 い くつ も の イメ ー ジ ファ イル を 持ち 歩く 必要 は あり ませ ん 。 























Lesson 5 ツー ル バ ー コ ント ロー ル の 組み 込み 


りり コントロール と プロ パティ の 設定 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 ま た 、 付 
録 CD-ROM に 収録 され て いる 「Materiall フォ ル ダ 内 の ファ イル 
を 利用 し ます 。 


ツー ル パ レ ッ ト を マウ ス の 有 ポタ ン で クリ ッ ク し 、 
メニ ュー か が から [コン ポー ネン ト ] を 選 応 








の 追加 @). 
| ンド 味 り が 可能 ⑯) 
_ 非 表示 


[Microsoft Windows Common Control 6.0] を 
チェ ッ ク し 、[OK] ボタ ン を クリ ッ ク す る 










Microsoft Rich Textbox Control 6D 
Microsoft Sysjnfo Control 60 
] Microsoft Tabbed Dialoe Control 6 


Microsoft Wallet 還 定 | 味 


Microsoft Windows Common Controls 50 ⑤P2) 









IMicrosoft Windows Common Controls-2 50 GP2) 
Microsoft Windows Common Controls-2 60 
] Microsoft Windows Common Controls-3 6D 
Microsoft Winsock Control 60 


た 32 ーー 台 台 を リッ 必 


ツー ル パ レ ッ ト に コモ 
ンコ ント ロー ル か が 追加 
され る 




















< ぐ レ (Spa) に つい て 


Visual Basic で は 「Service 
Pack (サー ビス パッ ク )」 
と いう アッ プ デ ー タ が 用 
意 き れ て いま す 。 アップ 
デー ト さ れ て いる 場合 、 
コン トロ ー ル 名 の 右端 に 
「(SP3)」 な どの サー ビス パ 
ッ ク 名 が 表示 され て いる 
こと が あり ます 。 


第 ら 日 1 時 限 目 ワー プロ ソフ ト の 作成 


アー ム を 広げ る 


フォ ー ム を 広げ る に は 、 
フォ ー ム の 周囲 に 表示 さ 
れ て いる サイ ズ 変 更 ハン 
ドル (黒い 四角 形 ) を 外 
方 向 に ドラ ッ グ し ます 


ぐ ぎ [ ] ポタ ン 


[…] ボタ ン は 、 そ の プロ 
パテ ィ の 詳細 な 指定 を 行 
う ダ イア ログ ボッ クス が 
用 意 き れ て いる こと を 示 
し て いま す 。 








フォ ー ム を 広げ 、 ツ ー ル パレ ッ ト の [ImageList] 
本 を 使っ て イメ ー ジ リス トコ ント ロー ル を 配置 する 





プロ パテ ィ ウ ィ ン ド ウ の [( プ ロ パ ティ ペー ジ )] を 
クリ ッ ク し [.……〕] ボタ ン を クリ ッ ク す る 


7 ロバ ティ - ImageList1 






ここ を クリ ッ ク 
ImageList1 
報 ) 
計 志 リャ 
口 &H80000005s 馬 =ーーーーーーーーーー ここ を クリ ッ ク 
p 
n 


4680 
国 HOOC0C0CO0& 


24H 
UseMaskColor True 


$ [全般 ] タブ の [16x16] を クリ ッ ク す る 





| 例 疫 | な | 色 





ここ を クリ ッ ク 


Lesson 5 


ツー ル バ ー コ ント ロー ル の 組み 込み 





ト [イメージ] タダ タプ を クリ ッ ク し て [ピク チャ の 掴み ] 


ボタ ン を クリ ッ ク す る 
| - 現在 の イジ ーーー ーーーーーー | 


| 2 び F の 本 





「Materiall フォ ル ダ に ある 「Disk_3j.ico」 を 選び 、 
[開く ] を クリ ッ ク す る 





「Disk_3jiico」 
| oe を 選ぶ 
引 


市 Documntico b Fneerco 


Drive ico 凍 和 や ぼ ! 


計 Drveaico Floppy_1 co 急 ! 

密 Fie07ico 回 Foppy 2co の ! 肖 
5 

Disk_3jico 

















rcenter ico 
check ico 





IE' ッ ト Y227 お よび アイ コル ファ イル (* bmp. * ico) 


選択 し た アイ コン が 4 日 ディ ャ ページ] ダイ ヂ 戸 
グ の 「[ イ メー ジ ] ボッ クス に 追加 され る 


イー が (M): 





感 
ヒ ウ の 削 除 (R) | 


OK | キャ ン セ ル | 





第 ら 日 








[ピク チャ の 挿入 ] 
ぐ プ ホ タ ン 

[ピク チャ の 挿入 ] ボタ ン 
を クリ ッ ク す る と 、 ピ ビク 
チャ を 選択 する た め の 
[ 図 の 選択 ] ダイ アロ グ ボ 
ックス が 表示 され ます 。 


「Material」 
ダフ ォ ル ダ の 場所 
[ファ イル の 場所 ] ボッ ク 
で 、「Materiall フォ ル 
ダ を コピ ビー し た 場所 を 選 
択 し て くだ さい 。 


追加 され た 
< ティ コン 


[イメ ー ジ ] ボッ クス に 追 
加 さ れ た アイ コン が 、 フ 
ォ ー ム 上 の イメ ー ジ リス 
トコ ント ロー ル に 追加 さ 
れ ま す 。 





1 時 限 目 ワー プロ ソフ ト の 作成 


62 











の [キー] ボッ クス に 「save」 と 入力 する 


全 酸 な ゲ | 多 1 








』 手順 6 か ら 9 を 繰り 返し て 、 次 の アイ コン を 設 
定 し 、 最 後に [OK] ボタ ン を クリ ッ ク す る 


ファ イル 名 
File07.ico Open 





Center.ico center 
Left.ico 




















例 杭 サッ | 色 | 
0020 須  iE… "= > = っ っ 上 還 叫 
な 

回 きら 

] 恨 
ウォ の 削除 (RO | な ッ 球 世 





LessSon 5 ツー ル バ ー コ ント ロー ル の 組み 込み 


11H ツー ル パ レ ッ ト の [Toolbar] 国 を 使っ て 、 
フォ ー ム に ツー ル バ ー コ ント ロー ル を 配置 する 


| 斜め に ドラ ッ グ 
し て 配置 





明 [プロ パテ ィ ペ ー ジ ] の [全般 ] タブ で 、[ イ メー 
ジリ スト ] に [ImageList1] を 指定 する 







全般 | ホ %9 1P9 | 


と を タリ ッ ク 











の ぇ ポ 人 WM: 
QtE Rn27* モ NR(DD 0 - ccOLEDropNone 
イダ リト び ImaweLst1 
陸 e ここ を クリ ッ ク 
* ト 條 ーッ リ メ ト ①D 
へ M2" マテ キス ト 番号 5 ^M2" 7 ーーーーー 
本 釣 の 商 さ (は 595 レ ュ - 訟 定 ⑯) 折り 退 し @ 
本 の 幅 ⑩: mo 呈 レ ト を 表示 ⑮⑤ レレ 1 イ ^ ツ NB2 識 ⑥ 


描画 z%1 ル P): [な | 填 界 線 @ ID-ccNone 選 
きえ ト の 配置 9 ーー tbrTextAlignBottom 中 
22fM⑰: Stardsrd 


』 [ボタ ン ] タブ を クリ ッ ク し 、[ ボ タン の 挿入 ] を 
クリ ッ ク す る 





ーー ニニ ニニ ーー 一 旧 」 EZ 
や デ 220。 F  < 円 の 揚 入 _ 
どど ご を クリ ッ ク 













252@ ーー 上 昌 HOT 
| キ ⑩ ーー ニー 
上 2274 cpeet 選 
| ケル PIG ea 
| 妙 @ 
| 3 レツ ト 識 (⑥  「 ルー 表示 ⑩ 
| たこ 1 
屋 の ウン ビー | 9 た ュー の 振 AO | E 
RS5 さ 3 (0 2083] つっ 
F 5 [に 








ぐ デ ワ ロ ル ティ ベー 

ジリ タダ コグ 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 プ ロ パ ティ ウイ 
ンド ウ の [( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [..] ボタ ン を クリ ッ 
多 屋 まず 





第 ら 日 1 時 限 目 ワー プロ ソフ ト の 作成 








1 邊 [キー] に 「open」、[ ツ ー ル ヒン ト ] に 「 フ ァ イ 
ル を 開く 」、[ イ メー ジ ] に 「open」 と 入力 する 
「open」 と 入力 


「 フ ァイル を 開 
< 人 2 ガ 









レ 表示 レツ ト 認 工 6 「 ダレ 表示 
ボ 多 ューーーー ーーーーーー ーーーーーー 


の ロー ーー の mA | 


ゞ s+ 
y 
で る 
記 
\ 


「open」 と 入力 


6 手順 13 と 14 を 繰り 返し て 、 残 り の 5 つの ボタ 
ン を 組み 込み 、 最 後に [OK] を クリ ッ ク す る 


イン デック ス キー レー レス に 
ファ イル 保存 SaVe 
記 center | ーー center 

















| 全般 ポ 必 ty | 
| 7 の 2 E 組 ーーーーー ポ め の 削除 7 | | 
| If2526W| - - 

| 生生 pr hp-erueessed 司 
29⑤。 [p-trpcun =| 自 の cz の fmmmmmm 


ckCtGO 折 証 。 。 。 〇 。、 、 、 、 皿 @Erd 
久 ① 











ーーーーーーーーーー 
表示 レツ 誠 6 「 が 表示 
9 た ューーーーーー 


| 科 み テ ー =-A 





に 設定 する 


上 6⑬ [BorderStyle] プロ パテ ィ を 「]1-ccFixedSingle」 








Toaolbar1 Tagolbar ェ 
全体 | 項目 串 | 
ブツ ェ 外 名 ) 
の ジョ ッ 情報 ) 
mW ティ パージ 

1 - vbalignTap 


Taolbar1 





Lesson 5 





DragMode U - vbManual | 

Enabled True | 

Height 42H ] 

HelpContextD 1H 

I ロ sjpFils 

ea E w 

』 / 完成 し た ツー ル バ ー 

il 6 8 問 回 相 
| 記 略 計 革 ] 選 当 | | 

第 ら 日 


ここ を クリ ッ ク 
ここ を クリ ッ ク 


ツー ル バ ー コ ント ロー ル の 組み 込み 





1 時 限 目 ワー プロ ソフ ト の 作成 





1 





イメ ー ジ リス トコ ント ロー ル は 、 複 数 の アイ コン や ビッ トマ ッ プ イメ ー ジ を 、1 
つの コン トロ ー ル に 格納 し て 管理 する コン トロ ー ル で す 。 使い 方 は 、 画 面 の 操作 で 
説明 し た と お り 、 実 に 簡単 で す 。 初期 設定 は 、 コ ント ロー ル の [( プ ロ パ ティ ペー ジ )] 
で 行い ます 。 


① イ メー ジリ スト コン トロ ー ル を クリ ッ ク し て 、 プ ロ パ ティ ウィ ンド ウ か ら [プロ 
パテ ィ ペ ー ジ ] ダイ アロ グ ボ ックス を 開き ます 。 


⑫ 最 初 に 、 格 納 す る イメ ー ジ の サイ ズ を 指定 し ます 。「16 x 16] と いう の が その サ 
イズ で 、 こ れ は 「 縦 横 が 16 ドッ ト の サイ ズ 」 と いう 意味 に な り ま す 。 通常 、 ア プ 
リケーション の アイ コン は 、「32 x 32] ドッ ト の サイ ズ で 、 タ スク バー や フォ ー 
ム に 表示 され る アイ コン の サイ ズ が 「16 x 16] ドッ ト に 相当 し ます 。 
ここ で は 、 小 さい サ イズ の ツー ル バ ー を 作成 する た め に 、「16 x 16] ドッ ト の サ 
イズ を 指定 し まし た 。 サ イズ を 設定 する と 、 こ の イメ ー ジ リス トコ ント ロー ル に 
追加 する イメ ー ジ は 、 す べ て この サイ ズ に 統一 され ます 。 





③ 次 に [イメー ジ ] タプ の [ピク チャ の 挿入 ] ボタ ン で 、 ア イコ ン ま た は ビッ トマ 
ッ プ イメ ー ジ を 挿入 し ます 。 こ の と き に 、「 イ ン デ ックス 」 の 数 字 が 自動 的 に 増加 
され て いき ます 。「 イ ン デ ックス | は 、 あ と で この イメ ー ジ を 取り 出す と き に 参照 
する イン デック ス 番 号 と し て 使わ れ ま す 。 


(《④ ビ ピク チャ を 挿入 し た ら 、「 キ ー」 に 名 前 を 付け ます 。 イ メー ジリ スト コン トロ ー ル 
に 格納 し た イメ ー ジ を 使用 する 場合 は 、 イ ン デ ックス 番号 を 使う か 、 ま た は この 
「 キ ー」 に 記述 し た 名 前 で 参照 し ます 。 イ メー ジ に 合っ た 「 キ ー」 の 名 前 を 付け た 
ほう が 、 あ と で 参照 する と き に 番号 より も わか りや すく な り ま す 。 


Lesson 5 ツー ル バ ー コ ント ロー ル の 組 : 





この 操作 で 、 イ メー ジリ スト コン トロ ー ル に 複数 の イメ ー ジ を 格納 し て 、 他 の コ 
ント ロー ル で 自由 に これ ら の イメ ー ジ を 使用 で きま す 。 


才 参 ワン ポイ ント アド バイ ス 


イメ ー ジ リス トコ ント ロー ル に 追加 する イメ ー ジ が 「32 x 32] ドッ ト の サイ ズ な 
の に 、 イ メー ジリ ス トコ ント ロー ル で 指定 する サイ ズ が 「16 X 16] ドッ ト の 場合 は 、 
イメ ー ジ は 自動 的 に 縮小 され て 格納 され ます 。 


つろ)= ツー ル バ ー コ ント ロー ル は 、 プ ログ ラム に ツー ル バ パー を 組み 込ん で くれ る コン ト 
ロー ル で す 。 こ れ ま で は 、 自 分 で コマ ンド ボタ ン を 組み 合わ せ て 作成 し て いま し た 
が 、 ツ ー ル バー コン トロ ー ル が で き て か ら は 、 こ の コン トロ ー ル の プロ パテ ィ を 設 
定 す る だ け で 、 簡 単に 作成 で きる よう に な り ま し た 。 ま た 、 イ メー ジリ スト コン ト 
ロー ル と 組み 合わ せる と 、 グ ラフ ィ ッ ク 付 き の ツ ー ル バー が 作成 で きま す 。 
この コン トロ ー ル も 、 プ ロ パ ティ ペー ジ で 初期 設定 を 行い ます 。 


① [全般 ] タプ に ある [イメ ー ジ リス ト ] で 、 ボ タン に 組み 込む イメ ー ジ リス トコ 
ント ロー ル を リス ト ボ ックス か ら 選 択 し ます 。 


[ボタ ン ] タブ を クリ ッ ク し 、[ ボ タン の 挿入 ] ボタ ン を クリ ッ ク し て 、 ツ ー ル バ 
ー コ ント ロー ル に ボタ ン を 追加 し ます (この 操作 を 行わ な か いと 、 ツ ー ル バー コン 
トロ ー ル に ボタ ン が 組み 込め ませ ん )。 
ボタ ン が 追加 きれ る と 、「 イ ン デ ックス の 数 字 が 増加 し ます 。 こ の 数 字 で 、 ユ ー 
ザー が 選択 し た ボタ ン の 種類 を 判別 する こと が で きま す 。 


③「 キ ー| は 、 ボ タン 1 つ 1 つ に 固有 の 名 前 を 設定 し ます 。 
「 キ ー」 に 任意 の 文字 を 設定 する と 、 ユ ー ザ ー が 選択 し た ボタ ン の 種類 を この 文 
字 で も 把握 で きま す 。 イ メー ジリ スト コン トロ ー ル と 同様 、 数 字 で は な く 文 字 で 
ボタ ン を 識別 で きる の で 、 ボ タン の 種類 が わか りや すく な り ま す 。 
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[キー] に 文字 を 設定 
する と 、 ボ タン の 種類 
が わか りや すく な る 





④「 イ メー ジ | に 、 イ メー ジリ スト コン トロ ー ル に 組み 込ん だ イメ ー ジ の イン デ ッ 
クス 番号 また は キー を 記述 する と 、 そ の イメ ー ジ を ボタ ン に 組み 込め ます 。 
また 、「 キ ャ プシ ョ ン 」 に 文字 を 記述 すれ ば 、 ボ タン の 表面 に イメ ー ジ と 文字 を 同 
時 に 表示 で きま す 。 
グラ フィ ッ ク 表 示 の ボタ ン の 場合 は 、 イ メー ジリ スト コン トロ ー ル の イメ ー ジ サ 
イズ に よっ て 、 ボ タン の サイ ズ が 変わ り ま す 。 


細 [キャ プシ ョ ン 」 だ け を 設定 
「 イ メー ジ 」 だ け を 設定 
W ン / 両方 を 設定 


⑤) [全般 ] タブ の [ヒント を 表示 ] に チェ ッ ク を 付け 、[ ボ タン ] タブ の [ツー ル ヒ 
ント ] に 簡単 な 説明 を 入力 すれ ば 、 ツ ー ル バー コン トロ ー ル の ボタ ン に ツー ル ヒ 
ント を 設定 で きま す 。 








この よう な 手順 を 踏ん で 、 プ ログ ラム に ツー ル バ ー コ ント ロー ル を 組み 込み ます 。 


Lesson 5 ツー ル バ ー コ ント ロー ル の 組み 込 


「 ツ ー ル ヒン ト 」 を 
表示 する ツー ル バ ー 





フォ ー ム に 配置 し た ツー ル バ ー コ ント ロー ル は 、[Align] プロ パテ ィ を 設定 する と 、 
自動 的 に その 位置 に 配置 され ます 。 [Align] プロ パテ ィ の 値 を [O vbAlignNone] 
に 設定 する と 、 フ ォ ー ム の 好き な 位置 に ツー ル バ ー コ ント ロー ル を 配置 で きま す 。 


る ツー ル バ ー コ ント ロー ル の いずれ か の ボタ ン が 、 ユ ー ザ ー に よっ て クリ ッ ク さ れ 
る と 、 コ ント ロー ル に は 「ButtonClick と いう イベ ント が 発生 し ます 。 こ の イベ ン 
ト に 対応 し て いる イベ ント プロ シー ジャ は 、 呼 び 出さ れる と 、 引 数 に 「Button」 オ 
プ ジ ェ クト の 参照 が 格納 され ます 。 

そし て 、 こ の オブ ジェ クト の [Key] プロ パテ ィ を 参照 する と 、 ど の ボタ ン が ク 
リッ ク さ れ た の か が わか る よう に な っ て いま す 。[Key] プロ パテ ィ は 、 ツ ー ル バー 
コン トロ ー ル の プロ パテ ィ ペ ー ジ で 設定 し た 「 キ ー」| の 値 を 格納 し て いる プロ パテ 
イ で すず 。 

で は 、 簡 単 な コ ー ド を 作成 し て 、 ツ ー ル バー コン トロ ー ル の クリ ッ ク さ れ た ボタ 
ン の 種類 を 把握 し て み ま し ょ う 。 ま ず 、 フ ォ ー ム に 配置 し た ツー ル バ ー コ ント ロー 
ル を ダブ ルク リッ ク し て 、 ButtonClick イ ベン ト プ ロ シー ジャ を 表示 し ます 。 そし て 、 
次 の コー ド を 入力 し ます 。 


P ェ ュ ivate Sub moo1ba エ 1 But モ onC1iok (ByVa1 Button AS 
MSComo モ 1 エ Tb . Bu モモ On ) 
MsgBoOxx Bu ヒ On .KeY 

End Sub 
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プロ グラ ム を 実行 し て み ま す 。 ツ ー ル バー コン トロ ー ル の いずれ か の ボタ ン を 1 
つ ク リッ ク す る と 、 そ の ボタ ン に 設定 し た 「 キ ー」 が 表示 され ます 。 こ の よう に 、 
Button オプ ジェ クト の [Key] プロ パテ ィ を 使う こと で 、 ど の ボタ ン が クリ ッ ク さ ミ 
れ た の か を 判断 で きま す 。 


の 7K 呈 で クリ ッ ク し だ 


キー の 名 前 が 表示 され る 





者 天 ワン ポイ ント アド バイ ス 


今回 使用 し た 「Microsoft Windows Common Control6.0」 は 、Visual 
Basic5.0 に 搭載 され て いた 「Microsoft Windows Common Control5.0」 か ら 、 
イベ ント プロ シー ジャ の 引数 が 変更 され て いる も の が あり ます 。 

し た が っ て 、「Microsoft Windows Common Control5.0」 を 使っ て 作成 し た コー 
ド は 、 そ の まま で は 「Microsoft Windows Common Control6.0」 で は 使用 で きま 
せん の で 注意 し て くだ さい 。 


[Microsoft Windows Common Control5.0」 の ツー ル バ ー コ ント ロー ル の 
ButtonClick イベ ント プロ シー ジャ 


P ェ ュ yate Sub Too1bar1 ButtonC1iok (ByVa1 Button AS 
Comot1 エ D . Bu 上 On ) 


圏 [Microsoft Windows Common Control6.0」 の ツー ル バ ー コ ント ロー ル の 
ButtonClick イベ ント プロ シー ジャ 


P ェ ュ ivate Sub Too1ba エ 1 Bu モ onC1iofk (ByVa1 Button AS 
MSComot1 エ 1b . But モ on ) 


※ 引数 Button の デー タ 型 名 (オブ ジェ クト 名 ) が 違っ て いる 
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イメ ー ジ リス トコ ント ロー ル は 、 他 の コン トロ ー ル に 複数 の イメ ー ジ を 提供 する コ 
ント ロー ル で 、 イ メー ジフ ァイル の 一 元 管理 が で きる 優れ た 機能 を 持っ て いま す 。 

また 、 ツ ー ル バー コン トロ ー ル は 、 プ ログ ラム に 簡単 に グラ フィ ッ ク 付 き の ツ ー ル 
バー を 装備 で きる 便利 な コン トロ ー ル で す 。 

いずれ も 、「 プ ロ パ ティ ペー ジ 」 と いう 新しい プロ パテ ィ 設 定 機能 を 持っ た コン トロ 
ー ル で す 。 こ の プロ パテ ィ ペ ー ジ は 、 プ ロ パ ティ ウィ ンド ウ に 比べ プロ パテ ィ の 設定 
が わか りや すく な っ て いま す が 、 プ ロ パ ティ 名 と の 関連 が わか り づ らい 面 を 持っ て い 
ます 。 


る ec 練習 問題 


新しい プロ ジェ クト ファ イル を 用 意 し 、 フ ォ ー ム に イメ ー ジ リス トコ 

ント ロー ル と ツー ル バ ー コ ント ロー ル を 組み 込ん で くだ さい 。 

① 使 用 する イメ ー ジ は 、 付 録 デ ィ ス ク の 「materiall フォ ル ダ に ある 
「244.ico] か ら 「247.ico] の 4 つの アイ コン を 使用 し ます 。 

⑧⑥ イ メー ジリ スト コン トロ ー ル の イメ ー ジ サイ ズ を 「32x32」 で 組み 込 
ん で くだ さい 。 


解答 は 巻末 に 一 


ツー ル バ ー の カス タマ イズ 


ツー ル バ ー コ ント ロー ル は 、 デ フォ ルト で 、 ツ ー ル バー 項目 を カス タマ イズ する 機能 を 持っ 
て いま す 。 プ ログ ラム 実行 後 、 ツ ー ル バー の 空い て いる (ボタ ン の 無い ) 部 分 を ダ プ ルク リッ 
ク し て くだ さい 。 ボ タン を カス タマ イズ する た め の ダ イア ログ ボッ クス が 表示 され ます 。 





| ツー ル バ ー を ダブ ル 
] クリ ッ ク す る と 項目 
| を カス タマ イズ 可能 
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リッ チ テ キス ト ボ ックス コン トロール の 配置 


この レッ スン で は 、 フ ォ ー ム に リッ チ テ キス ト ボ ックス コン トロ ー ル と 
コモ ンダ イア ログ ボッ クス コン トロ ー ル を 配置 し 、 そ れ ぞ れ の プロ パテ 
ィ を 設定 し ます 。 ま た 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に 入力 し 
た 文字 列 を ファ イル に 保存 し 、 ま た ファ イル か ら 読 み 込む 機能 を 、 そ れ 
ぞ れ の プロ シー ジャ と し て 作成 し 、 ツ ー ル バー コン トロ ー ル の 
ButtonClick イベ ント に 組み 込み ます 。 


今回 作成 する プロ グラ ム 











リッ チ テ キス ト ボ ックス に 
入力 され た 文字 列 を ファ イ 
ル と し て 保存 し 、 保 存 さ れ 
た ファ イル を 開く 機能 を ボ 
タン に 組み 込む 


ビー 回 史 同 避 






屋 sssrert 隊 (⑩) | 
ファ 1 の 種類 (D リッ テキ スト Cr =] 。*w ン セル ] 


「 読み 取り 専用 ァイル と し て 開 ^(B の 









リッ チ テ キス ト ボ ックス コン トロール は 、 コ ント ロー ル に 入力 さ 
れ た 文章 (文字 列 ) を 、RTF 形 式 と テキ スト 形式 の 両方 の フォ ー マ 
ッ ト で 保存 で きま す 。 純粋 な 文字 デー タ だ け の テキ スト 形式 に 対し 、 
RTF 形式 は 、 フ ォ ン ト 属 性 や 段落 、 イ ン デ ント な どの 文書 整形 の 属 
性 を いっ し ょ に 保存 で きる ファ イル 形式 で す 。 

読み 書き さす る ファ イル の 名 前 の 設定 ・ 取得 に は 、 コ モン ダイ アロ 
グ ボ ックス コン トロ ー ル を 使用 し て 行い ます 。 


Lesson 6 


条 コン トロ ー ル と プロ バ パティ の 設定 


※ Lesson5 で 作成 し た プロ グラ ム (Lesson5.vbp) を 開い て くだ さ 
い 。 


ツー ル バ レ ッ ド ト を マウ ネス の 守 ポ タン で クリ ッ ク し 、 
メニ ュー か ら [コン ポー ネン ト ] を 選 記 


ここ を クリ ッ ク 








9 の 追加 (. 
リン トッ が 可能 ⑯ 
非 表 示 H 


[Microsoft Common Dialog Control 6.0] を 
チエ 必 多 する 


ヤ H- ル | テ % 人 サ | 挫 入 可能 な わ ツ 52 ト | 












ataGrid Control 60 ⑩LEDB) 
oft Datalist Controls 60 (0LEDB) 
Microsoft DataRapeater Control 6 OLEDB) 





[Microsoft Rich Textbox Control 6.0] を チェ ッ 
ク し 、[OK] ボタ ン を クリ ッ ク す る 





や ヤ ト 0-4 | デザ | 搬入 可能 な わ ツ 5 カト | 















Microsoft NetShow File Transter Control Type Libra 玉 
Microsoft NetShow Player 

Micros ffice Web Components 90 

Microsoft Outlook Express 50 Type Ltbrary = 左 
Microsoft PictureClp Control 60 Fc 







Microsoft Sysjnfo Control 50 
Microsoft Tabbed Dialog Control 6 ロ 
Microsoft Wallet 


こ で ご を クリ ッ ツク 





Microsoft Wmdows Common Controls 50 (5P2) < | 
・ 寺 925 | 


Microsoft Rch Textbox Control 60 
場所 CWWMNDOWSWSYSTEMWRICHTX32OCX 


ここ を クリ ッ ク 





リッ チ テ キス ト ボ ックス コン トロ ー ル の 配置 





Lesson5.vbp 
oo0 ン 272 イグ 


Lesson5.vbp ファ イル は 、 
付録 CD-ROM の 
「Lesson05] フォ ル ダ に も 
収録 され て いま す 。 


コン ポー ネン ト が 
追加 され る 


手 ) 怖 1 3 に より 、 
[CommonDialog] ボタ ン 
と [RichTextBox] ボタ 
ン が ツー ル パ レ ッ ト に 追 
加 さ れ ま す 。 





第 ら 日 ら 時限 目 ワー プロ ソフ ト の 作成 


[プロ パテ ィ ペ ー 
ン ジ ] ダイ アロ グ 

[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
の だ は デ ロ ポテ イッ ウオ 
ンド ウ の [( プ ロ パ ティ ペ 
デジ )] を クリ ッ ク レ じゃ 右 
欄 の [..] ボタ ン を クリ ッ 
み 信 ま が 


7 を 





ツー ル パ レ ッ ト の [CommonDialog] 弄 を 使っ て 、 
コモ ンダ イア ログ ボッ クス コン トロール を 配置 する 


PE に 可 局 
| アイル 


叉 | 加 | き | 言 | 記 | 





6 斜め に ドラ ッ グ 
旧 有 月 堪 旧 昌 骨 sn の 


[プロ パテ ィ ペ ー ジ ] の [開く / 保 存 ] タブ で 、[ フ ィ 
ル タ ] を [リッ チ テ キス ト C.rf).rtf] に 設定 する 


X| 





隊 介 邊 | 色 | 町 AZ | 


HMD: 』 や ” 。 細 計 PD 
7 る 0 。 | " " " 還 の 8 橋 0 |「 
初期 デ も (0) OO 0 Po 
296 






[L-w_ ] *wty | 適 HO | 2 


[既定 の 拡張 子 ] に 「rtf] を 設定 し 、[OK] ボタ ン を 
クリ ッ ク す る 


聞 7 保存 | 色 | フト | 印刷 | AM2" | 


% タ fk [ フ 2 P 
アア 作 名 び : | 不定 の 拉 天 子 0 
初期 デ 2D> トド \ 最大 7 も サ f 人 2 Po 


フル (BR リッ チ テ キス ト rtOrrtf 妙 や デカ z: 
「 キッ MM 交 ユラ ー(, 









5 な 上 A み の 
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ツー ル パ レ ッ ト の [RichTextBox] 市 | を 使っ て 、 | 。。 学 色 の 一 覧 を 表 
/ リッ チ テ キス ト ボ ックス コン トロ ー ル を 配置 する 0 

ボタ ン の 右側 に ある 下 向 
2 き 三 角 を クリ ッ ク す る と 、 
色 の 一 覧 が 表示 され ます 。 





H RichTextBox1 





[プロ パテ ィ ベ ペー ジ ] の 【 全 般 ] タブ で 、 次 の 項目 が | < Jr_ 

w で 2 デ ミ 丸 ン み 本 
チェ ッ ク さ れ て いる こと を 確認 する 9 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 プ ロ パ ティ ウィ 
ンド ウ の [( プ ロ パ ティ ペ 
ー ジ )〕] を クリ ッ ク し 、 右 
欄 の [.…] ボタ ン を クリ ッ 
ク し ます 
















『 [ポッ プア ッ プ メニ ュー の 表示 ] 、 
[イベ ント 認識 ] 、 [複数 行 の 編集 ] 、 
[選択 の 自動 解除 ] 


全般 | 提 画 25%7 ル | 色 | 7y ト 1E ツ | 
ファ 作 名 (E 
OLE トラ EN | - rfOLEDragAutomatic 
OLE ト m27* モ ー ド Py |2 - rfOLEDropAutomatic 
で レポ 2 の 2727* た ュー の 表示 ( め 
ドレ イツ ト 認識 (E) 複数 行 の 編集 
最大 長 (⑯: p 
SE T 編集 n22D ドレ 選択 の 自動 衣 除 (⑬ 
箇条 書き の セテ ツ ト B〉 









[描画 スタ イル ] タブ で 、[ ス クロ ー ル バー] を 
[3 rtfBoth] に 設定 し 、[OK] を クリ ッ ク す る 





全般 拉 画 z%f ル | 色 | フト 1Ey 和 | | 







境界 線 (8 『 - rfFixedSmee 
補償 W In - rmDefsu 
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メ 三 ゴー エディ タタ 
を 起動 する 
メニ ュー エディ タ を 起動 
する に は 、[ 標 準 ] ツー ル 
バー の [メニ ュー エディ 
タ ] ボタ ン を クリ ッ ク し 
ます ず 。 


メニ ュー を 作成 
W さる 訪 ※ 
メニ ュー を 作成 する 詳し 
MM 訪 / 状 に つい いで は 
「Lesson2 合計 計算 処理 の 
作成 ] を 参照 し て くだ さ 
い 
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』 ⑩⑪ [Text] プロ パテ ィ の 文字 列 を 削除 する 





RichTextBox1 RichTextBox 
全体 | 項目 中 | 






1 - rtfOLEDrag ょ 
2 - rtfOLEDropr 


5 
き 絡 一 一 邊 四 文字 列 を 削除 
| 


3 - rtfBoth 
0 
True 


コロ 5. 


ーーーー 
ァイル IDM_FILE 
上 書き 保存 IDM_SAVE 
IDM_PRINT 


Separator ら 
IDM_EXIT 

















hayP に 誠 本 





OK | 
名 前 IpM FE キャ ツ ッ セル | 
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Ed 隊 = ー ド の 記述 


Form1:Toolhar1-ButtonClick 


Teelpar 選 [Buttonclick 選 | 


P エ ュ ゞ a モ ee Sub TOO1 わ a エ 1 Bu モモ onC1iok(ByVa1 Button AS 
MSComo1 エ 1 . Bu 上 On ) 
Se1eot Case But モ on .Key 
Case "ae" 
Ca11 下 i1eSa て e 

















Case "open" 
Ca11 Fi1eroad 
End Se1eo 
End Sub 











(Generab) 


Pub1io Sub Fi1eSave ( ) 
Dim Fname AS String 





With CommonDia1og1 
-Dia1ogTit1e = "ファ イル の 上 書き 保存 " 
・ShowSave 
Fname = .Ei1ename 
End With 
RiochmexxtBoxx1 . GareF ユ 1e Fname, エ ヒ ERTF' 
End Sub 








是 F0rm1:(General)-FileLoad 











| Pub1io Sub Fi1eroad( ) 
| Dim Fname AS String 


| With CommonDia1og1 

| -Dia1ogTit1e = "ファ イル を 開く " 

| ・ShowOpen 

| Fname = -F11ename 

| End With 

| RichmexxtBoxr1 . loadF ユ 1e Fname, エ ヒ ERTF 
| End Sub 
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Form1:IDM_EXIT-Click 

TS 2 
| Private Sub TDM EXTm C1ick() 

| Un1oad Form1 


End 
End Sub 


回 
ョ Form1:IDM_NEW-Click 


に Em in il 還 が) 
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ーー ーーーーー ニ ーー 




















RiochmexxtBoxr1 . mexkERTEF = "m 


Private Sub TDM NEw_C1ick() | 
End Sub 








P ェ ュ で ate Sub TDM OPEN _C1iok( ) 
Ca11 Fi1eroad 
End Sub 














ョ Form1:IDM_SAVE-Click 









Private Sub TDM SAVE C1iok( ) | 
Ca11 Fi1eSave ] 
SR | 
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凡 。。 コード を 解説 する 前 に 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の 機能 の 概要 を 説 

明 し て お きま す 。 

リッ チ テ キス ト ボ ックス コン トロ ー ル は 、 こ れ ま で Visual Basic に 用 意 き され て い 
た テキ スト ボッ クス コン トロ ー ル を 更に 機能 拡張 し た コン トロ ー ル で す 。 テ キス ト 
ボッ クス コン トロ ー ル が 、 純 粋 な テキ スト 文書 の 入力 ・ 編 集 を 行う の に 対し 、 リ ッ 
チ テ キス ト ボ ックス コン トロ ー ル で は 、 フ ォ ン ト や 文字 色 、 段 落 や ヤ イ ン デ ント な ど 
の 文字 装飾 ・ レ イア ウト 編集 機能 が 付加 され 、 テ キス ト ボ ックス コン トロ ー ル より 
も 高度 な 編集 操作 が で きる よう に な り ま し た 。 ま た 、 リ ッ チ テキ スト ボッ クス コン 
トロ ー ル で は 、 こ れ ら の 編集 属性 まで も ファ イル に 保存 で きる よう に な り ま し た 。 

コン トロ ー ル に 入力 され た 文章 の 保存 ・ 読 み 出し 機能 に 、 テ キス ト 形 式 以外 に 
「RTF」 (リッ チ テ キス ト ) フォ ー マ ッ ト が 採用 さき され て いま す 。 こ の フォ ー マ ッ ト は 、 
Windows に 付属 する ワー ド パ ッ ド や Microsoft Word で も 採用 きれ て いる 文書 フォ 
ー マ ッ ト で す 。 し た が っ て 、 こ の コン トロ ー ル を 使用 すれ ば 、Word と 同じ 基本 性 
能 を 持っ た 機能 を 、 自 分 の プロ グラ ム に 組み 込む こと が で きま す 。 


う リッ チ テ キス ト ボ ックス コン トロ ー ル に は 、 高 度 な 編集 機能 が プロ パテ ィ や メソ 
ッ ド を 通じ て 実装 きれ て いま す 。 コ ント ロー ル に 入力 され た テキ スト は 、 自 由 に 選 
択 す る こと が で き 、 選 択 範 胃 の コピ ー・ ペ ー ス ト 機 能 や や り 直 し 機能 (アン ドッ ゥ ) 
も あら か じ め 組 み 込 まれ て いま す 。 

プロ グラ ム 作 成 操作 で 紹介 し た 、 プ ロ パ ティ ペー ジ に ある [ポップアップ メニ ュ 
ー の 表示 ] チェ ッ ク ボ ックス を オン に し て お く と 、 こ れ ら の 機能 を マウ ス の 右 ボ タ 
ン で 表示 され る ポッ プア ッ プ メニ ュー か ら 利 用 する こと が で きま す 。 も ちろ ん 、 こ 
れ ら の コピ ー・ ペ ー ス トト 機能 は 、 他 の ソフ ト と の 間 で も 有効 で 、 面 倒 な 設定 を する 
こと な く 、 コ ント ロー ル を 組み 込む だ け で 実現 で きま す 。 

また 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル 内 に 、 イ メー ジフ ァイル を 編集 文書 
に 組み 込む こと が で き 、 グ ラフ ィ ッ クソ フト と の 間 で コピ ー・ 貼 り 付 けが 可能 に な 
っ て いま す 。 








』 ポッ プア ッ プ メニ ュー が 
上 標準 装備 8 
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リッ チ テ キス ト ボ ックス コン トロ ー ル の 、[ プ ロ パ ティ ペー ジ ] に ある [描画 スタ 
イル ] タプ の [スク ロー ル バ ー] を 設定 し て お く と 、 コ ント ロー ル 内 の 文章 が コン 
トロ ー ル の 枠 を 超え る と 、 自 動 的 に スク ロー ル バ ー が 表示 され ます 。 


陸 で する ファ イル の や 前 の 抽 取 竹 |( コ は 、 コモ ンダ イア ログ ボッ クス 


ー ル を 使用 し て 行い ます . 


スク ロー ル バ ー が 上 自動 的 に 
表示 され る 








プロ パテ ィ ペ ー ジ に ある [複数 行 の 編集 ] に チェ ッ ク を 付け る と 、[MultiLine] 
プロ パテ ィ に 「True」 が 設定 され 、 複 数 行 の テキ スト 編集 が 可能 に な り ま す 。 

また 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル が 扱え る 最大 文字 数 の バイ ト 数 は 、 
[MaxLength] プロ パテ ィ で 設定 で きる よう に な っ て いま す 。 そ し て 、 こ の 値 が 「0」 
で あれ ば 、 使 用 する コン ピュ ー タ の メモ リ が 許す 限り の バイ ト 数 が 使用 で きま す 。 


この プロ グラ ム で は 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル を 使用 し て 、 リ ッ 
チ テ キス ト ボ ックス コン トロ ー ル で 編集 し た ファ イル の 読み 書き を 行っ て いま す 。 
コモ ンダ イア ログ ボッ クス コン トロ ー ル は 、 プ ログ ラム デザ イン 時 に プロ パテ ィ ペ 
ー ジ で いく つか の 初期 設定 を 行っ て いま す 。 

まず 、 ダ イア ログ ボッ クス に 表示 する ファ イル の 種類 を 、「 フ ィ ル タ | ([Filter] 
プロ パテ ィ ) に 設定 し て いま す 。 今回 は 、RTF 形式 の ファ イル で 保存 する よう に 設 
定 し た た め 、[Filter] プロ パテ ィ に 「 リ ッ チ テキ スト (*rtD"rtf」 を 設定 し て いま す 
(リッ チ テ キス ト フ ォ ー マ ッ ト の ファ イル の 拡張 子 は 「rttf| に な り ま す )。 

また 、 フ ァイル 保存 時 に 拡張 子 の 自動 入力 を 行わ せる た め 、[ 既 定 の 拡張 子 ] 
([DefaultExtl プロ パテ ィ ) に 「rtf| の 文字 を 設定 し て いま す 。 
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リッ チ テ キス ト を 設定 


| %fhe [ っ が の 『 | 
| カ 人 名 @ 。 | 匠 坪 の 撤 了 Q 「rtf」 の 文字 を 設定 
| 2 E 最大 y 人 も サ 72*⑳: EGO | 
| 2 レッ チ テ キス ト ぐ rrt p 衝 を る デメ 6- | 


| 「 BMM 雪 ユエ テー(⑤ 
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で は 、 コ ー ド を 説明 し ます 。 こ の レッ スン で は 、 フ ァイル の 保存 と 読み 出し の 処 
理 、 お よび 新規 作成 の 処理 を 作成 し ます 。 フ ァイル の 保存 お よび 読み 出し は 、 そ れ 
ぞ れ 独立 し た ユー ザー 定義 の Sub プロ シー ジャ と し て 作成 し ます 。 

まず 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に 入力 され た 文字 列 や イメ ー ジ を フ 
ァイル に 保存 する プロ シー ジャ を 作成 し まし ょ う 。 この プロ シー ジャ は 、 「FileSave」 
と いう 名 前 で 作成 し ます 。 フ ォ ー ム の コー ドウ ィ ン ド ウ を 開き 、 最 下行 に この プロ 
シー ジャ を 作成 し ます 。 こ の プロ ジェ クト は 単 一 の モジ ュー ル し か 組み 込み ませ ん 
が 、Sub プロ シー ジャ に キー ワー ド 「public」 を 付け て 作成 し ます 。 


Pub11o Sub ri1eSave( ) 


End Sub 


リッ チ テ キス ト ボ ックス コン トロ ー ル は 、「SaveFile」 メソ ッ ド を 実行 する だ け で 、 
コン トロ ー ル に 入力 され た 文字 列 や イメ ー ジ を その まま ファ イル に 保存 で きま す 。 
特別 な 処理 は 必要 あり ませ ん 。 ま た 、 保 存する ファ イル 名 の 設定 も 、 コ モン ダイ ア 
ログ ボッ クス コン トロ ー ル の [ファ イル 名 を 付け て 保存 ] ダイ アロ グ ボ ックス を 使 
用 し ます の で 、 と て も 簡潔 な コー ド で これ ら の 処理 を 実行 で きま す 。 

まず 最初 に 、 フ ァイル 名 を 格納 する 変数 「Fname」 を 文字 列 型 で 宣言 し ます 。 


Dim Fname AS String 


次 に 、 コ モン ダイ アロ グ ボ ックス の タイ トル を 設定 し て 、[ フ ァイル 名 を 付け て 保 
存 ] ダイ アロ グ ボ ックス を 表示 し ます 。 こ れ に は 、 コ モン ダイ アロ グ ボ ックス コン 
トロ ー ル の 「ShowSave」 メソ ッ ド を 使用 し ます 。 

表示 きれ た [ファ イル 名 を 付け て 保存 ] ダイ アロ グ ボ ックス に ファ イル 名 が 入力 
され て [保存 ] ボタ ン が クリ ッ ク さ れる と 、 コ モン ダイ アロ グ ボ ックス コン トロ ー 
ル の [filename] プロ パテ ィ に 、 フ ァイル 名 が フル パス で 格納 され ます の で 、 こ れ 
を 変数 「Fname」 に 格納 し ます 。 


With CommmonDia1og1 
-pia1ogmit1e = "ファ イル の 上 書き 保存 " 
・ShoOwSa@ 
Fname = .Fi1ename 

End With 
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ファ イル 名 が フル パス で 


[filename] プロ パテ ィ に 
格納 され る 





この ダイ アロ グ ボ ックス に は 、 フ ォ ー ム の デザ イン 時 に プロ パテ ィ で 設定 し た 「 フ ァ 
イル の 種類 ] (フィ ル タ ) が 実行 され て いま す の で 、 拡 張子 が 「rtf] の ファ イル し か 表 
示さ れ て いま せん 。 


プ 保存 する ファ イル 名 が 確定 し た ら 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の 
「SaveFile] メソ ッ ド を 実行 し ます 。 こ の メソ ッ ド は 、 引 数 に ファ イル 名 と 保存 する 
ファ イル の 形式 を 指定 し ます 。 

ここ で は 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル か ら 受 け 取 っ た ファ イル 名 を 
格納 し て いる 変数 「Fname] と 、 フ ァイル を RTF 形 式 で 保存 する の で 定数 
IrtffRTF」 を 指定 し て いま す 。 


RiochmexxEBoxx1 . SaveFi1e Fname, エ て ヒ FRTF 


これ で 、 フ ァイル に 保存 する プロ シー ジャ は 完成 で す 。 第 1 日 で 使用 し た 、 ラ ン 
ダム ファ イル アク セス の よう な 、Open メ ソ ッ ド と Put・Get ス テー トメ ント を 使う 
処理 は 記述 する 必要 が あり ませ ん 。 リ ッ チ テキ スト ボッ クス コン トロ ー ル の 
SaveFile メ ソ ッ ド が すべ て これ ら の 処理 を 行っ て くれ ます 。 

【SaveFile メソ ッ ド の 書式 】 

Object . SaveF1i1e pathname, Fi1etype 


object 必ず 指定 し ます 。 リ ッ チ テキ スト ボッ クス コン トロ ー ル の オブ ジェ ク 
ト 名 を 指定 し ます 。 

pathname 必ず 指定 し ます 。 コ ント ロー ル の 内 容 を 保存 する ファ イル の バス お よ 
び フ ァイル 名 を 文字 列 式 で 指定 し ます 。 

Fi1etype 省略 可能 で す 。 保 存する ファ イル の タイ プ を 整数 また は 定数 で 指定 し 


ます 。 
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っ 上 

rtfRTF (既定 値 ) リッ チ テ キス ト 形 式 (RTF)。 リ ッ チ テキ スト ボッ ク 
スコ ント ロー ル の 内 容 を 「.RTF] ファ イル と し て 保存 し ます 。 
文字 属性 や 段落 な どの 編集 属性 、 組 み 込ま れ た イメ ー ジ ファ イ 
ル な ど を すべ て 保存 し ます 。 


rtfText リッ チ テ キス ト ボ ックス コン トロ ー ル の 内 容 を 、 純 粋 な テキ ス 
ト フ ァイル と し て 保存 し ます 。 文 字 列 だ けし か 保存 され ませ ん 。 


人 分 度 は 、 フ ァイル か ら 読 み 込む プロ シー ジャ 「FileLoad」 を 作成 し ます 。 保 存 と 
同じ よう に 、Sub プロ シー ジャ に キー ワー ド 「public」 を 付け て 作成 し ます 。 





Pub1io Sub Fi1eroad ( ) 


End Sub 


最初 に 、 フ ァイル 名 を 保存 する 変数 「Fname」 を 宜 言 し ます 。 


Dim Fname AS String 


そし て 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル の [ファ イル を 開く ] ダイ アロ 

グ ボ ックス を 表示 し ます 。 こ れ に は 、「ShowOpen| メソ ッ ド を 使用 し ます 。[ フ ァ 
イル を 開く ] ダイ アロ グ ボ ックス が 表示 され 、 フ ァイル 名 が 選択 さき れる と 、 コ モン 
ダイ アロ グ ボ ックス コン トロ ー ル の [filename] プロ パテ ィ に 、 フ ァイル 名 が フル 
パス で 格納 され ます の で 、 こ れ を 変数 「Fname」 に 格納 し て お きま す 。 


With CommonDia1og1 
-Dia1ogmit1e = "ファ イル を 開く " 
・ShowOpen 
Fname = .Fi1ename 

End With 


の ファ イル 名 が 取得 で きた ら 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の [LoadFile」 
メソ ッ ド を 実行 し ます 。 こ の メソ ッ ド は 、 前 項 の 「SaveFile] メソ ッ ド と 同様 、 読 
み 込 むせ ファ イル 名 と ファ イル の タイ プ を 引数 で 受け 取り ます 。 

ここ で は 、 フ ァイル 名 が 格納 され て いる 変数 「Fname」 と 、RTF 形 式 で 読み 込む 
た め に 定数 「rtfRTF」 を 指定 し て いま す 。 


RiohmexxtBoxx1 .LoadF1i1e Fname, エ FRTE 
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これ だ け の 処理 で 、 保 存 し た ファ イル を リッ チ テ キス ト ボ ックス コン トロ ー ル に 
読み 込む こと が で きま す 。 読み 込ん だ 内 容 は 、 自 由 に 編集 し て 、 再 度 保存 する こと 
が で きま す 。 





RTF 形式 で 保存 し た ファ イル を 、 誤 っ て テキ スト 形式 で 読み 込む と 、 バ イナ リコ ー 
ド が テキ スト に 変換 され て 表示 され て し まい ます の で 、 注 意 し て くだ さい 。 





RTF 形式 で 保存 し た 文書 ファ 


イル を テキ スト で 読み 込む と .… 





テキスト 記 - ル * 
RTF 形 穫 は 計 の デ 還 
どの 区 色 有 の 隊 人 しい らし ょ | に 人 で きる フ ァイル 





この よう な 結果 に な る 
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0) 作成 し た 保存 と 読み 出し の プロ シー ジャ を 、 ツ ー ル バー コン トロ ー ル の [開く ] 
と [上 書き 保存 ] の 2 つの ボタ ン に 組み 込み ます 。 
前 の レッ スン で 説明 し た よう に 、 ツ ー ル バー コン トロ ー ル の ボタ ン が クリ ッ ク さ 
れる と 、 こ の コン トロ ー ル に は ButtonClick イ ベン ト が 発生 し ます 。 ど の ボタ ン が 
クリ ッ ク さ れ た の か は 、 イ ベン ト プ ロ シー ジャ の 引数 「Button」 に 格納 され る 
Button オ ブ プ ジ ェ クト の [Key] プロ パテ ィ を 調べ れ ば わか り ま す 。 そ こ で 、 こ の プ 
ロ パ ティ の 値 を 使っ て 、Select Case ス テー トメ ント で 処理 を 振り 分 け ま す 。 
[Key] プロ パテ ィ の 値 が 「save」] で あれ ば 、 フ ァイル に 保存 する プロ シー ジャ 
「FileSave] を 、「open] で あれ ば ファ イル を 読み 出す プロ シー ジャ 「FileLoad」 を 、 
Cal ス テー トメ ント を 使っ て 呼び 出し ます 。 
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これ で 、 ツ ー ル バー の ボタ ン を クリ ッ ク す る だ け で 、 そ れ ぞ れ の 処理 が 実行 きれ 
ます 。 


P ェ 1yate Sub ToOo1 わ ba エ 1 Bu モ onC1iok(ByVa1 ButEton AS 
MSComct1 エ 1b . Bu モ On ) 
Se1ec Case Bu て on . Key 
Case "save" 
Ca11 Fi1eSave 


Case "open" 
Ca11 Fi1eroad 
End Se1eo 
End Sub 


同じ よう に 、 プ ログ ラム に 組み 込ん だ [ファ イル ] メニ ュー の [開く ] と [上 書 
き 保存 ] に も 、 こ の 処理 を 組み 込み ます 。 

[開く ] メニ ュー は 「IDM_OPEN_Click」、[ 上 書き 保存 ] メニ ュー は 
「IDM_SAVE_Clickl の イベ ント プロ シー ジャ で 、Call ス テー トメ ント を 使っ て 呼 
び 出 し ます 。 

これ で 、 ツ ー ル バー で も メニ ュー で も 、 同 じ 処 理 を 実行 で きま す 。 


Private Sub TDM OPEN _C1ick( ) 
Ca11 Fi1eLoad 
End Sub 


P ェ ivate Sub TDM SAVE C1icKk( ) 
Ca11 Fi1eSa で e 
End Sub 


時 うつ  [ 白 赴 作成 ] メニ ュー で は 、 現 在 リッ チ テ キス ト ボ ックス コン トロ ー ル に 入力 され 
て いる 内 容 を 消去 し て 、 新 し く 入 力 で きる 状 台 に する た め の 処 理 を 作成 し ます 。 こ 
の 処理 は 至っ て 簡単 で 、 こ の メニ ュー の Click イ ベン ト プ ロ シー ジャ に 、 リ ッ チ テ 
キス ト ボ ックス コン トロ ー ル の 【[TextRTF] プロ パテ ィ の 値 を "(空白 ) に する コ 
ー ド を 作成 する だ け で す 。 
[TextRTF] プロ パテ ィ に は 、 テ キス ト と と も に 各 属 性 を 表す コー ド も いっ し ょ 
に 格納 され て いま すか ら 、 こ れ を すべ て 空白 に し て し まえ ば 、 そ れ ま で 編集 し て い 
た 内 容 が 破棄 され 、 新 規 作成 と 同じ 状態 に な り ま す 。 


P ェ ュ iate Sub TDM NEW C11cK( ) 
RiochTmextBox1 .TexERTF = "" 
End Sub 
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人 る 最後 に 、[ 終 了 ] メニ ュー に 、 す っ か りお な じみ に な っ た プロ グラ ム の 終了 処理 を 
記述 し て 完成 で す 。 


P ェ ュ a モ @ Sub TDM 互 X エ mm C11ck( ) 
Un1oad Form1 
End 

End Sub 


実際 に プロ グラ ム を 動作 きせ て くだ さい 。 文字 の 入力 や イメ ー ジ の 貼り 付け 、 文 
字 列 を 選択 し て ポッ プア ッ プ メニ ュー で コピ ー・ 貼 り 付 け を する 、 と いう 編集 操作 
が 可能 に な っ て いま す 。 

また 、 編 集 し た 内 容 を ファ イル に 格納 し た り 、 フ ァイル か ら 読 み 込む こと も 可能 
に な っ て いま す 。 


リッ チ テ キス ト ボ ックス コン トロ ー ル で は 、 入 力 ・ 編 集 し た 文章 が 、 改 行 コ ー ド が 入 . 
っ て いな く て も 自動 的 に 行 が 折り 返し て 表示 され ます 。 ま た 、Ctrl+A キー で 「 す べ て 
を 選択 ]」、Shift+ 矢印 キー で 「 文 字 を 1 文字 ずつ 選択 ] な どの お な じみ の ショ ー ト カッ 
トキ ー も サポ ボー ト さ れ て いま す 。 ア クセ サリ の 「 ワ ー ド パッ ド 」 の よう な 機能 を プロ グ 
ラム に 付与 する こと が で きま す 。 

標準 の テキ スト ボッ クス コン トロール で 使用 され て いる よう な プロ パテ ィ は ほとん 
ど 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に も サポ ー ト され て お り 、 テ キス ト ボ ックス 
コン トロ ー ル を 使用 し て いる アプ リケーション な ら 、 簡 単に リッ チ テ キス ト ボ ックス コ 


ント ロー ル に 移行 させ る こと が で きま す 。 
改行 し な く て も 自動 的 に 
行 が 折り 返す 








ティ ベー: ri ー ラ な 付 ける と 
な rs が 『 訟 定 され 、 複 堆 行 の エキ スト 編集 が 可能 | に こ な り 
| また 、 リ ッ チ テ ジン 本 で きる よう に な っ て し ます 。 た た し 
1 Waleh プロ) で きる よ ます 。 た だ し 、 

信用 する コン ビュー 20 の 2 モ り が す 限 り の パイ | 


の ブロ グラ ム で は 、 コモ ンダ イア ログ ボッ クス コン トロ ー ル を 使用 し て 、 リ ッ チ 

キス トラス ー レ トロ ー ル で 上 し た ファ イル の 読み 書き を 行っ て いま す 。 

| コモ ンダ イア ロ ヴ ボック スコ ント ロー ル | は 、 ブロ ダラ ム デ ザイ ン 時 に ブロ バテ ィ 

ペー で いく つか の 初 | 定 を 行っ て いま す 。 1 
、 ダ イア ログ ボッ クス に 表示 する ファ イリ 精 を 、 すま 地 


ロバ ティ 》 に 府 十 し て し セイ る よう 
区 の は Pa] リティ に 1 リッ テテ キス ト Pt て し ま 


(リッ チ テ : テキ ストラ ョ ー マッ ト の ファ イル の 拡張 子 | は 「rf」 に な り ま 
また 、 イル 保存 時 に 拡張 子 の 自動 入力 を 行 せる に ため 、 の っ 
NUMBIEUNgR2I こ 「rtf」 の 文字 を 証 し て いま す 。 に 





LesSon 6 リッ チ テ キス ト ボ ックス コン トロ ー ル の 配 


リッ チ テ キス ト ボ ックス コン トロ ー ル は 、 あ ら か じみ め 文 書 の 編集 に 必要 な 機能 が 組 
み 込 まれ て いる コン トロ ー ル で す 。 

また 、 文 書 の 保存 や 読み 出し が 簡単 に で きる よう に な っ て いま す の で 、 す ぐに 多 機 
能 の 編集 環境 を プロ グラ ム に 組み 込む こと が で きま す 。 こ の コン トロ ー ル を 使い こ な 
す に は 、 ど の よう な 機能 や 性 能 を 持っ た プロ パテ ィ と メソ ッ ド が ある の か を 把握 する 
の が ポイ ント で し ょ う 。 

Sub ステ ー ト メン ト の 中 で 、「Public] と 「Private] と いう ら 種 類 の キー ワー ド 
が 出 て きま し た 。 入 門 教室 で も や や り ま し た が 、 い っ た ん 、 お さら いし て お きま し ょ う 。 
Public SUub プロ シー ジャ を 宣言 する と 、 そ の プロ シー ジャ は すべ て の モジ ュー ル 
の すべ て の プロ シー ジャ か ら 参 照 す る こと が で きま す 。Private Sub プロ シー ジャ は 
その プロ シー ジャ を 記述 し た モジ ュー ル 内 の 他 の プロ シー ジャ か ら だ け 参 照 す る こと 
が で きま す 。 


る c》 練習 是 
O ひ フォ ー ム 起動 時 に 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル が 新規 文書 


で ある こと が わか る よう に 、 フ ォ ー ム の キャ プシ ョ ン に 表示 する よう に 
し て くだ さい 。 

また 、 編 集 し た 文書 を 保存 し た 際 に 、 そ の ファ イル 名 と パス 名 を フォ 
ー ム の キャ プシ ョ ン に 表示 する よう に し て くだ さい 。 

また 、 フ ァイル を 読み 込ん だ 場合 に も 、 同 様 の 処理 を 加え て くだ さい 。 








保存 し た 文書 の 
ファ イル 名 が 表示 


リッ チ テ キス ト ボ ックス コン トロ ー ル | は 、 コ ント ロー ル に 入力 され た 太 埋 ( 
的) を 、 RTF 肛 式 と テキ スト 形式 の 向 方 の フォ ー マ ッ ト で 休 條 で きま 
RTF 形 世 は 、 純 な 文字 デー タ だ け の デキ スト 形式 | に 、 フォ ント 剛性 や 
隊 、 イ ン デン ト な どの 文書 代 形 の 記 性 を いっ し ょ に 筆 邊 で きる ファ イル 放 


解答 は 巻末 に 一 
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文字 属性 の 操作 


文字 の 入力 ・ 編 集 と ファ イル の 読み 書き が で きる よう に な っ た の で 、 今 
度 は 、 文 字 を 選択 し て フォ ント 属性 の 変更 や 文字 位置 の 編集 な ど が で き 
る よう に 、 機 能 を 追加 し て いき ます 。 ま た 、 編 集 し た 文書 を 印刷 する 機 
能 も 組み 込み ます 。 


今回 作成 する プロ グラ ム 





選択 し た 文字 列 の 
brFh ス コンク フォ ント や 配置 を 
ズ エ v0 FixedSys ・ 9 形式 は 』 変更 する 
人 タ だ け の テキ |Garamand FE: ょ ご の 

文書 代 形 の 届 性 きい っ し ょ | に 和信 Haettenschweiler 

読み 書 さ すす る ファ イル の 名 前 HGP ゴ ッッ カ E 

ロー ル を 使用 し て 行い ます 。 |HGP 剣 英 朋 ゴツ ッ UB 

と HGP 身 朋 ポ ッ フ 本 

田 


コン ボボ ックス コン トロ ー ル を 使っ て 、 リ ッ チ テキ スト ボッ クス 
コン トロ ー ル 内 の 選択 し た 文字 の 、 フ ォ ン ト と サイ ズ を 変更 で きる 
機能 を 組み 込み ます 。 

また 、 フ レー ムコ ント ロー ル と コモ ンダ イア ログ ボッ クス コン ト 
ロー ル を 組み 合わ せ て 、 文 字 の 色 を 変更 で きる よう に し ます 。 
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) コン トロ ー ル と プロ バテ ィ の 設定 
※ LesSOn6 の QSA で 作成 し た 「QS&A-6.vbp」 を 開い て くだ さい 。 QSA-6.vbp 
\ ファ イル 
2 「Q&A-6vbp] ファ イル は 、 
e ー 合 け 録 CD- 
和合 シー ル バ レッ ト の [OomboBox 国 を 徒 っ て 、 2 アド 0 で に 
コン ボボ ックス を ツー ル バ ー コ ント ロー ル に 配置 する ます 。 


アイル 
| 用 回 国 副 還る 還 に Prs ーー 二 js 斜め に ドラ ッ グ 
時 し て 配置 








を の 1 リク 





IText Combo1 
TaalTipText 
Top 6H 


ツー ル バ ー コ ント ロー ル に 、 コ ン ボ ボッ クス コン ト 
ロー ル を も う 1 つ 配 置 する 


アッ Se 斜め に ドラ ッ グ 
| | 








第 日 3 時 限 目 ワー プロ ソフ ト の 作成 





ツー ル パ レ ッ ト の [Frame] 回 を 使っ て 、 フ レー ム 
コン トロ ー ル を ツー ル バ ー コ ント ロー ル に 配置 する 




















Frame1 
上 ppearance 1 - 3D 
国 HOn0O0000& 
0- な し 
| 

True 
Draglcon な し) 
DragMode 0- 手動 
Enabled True 
Font MS P ゴ シッ ク 
ForeCoalor 還 HBUUU0012& 


文字 を 削除 


[BorderStyle] プロ パテ ィ を [0 一 な し ] に 設定 す 
る 


プリ LH パ ティ - Frame1 | ーー ゃ に 
ピ こ で を 多 リ 攻 の 


ここ を クリ ッ ク 
ご ご だ 5/ 多 





Enabled True 
Font MS P ロ ゴシック 


ヒュ 。 っ いっ レー | 本 WcTumalipr コ 
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[BackColor] プロ パテ ィ の [パレット] タブ で 、 


ここ を クリ ッ ク 
ここ を クリ ッ ク 
ご こ を クツ ク 


ここ を クリ ッ ク 





リッ チ テ キス ト ボ ックス の [Font] プロ パテ ィ で 、 
フォ ント を [Arial] 、 サ イズ を [12] に 設定 する 


[フォ ント 名 ] と 
[サイ ズ ] を 設定 


[OK] を クリ ッ ク 









記 Book Antiqua 
所 Bookman Old Style 
人 Bookshelf Symbol 1 

中 Bookshelf Symbol2 軸 












色 を 選択 する バレ 
プット を 表示 する 


ボタ ン の 右側 に ある 下 向 
き 三 角 を クリ ッ ク す る と 、 
色 の 一 覧 が 表示 され ます 。 


ぐ 光 フォ ント の 設定 
リッ チ テ キス ト ボ ックス 
コン トロ ー ル を クリ ッ ク 
し て 選択 し 、 プロ パテ ィ 
ウィ ンド ウ の [Font]」 プ 
ロ パ ティ の 右 欄 に ある [.] 
2 の ググ (1 RG 
[フォ ント ] ダイ アロ グ ボ 
ックス を 表示 し ます 。 
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22 





[HideSelection] プロ パテ ィ を [False] に 設定 す 
る 








DisableNoScroll False 


本 gl と と を クリ り ッ ク 
True 

(ラニ ケン BDD 
ーー ゲン リク 










rial 
4245 
0 
Falsel 
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Orm1 :Combo1-Click 









が) 


[comboi 回 [Click | 


Private Sub Combo1 C1iok( ) 
With RichmextBoxr1 
・Se1FontName = Combo1 . Tex 
・SeGtFOCu8 
End With 
End Sub 


ョ Form1:Combo2-Click 


Private Sub Combo2_C1iok( ) 
With RiohmexxtBox1 
・Se1FontS1ze = Combo2 . Tex 上 
| ・SeG 下 O 〇 ご CU8 
| End With 
| End Sub 









_Fomtrcombo2-KeyDow 


世 2 











| PF1vae Sub Combo2_KeyDown (KeyCode As Tnteger, Shift As Tnteger) | 
ェ F KeyCode = vbKeyReturn Then | 
RiohmexxtBoxrx1 . Se1FonES+ze = Combo2 . mexxE 














Private Sub Form road( ) 
Dim FonENum AS Tnteger 
Dim 1 As Tnteger 

Dim FntName AS String 


Form1 .Caption = "新規 文書 " 
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FonENum = SCrGen .FOnECOun セ 
| For 1 = 0O "To FonENum - 1 
| FntName = Screen .FonEs() | 
| Combo1 . AdQd エ tem FnEName | 
エ F FntName = RiohmexEBoxx1 .FonE Then | 
Combo1 . mext = FnEName 
End TE 


| 
| | 
| Textt | 
| 


| For ] = 2 "mo 30 Step 2 | 
| Combo2 . AddTtem ] | 
| TE ] = RiohTmextBox1 .Font .S ュ ze Then 

| Combo2 . TexE = ] | 
| End TE | 
| Nex セ 
End Sub 











川 





Form1: Fmame1.Clk 





」 private Sub Frame1 C1iokk( ) 
| With CommonDia1og1 
・ShowCo1o ェ | 
Frame1 . BaCKCO1O エ = .Co1o エ | 
RichmextBoxx1 . Se1Co1or = .Co1or 
End With 
End Sub 


紳 Form1:ToolDar1- ButtonClick 


|。 馬 が 回 








[Gelpar1 選 [ButtonClick 回 


| Pr1vate Sub Too1ba ェ 1 ButtonC1iok 
(ByVa1 But セ on AS MSComo1 エ 1b . Bu 七 On ) 


Se1ec 上 Case Bu て on . KeY 
Case "save" 
Ca11 Fi1eSave 


Case "open" 
Ca11 Fi1eLoad 


Case "Cen も er" 
RichmextBoxx1 . Se1A11qmmen 二 = エ ヒ 上 ECen ヒ @ エ 
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Case "1efF モ 上" 
RiohmexxEBoxx1 . S ら 1A11gnrmmen ヒ = エモ Te モモ 


Case "エエ ight" 
RichmexxtBoxx1 . Se1A11gnmen ヒ = て EERight 


Case "p エ ュ nE" 
Ca1 1 P エ ミュ n ヒ Ou セ 
End Se1eo 
End Sub 














Form1:(General)-Printout 
1。 | Lesson7 - Form1 口 - ト 
(General) 









Pivae SuD P エ in モ Ou 七 ( ) 
Dim Ret As Tntege ェ 


"印刷 の 実行 ") 
ェ エ F Re = vbYes Then 
Form1 .R1ohTmextBoxx1 . Se1P エ ュ n モ PE ェ inEer .hDC 
End TE 
End Sub 

















ョ Form1:IDM_PRINTClick_ 








P ェ ュ ivate Sub TDM PRTNT C1iok( ) 
Ca11 P エ in ヒモ Ou も 
End Su ち ゎ 
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Ret = MsgBox(Form1.Caption g " を 印刷 し ます か ?", vbyesNo, _ 
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この レッ スン で は 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に 入力 され た 文字 を 選 
択 状 態 に し た と き に 、 フ ォ ン ト の 変更 や 文字 色 の 設定 、 中 央 揃え な どの 文字 位置 の 
設定 操作 を 行う 機能 、 そ し て 文書 を プリ ンタ に 出力 し て 印刷 する 機能 を プロ グラ ム 
に 組み 込み ます 。 こ の 機能 の 流れ を 簡単 に まとめ ます 。 


①2 つ の コン ボボ ックス コン トロ ー ル に 、 コ ンピュータ で 利用 可能 な フォ ント 名 と 
サイ ズ を 設定 し ます 。 利 用 可能 な フォ ント 名 は 、Windows か ら 自 動 的 に 取得 し ま 


ず 。 






利用 可能 な フォ ント 名 の 











② ユ ー ザ ー が リッ チ テ キス ト ボ ックス コン トロ ー ル に 入力 し た 文字 を 選択 し 、 コ ン 
ボボ ックス コン トロ ー ル で フォ ント と サイ ズ を 選び ます 。 


文字 を 選択 し て .… 








フォ ント の 種類 と サイ ズ を 
リス ト ボ ックス か ら 選 ぶ ぶ 
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③ 選 択 し た 文字 が 、 コ ン ボ ボッ クス コン トロ ー ル で 選ん だ フォ ント と サイ ズ に 変更 
され ます 。 








フォ ント と サイ ズ が 
変更 され た 








ここ を クリ ッ ク 


⑤ コ モン ダイ アロ グ ボ ックス コン トロ ー ル の [ 色 の 設定 ] ダイ アロ グ ボ ックス が 表 
示さ れる の で 、 好 き な 色 を 選択 し ます 。 


il | 上 


⑥ 文 字 色 が 指定 し た 色 に 変更 され 、 ツ ー ル バー の フレ ー ム コン トロ ー ル も その 人 凶 に 
塗り つぶ され ます 。 





文字 と フレ ー ム の 色 が 
変更 され る 
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⑦ 再 度 文字 を 選択 し て 、 ツ ー ル バー の [中央 揃え ] ボタ ン を クリ ッ ク し ます 。 そ の 
文字 が 画面 の 中 央 に 配置 され ます 。 





ここ を クリ ッ ク 








文字 が 画面 の 中 央 に 
配置 され る 












電 天 ワン ポイ ント アド バイ ス 


この プロ グラ ム で は 、 設 定 し た フォ ント の 種類 や サイ ズ ・ 色 は 、 次 に 変更 され る まで 
その まま 継続 され ます 。Word の よう に 改行 する と 標準 の フォ ント 属性 に リセ ッ ト さ れ 
る よう な 機能 まで は 組み 込ん で いま せん 。 必 要 で あれ ば 、 各 自 で 考え て 組み 込ん で みて 
くだ さい 。 





最初 に 、 フ ォ ント の 種類 と フォ ント サイ ズ 、 文 字 色 の 設定 機能 を 組み 込み ます 。 
まず 、 フ ォ ー ム の Load イベ ント プロ シー ジャ に コー ド を 追加 し て 、 コ ン ボ ボッ クス 
コン トロ ー ル に リス ト 項 目 を 設定 し て 初期 化し ます 。 
フォ ント 名 表示 の コン ボボ ックス コン トロ ー ル [Combo1] に 、 コ ンピュータ で 
利用 可能 な フォ ント 名 を Windows か ら 取 得 し ます 。「Screen| オブ ジェ クト の 
[FontCount] プロ パテ ィ を 使う と 、 使 用 し て いる Windows で 利用 可能 な フォ ント 
の 数 を 把握 で きま す 。 こ れ を 、 変 数 「FontNum」 に 格納 し ます 。 


FoOnENum = Soreen . OnECoun も 


次 に 、For..Next ルー プ を 使用 し て コン ボボ ックス の リス ト 項 目 に フォ ント 名 を 
組み 込み ます 。「Screen] オプ ジェ クト の [Fonts] プロ パテ ィ に は 、 利 用 で きる フ 
ォ ン ト 名 が 格納 され て いま す 。 こ の プロ パテ ィ に アク セス する と 、 フ ォ ン ト 名 を 取 
得 で きま す 。[Fonts] プロ パテ ィ は 、 引 数 に イン デック ス 番 号 を 指定 する 必要 が あ 
り ま す 。 こ の イン デック ス は 、0 か ら 始 まり 、 フ ォ ン ト の 総数 か ら 1 を 差し 引い た 数 
が 該当 し ます 。 そ こ で 、 ル ー プ の カウ ンタ 用 変数 に は 、 変 数 「FontNum-1」 を 上 限 
に 設定 する と 、 す べ て の フォ ント 名 を 取得 で きま す 。 
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For ii = 0O "To FonNum - 1 
FnEName = Screen .Fon モ s(i) 


取得 し た フォ ント 名 は 、 コ ン ボ ボッ クス コン トロ ー ル の AddItem メ ソ ッ ド を 使っ 
て 、 リ スト 項目 に 追加 し ます 。 


Combo1 . AdQd エ tem Fn モ EName 


取得 し た フォ ント 名 が 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に 設定 し た フォ ン 
ト 名 と 一 致し た 場合 は 、 そ の フォ ント 名 を コン ボボ ックス コン トロ ー ル の デフ ォ ル 
ト の フォ ント 名 と し て 設定 し て お きま す 。 


エ E FntName = RiohTmexEBoxx1 .Fon モ Then 
Combo1 . mex ヒ = FnEName 
End エモ 


この プロ グラ ム で は 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の フォ ント を 「Ariall 
に 設定 し て いま すか ら 、 こ の フォ ント 名 が コン ボボ ックス コン トロ ー ル の デフ ォ ル 
ト フ ォ ン ト 名 に な り ま す 。 ま た 、 こ の コン ボボ ックス コン トロ ー ル は 、[Sorted] プ 
ロ パ ティ を 「True]」 に 設定 し て いま す の で 、 フ ォ ン ト 名 の リス ト は 昇順 に 並べ られ 
て 表示 され ます 。 


フォ ント 名 は ソー ト 


され て 表示 され る 








フォ ント 名 の コン ボボ ックス コン トロ ー ル が 作成 で きた ら 、 今 度 は フォ ント サイ 
ズ 有 用 の コン ボボ ックス コン トロ ー ル を 初期 化し ます 。 こ れ は 、 た だ 単純 に 
For..Next ル ー プ を 使っ て 、 数 字 を AddItem メソ ッ ド で 追加 し て いく だ け で す 。For 
ルー プ に は [Step 2| を 付け 加え 、 フ ォ ン ト サ イ ズ が 2 つ ず つ 増 加 さ れ て 表示 され 
る よう に し ます 。 

また 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に 設定 し た フォ ント サイ ズ と 一 致し 
た 場合 は 、 そ の フォ ント サイ ズ を コン ボボ ックス コン トロ ー ル の デフ ォ ル ト の フォ 
ント サイ ズ と し て 設定 し て お きま す 。 こ の 方 法 を 使用 する と 、 現 在 の 設定 値 を コン 
ボボ ックス の リス ト 項 目 と し て 表示 させ る こと が で きま す 。 
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For ] = 2 mo 30 Step 2 
Combo2 . AdqdTtem ] 
エ FE ] = RiohmextBox1 .Font .Size Then 
Combo2 . mexxt = ] 


どら か ら 30 まで の 範囲 で サイ 
ズ が 表示 され る 








衝 コン ボボ ックス コン トロ ー ル の 初期 化 が 終了 し た ら 、 実 際 に フォ ント を 変更 する 
処理 を 作成 し まし ょ う 。 リ ッ チ テキ スト ボッ クス コン トロ ー ル に 入力 され た 文字 が 
選択 きれ る と 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の 「Sell で 始ま る プロ パテ ィ 
を 操作 で きる よう に な り ま す 。 

選択 され た 文字 の フォ ント を 変更 する に は 、 リ ッ チ テキ スト ボッ クス コン トロ ー 
ル の [SelFontName] プロ パテ ィ に 、 変 更 す る フォ ント 名 を 設定 する と 、 選 択 し た 
文字 が その フォ ント に 置き 換え られ ます 。 そ こ で 、 コ ン ボ ボッ クス コン トロ ー ル か 
ら フ ォ ン ト が 選択 さき れれ ば 、 こ の フォ ント 名 を [SelFontName] プロ パテ ィ に 設定 
する 処理 を 、 コ ン ボ ボッ クス コン トロ ー ル の 「Click」 イベ ント プロ シー ジャ に 組み 
込み ます 。 

コン ボボ ックス コン トロ ー ル で クリ ッ ク さ れ た リス ト 項 目 は 、 コ ン ボ ボッ クス コ 
ント ロー ル の 【[Text] プロ パテ ィ に 格納 され て いま すか ら 、 こ の 値 を そ を の まま リッ 
チ テ キス ト ボ ックス コン トロ ー ル の [SelFontName] プロ パテ ィ に 代入 し ます 。 そ 
し て 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に フォ ー カ ス を 戻し て お け ば 、 す ぐに 
次 の 入力 が 可能 に な り ま す 。 


Eivate Sub Combo1 C1iok( ) 
With RiochmextBoxx1 
・Se1FontName = Combo1 . Tex 上 
・SetFOCu8 
End With 
End Sub 


な お 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の [HideSelection] プロ パテ ィ を 
「False] に し て いる た め 、 フ ォ ー カ ス が 他 の コン トロ ー ル に 移っ て も 、 選 択 部 分 の 
反転 表示 は その まま に な り ま す 。 
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コン ボボ ックス か ら フ ォ 
ント 名 を クリ ッ ク す る と 
変換 が 実行 され る 


ント ル に ブ シン 
が 可能 に な り ま WS ゴシック 


Sg/ チ oz の Ve = Co507.7g7 
陰り の / ト ) 
7 重り を 
7 7 人 サリ 
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リッ チ テ キス ト ボ ックス コン トロール の この 機能 で は 、 い くつ か の 制限 が 発生 し ます 。 


① 英 文 を 選択 し て 日 本 語 フ ォ ン ト を 適用 する こと が で きま す が 、 日 本 語文 を 選択 し て 
英字 フォ ント を 適用 で きま せん 。 文字 化け を 起こ すこ と が あり ます 。 

リッ チ テ キス ト ボ ックス コン トロ ー ル の フォ ント 設定 を 日 本 語 に する と 、 英 字 の フ 
ォ ン ト 変 更 が うま くい か な い 場 合 が あり ます 。 

③ 他 の ソフ ト か ら 文 字 を コピ ー し て 貼り 付け る 場合 は 、 英 字 ・ 日 本 語 の フォ ント に う 
まく 対応 で き な い 場合 が あり ます 。 


人 フォ ント の サイ ズ を 変更 する 処理 も 、 ほ ば ぼ 同 様 の 手法 で 行い ます 。 フ ォ ン ト サ イ 
ズ 用 の コン ボボ ックス コン トロ ー ル が クリ ッ ク さ れる と 、[Text] プロ パテ ィ か ら 
フォ ント 名 を 取得 し て 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の [SelFontSize] プ 
ロ パ ティ に 格納 し ます 。 こ の プロ パテ ィ は 、 選 択 し た 文字 O の フォ ント サイ ズ を 設定 
し ま 信 。 


Private Sub Combo2_C1iok( ) 
With RichTmextBox1 
・Se1FonESize = Combo2 . Tex 
・ Se 上 FoOCuS 
End With 
End Sub 
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そし て も う 1 つ 、 サ イズ が 直接 コン ボボ ックス に 入力 され た 場合 の 処理 を 作成 し 
ます 。 フ ォ ン ト サ イ ズ 用 の コン ボボ ックス は 、 最 大 フォ ント サイ ズ を 「30」 まで し 
か 設定 し て いま せん 。 これ 以上 大 き な サ イズ を 使い た い 場 合 は 、 直 接 コ ン ボ ボッ ク 
スコ ント ロー ル の エディ ッ ト 部 分 に サイ ズ を 入力 し て も ら う こと に な り ま す 。 そ こ 
で 、 入 力 さ れ た ら こ の 数 値 を 受け 取っ て 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に 
渡す 処理 が 必要 に な り ま す 。 

ここ で は 、 コ ン ボ ボッ クス コン トロ ー ル の エディ ッ ト 部 分 に 数 値 が 入力 され て 、 
Enter キー が 押さ れ た 時 点 で この 数 値 を リッ チ テ キス ト ボ ックス コン トロ ー ル の 
[SelFontSize] プロ パテ ィ に 代入 する よう に し ます 。 

コン ボボ ックス コン トロ ー ル に 対し いずれ か の キー が 押さ れる と 、 コ ン ボ ボッ ク 
スコ ント ロー ル に は 「KeyDown] イベ ント が 発生 し ます 。 こ の イベ ント プロ シー ジ 
ャ は 引数 に キー の 種類 を 持ち 、 イ ベン ト が 発生 し た 時 点 で この 引数 に 押さ きれ た キー 
の 種類 が 定数 で 格納 され ます 。 

Enter キ ー が 押さ れる と 、 引 数 [KeyCode」 に は 「vbKeyReturn| (13) と いう 定 
数 が 格納 され ます の で 、If ス テー トメ ント で キー の 種類 を 判断 し て 、[SelFontSize] 
プロ パテ ィ へ の 数 値 の 転送 を 実行 し ます 。 


Erivate Sub Combo2_KeyDovwn (KeyCode As Tnteger, ShiFt As 
エ nteger ) 
エ F KeyCode = vbKeyReturn Then 
RichTmexEBoxx1 .Se1FontSize = Combo2 . mext 
End TE 
End Sub 


これ で 、 コ ン ボ ボッ クス コン トロ ー ル に フォ ント サイ ズ が 入力 され て れ ば 、 選 択 
文字 列 を を の サイ ズ に 変更 する こと が で きま す 。 


文字 色 の 設定 は 、 ツ ー ル バー に 配置 し た フレ ー ム コン トロ ー ル で 行い ます 。 こ の 
コン トロ ー ル は 、 現 在 の 文字 色 を 表示 し 、 設 定 の た め の コ モン ダイ アロ グ ボ ックス 
を 呼び 出し ます 。 

フレ ー ム コン トロ ー ル が クリ ッ ク さ れる と 、Click イベ ント が 発生 し ます 。 そこ で 、 
この イベ ント プロ シー ジャ に コモ ンダ イア ログ ボッ クス コン トロ ー ル の 
「ShowColor| メソ ッ ド を 実行 し て 、[ 色 の 設定 ] ダイ アロ グ ボ ックス を 表示 し ます 。 

ユー ザー に よっ て 任意 の 色 が 選択 きれ る と 、 コ モン ダイ アロ グ ボ ックス コン トロ 
ー ル の [Color] プロ パテ ィ に 選択 され た 色 の 値 が 格納 され ます か ら 、 こ れ を リッ チ 
テキ スト ボッ クス コン トロ ー ル の [SelColor] プロ パテ ィ に 代入 し ます 。 [SelColor] 
プロ パテ ィ は 、 現 在 選択 きれ て いる 文字 列 の 色 を 設定 する プロ パテ ィ で す 。 

また 、 同 じ 値 を フレ ー ム コン トロ ー ル の [BackColor] プロ パテ ィ に 代入 し て 、 
選択 し た 色 が 何 色 で ある の か を 表示 する よう に し ます 。 
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P ェ ュ で ate Sub Frame1 C1iok( ) 
With CommonDia1og1 
・ShowCo1o エ 
Frame1 . BaCKCo1o エ = .Co1o エ 
RichTmexxtBoxx1 . Se1Co1o エ = .Co1or 
End With 
End Sub 


ブ 今度 は 、 選 択 し た 文字 列 の 表示 位置 を 変更 する 処理 を 作成 し ます 。 リ ッ チ テキ ス 
ト ボ ックス コン トロ ー ル の [SelAlignmentl プロ パテ ィ を 使う と 、 選 択 し た 文字 列 
の 表示 位置 を 「 左 揃え ] 「 中 央 揃え ] 「 右 揃え ] に 設定 で きま す 。 そ こ で 、 こ れ ら の 
操作 を 、 ツ ー ル バー コン トロ ー ル の 3 つの ボタ ン に 組み 込み ます 。 
ツー ル バ ー コ ント ロー ル の ButtonClick イ ベン ト プ ロ シー ジャ で 、 キ ー「right] 
「 center」 「left] の 値 の Case 節 に 、[SelAlignmentl プロ パテ ィ の 値 の 代入 式 を 記述 
し ます 。 [SelAlignment] プロ パテ ィ に は 、 そ れ ぞ れ の 表示 位置 を 表す 専用 の 定数 
を 設定 し ます 。 


定数 に : わ nDT I 


Private Sub moo1ba ェ 1 Bu モ onC1iok (ByVa1 Button AS_ 
MSComct1 エ 1b . Bu 七 モ On ) 
















Se1eot Case Bu て on .Key 
Case "save" 
Ca11 Fi1eSa て e 


Case "open" 
Ca11 Fi1eroad 


Case "Center" 
RichTmextBox1 . Se1A11qnmen ヒ = て 上 FCGn セ e エ 


Case "1eF モ " 
RichTmexEBox1 . Se1A11gnmen = て ET,eF モ 上 


Case " ェ ight" 
RichmextBox1 . Se1A11gnmen = て 上 FRigh 
Case "p エ ュ n セ モ " 
Ca1 1 P ェ in モ ou セ も 
End Se1ect 


End Sub 
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それ ぞ れ の 表示 位置 





人 最後 に 、 印 刷 の 処理 を 作成 し ます 。 リ ッ チ テキ スト ボッ クス コン トロ ー ル の 
「SelPrint] メソ ッ ド を 使用 する と 、 選 択 範囲 を 印刷 で きま す 。 ま た 、 選 択 範囲 を 指 
定 し な いで この メソ ッ ド を 実行 する と 、 文 書 全体 を 印刷 で きま す 。 

印刷 の 実行 は せ 、 ツ ー ル バー の ボタ ン と メニ ュー の 2 個所 で 行え を る よう に し ます の 
で 、 印 刷 処理 全体 を 独自 の プロ シー ジャ と し て 作成 し て 、 そ れ ぞ れ の コン トロ ー ル 
で 呼び 出す よう に し て いま す 。 

印刷 処理 の プロ シー ジャ を 「Printout] と いう 名 前 で 作成 し ます 。 ま ず 、 こ の プ 
ロ シ ー ジ ャ が 呼ば れる と 、 最 初 に メッ セー ジ ボ ッ クス を 表示 し 、 印 刷 の 実行 を 確認 
し ます 。 メ ッ セ ー ジ ボッ クス に は 、 文 書 の ファ イル 名 を 表示 し 、[ は い ] と [いい ぇ ] 
の 2 つの ボタ ン を 持っ た メッ セー ジ ボ ッ クス を 作成 し ます 。 そ し て 、MsgBox 関数 
の 戻り 値 は 変数 「Ret」 に 格納 し ます 。 


P ェ ュ エ で a モ @G Sub P エ in ヒ Ou 七 ( ) 
Dim Re As Tnteger 


Ret = MsgBoxk(Form1 .Caption &g " を 印刷 し ます か ?", 
vbyesNo, "印刷 の 実行 " ) 


ユー ザー に よっ て メッ セー ジ ボ ッ クス の [はい] ボタ ン が クリ ッ ク さ れ た ら 、 リ 
ッ チ テキ スト ボッ クス コン トロ ー ル の 「[SelPrint| メソ ッ ド を 実行 し て 印刷 し ます 。 
この メソ ッ ド は 、 引 数 に デバ イス の 「 デ バイ スコ ン テ キ スト 」 を 指定 し ます 。 
「SelPrint] メソ ッ ド は 、 直 接 プ リン タ を 制御 し て 印刷 する の で は な く 、 リ ッ チ テキ 
スト ボッ クス コン トロ ー ル の 内 容 を 「Printer] オプ ジェ クト に いっ た ん 送信 し ます 。 
そし て 、「Printer] オプ ジェ クト が 実際 の 印刷 作業 を 実行 し ます 。 そ こ で 、 印 刷 の 
た め の 出 力 先 を 指定 する の に 、「Printer] オブ ジェ クト の 「[hDC] プロ パテ ィ を 指 
定 し ます 。 





Lesson 7 文字 属性 の 操 


エ F Re ヒ = vbYes Then 
Form1 RohTmexx モ Boxx1 . SG ら 1P エ ュ ロ モ P エ ュ n セ er .hDC 
End TE 


「Printout] プロ シー ジャ の 仕事 は これ だ け で す 。 あ と は 、 リ ッ チ テキ スト ボッ ク 
スコ ント ロー ル と Printer オブ プ ジ ェクト が 印刷 処理 を 実行 し て くれ ます 。 





大 スト ボ 、 2 ンズ コン | トロ ー ル は 、 F ロ に 入力 され た て 二 さゆ 

を 、 RTF 形 式 と テ 形式 の 両 あ の フォ ー マ ッ ト せ 避 條 で きよ す 。 RTF 形 式 は 、 

。 | 純粋 な 文字 デ 5 の テキ スト 29 ミ コ ォ ント 届 性 や 段落 、 イ ン デ ント な どの 
還 : < 書 の) いっ し ょ に 保存 で きる ファ イル 形式 で す 。 _ 

する プ の の 取得 | コ は 、 コ モン ダイ アロ ダボ ックス コン ト 











| 印刷 を 実行 する 
| ダイ アロ グ ボ ックス 
ロー ド す る 前 に 、 リッ チ デ 
| | | ビッチ テキ スト ボッ クス コン トロ ー ル | は 、 これ まで Visual Basic に 用 意 さ れ 


テキ スト ボッ クス コン トロ ー ル を 更に 村 能 拡張 し た コン トロ ー ル で す 。 テキ スト 氷 
クス コン ロール 緒 は テキ スト 半 の 人 清信 30 きれ リッ チ テ r | 


ト Pe ー ペ ーー ce mae or 


0 純 馴 処理 の ブロ シー ジャ が 完成 し た ら 、 ま ず ッ ツー ル バ ー の [印刷] ボタン で この 
プロ シー ジャ を 呼び 出す 処理 を 、 ツ ー ル バー コン トロ ー ル の ButtonClick イ ベン ト 
プロ シー ジャ に 加え ます 。 [印刷 ] ボタ ン の キー の 値 は 「print] に な り ま す 。 





Case "p エ 1nE" 
Ca1 1 P エ ュ ロ ヒ Ou セ 


また 、[ フ ァイル ーー 印刷] メニ ュー の Click イ ベン ト プ ロ シー ジャ に も 、 こ の 
「Printout] プロ シー ジャ を 呼び 出す 処理 を 記述 し ます 。 こ れ で 完成 で す 。 


P ェ ュ マ ate Sub TDM PRTNT C1iock( ) 
Ca1 1 P エ ュ n ロ モ Ou モ 
End Sub 
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リッ チ テ キス ト ボ ックス コン トロール は 、 フ ォ ン ト の 操作 に 一 部 癖 は あり ます が 、 
フォ ント 属性 の 変更 や 文字 位置 の 操作 、 段 落 の 設定 や 印刷 処理 な ど が プロ パテ ィ や メ 
ソ ッ ド で 簡単 に 作成 で を きる の で 、 と て も 便利 で す 。 
印刷 機能 も 装備 され て お り 、 プ ログ ラム に ちょ っ と し た 文書 編集 機能 を 組み 込む に 
は 、 使 い 勝 手 の い い コ ント ロー ル に な っ て いま す 。 


6 印刷 実行 時 に 、 コ モン ダイ アロ グ ボ ックス の [印刷] ダイ アロ グ ボ ッ 
クス を 表示 し て 、 印 刷 を 実行 する よう な 処理 に 変更 し て くだ さい 。 


【 ヒ ント 】 

[印刷 ] ダイ アロ グ ボ ックス を 表示 する に は 、「ShowPrinter」 メソ ッ 
ド を 実行 し ます 。 ま た 、 こ の メソ ッ ド を 実行 する 前 に 、 コ モン ダイ アロ 
グ ボ ックス コン トロ ー ル の [Flags] プロ パテ ィ に いく つか の 設定 を 行う 
必要 が あり ます 。 


解答 は 巻末 に 一 








58 う づ 日 (Lesson8 ~ Lesson1 1 ) 
便利 な コン トロ ー ル 
































を 便 う 





Visual Basic 6.0 に は 、 と て も 便利 な コン トロール が 標準 で 組み 込ま れ て いま す 。 
た と えば 、 ス ライ ダー コン トロ ー ル は 、 マ ウス で つま み を スラ イド させ る こと で 、 
デー タ を 連続 入力 で きま す 。 プ ログ レス バー コン トロール は 、 刀 理 の 進行 を 目盛 の 
増加 で 表示 し ます 。 そ の ほか に も 、 補 足 情 報 を 表示 する ステ ー タ スバ ー コ ント ロー 
ル や 、 ボ タン で デー タ の 入力 や 操作 を 行う アッ プ ダ ウン コン トロ ー ル な ど が あり ま 
す 。 こ れ ら の コン トロ ー ル を プロ グラ ム の 処理 に 組み 込ん で 使う と 、 ユ ー ザ ー の 操 
作 性 が 向上 し 、 使 いや すい プロ グラ ム を 作成 で きま す 。 


今日 の レッ スン で は 、 こ れ ら の 便利 な 4 つの コン トロ ー ル を 、 プ ログ ラム に 組み 
込む た め の 基 本 的 な 知識 を 身 に 付け ます 。 

今日 の レッ スン で 解説 する 項目 

ロス ライ ダー コン トロ ー ル の プロ パテ ィ 設 定 

スラ イダ ー コ ント ロー ル と ラベ ルコ ント ロー ル の 連動 処理 
ロス ライ ダー コン トロール の イベ ント 処理 

ロロ プロ グレ スバ ー コ ント ロー ル の 機能 

ロロ プロ グレ スバ ー コ ント ロー ル の プロ パテ ィ 設 

ロロ プロ グレ スバ ー を 使っ た 状態 表示 処理 の 作成 

ロス テー タス バー コン トロ ー ル の プロ パテ ィ 設 定 
[パネル へ の 表示 方 法 

ロス テー タス バー の 活用 テク ニッ ク 

パネ ル の 追加 と スタ イル 設 

ロア ッ プ ダウ ンコ ント ロー ル の プロ パテ ィ 設 

品 連動 コン トロ ー ル と の 同期 設定 

ロイ ベン ト プ ロ シー ジャ の 使い 方 
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HH Lesson8.vhp 
⑤) VB6CD2 


= ュー コ Lesson08 
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スラ イダ ー コ ント ロー ル を 使う 


スラ イダ ー コ ント ロー ル は 、 目 盛 と バー と つま み ボ タン が 組み 合わ され 
た コン トロ ー ル で す 。 マ ウス で ボタ ン を スラ イド させ る こと で 、 数 値 の 
入力 な ど を 連続 し て 行う こと が で きま す 。 こ の レッ スン で は 、 簡 単 な プ 
ログ ラム を 作成 し て 、 ス ライ ダー コン トロール を 使う た め の テ クニ ッ ク 
を 紹介 し ます 。 


今回 作成 する プロ グラ ム 


中 Iill  - | ロ | x| 


「 
スラ イダ の つま み を 
ドラ ッ グ する と .… 


ラベ ル の 幅 が 変化 する 


スラ イダ ー コ ント ロー ル を 操作 する と 、 ラ ベル コン トロ ー ル の 幅 
が 変化 する プロ グラ ム で す 。 ラ ベル コン トロール に は 、 そ の と き の 
スラ イダ ー コ ント ロー ル の 値 が 表示 され 、 現 在 の ボタ ン の 位置 を 把 
握 で きる よう に し て いま す 。 

スラ イダ ー コ ント ロー ル を 操作 する 上 で 必要 な プロ パテ ィ の 設定 
を 身 に 付け て くだ さい 。 









































Lesson B スラ イダ ー コ ント ロー ル を 使う 


本 っ 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


ツー ル パ レ ッ ト に 「Microsoft Windows Common 
Controls 6.0」 コン ポー ネン ト を 追加 する 





ツー ル パ レ ッ ト に コモ 


ンコ ント ロー ル が 追加 
され る 





フ ツー ル バ パレ ッ ト の [Label] | を 使っ て 、 ラ ベル コ 
ント ロー ル を 配置 する 


縦 め に ドラ ッ グ 
し て 配置 





[BorderStyle] プロ パテ ィ を 「1 一 実線 」 に 設定 す 





Label1 Label 
に ーー ニー 





ここ を クリ ッ ク 
ここ を クリ ッ ク 
ここ を クリ ッ ク 


第 3 日 











コン ポー ネン ト を 
追加 する 
コン ポー ネン ト を 追加 す 
の 552 が に ce で 3 は 記 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 


選択 肢 の 一 覧 を 
の 表示 する 


[BorderStyle] プロ パテ 
ィ の 右側 の 欄 の 右 敵 に あ 
る 下向き 三角 を クリ ッ ク 
する と 、 選 択 肢 の 一 覧 が 
表示 され ます 。 
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。 


2 に 


上 
パパ 
う 
用 
肝 


110 


> 2 


ボタ ン は 、 そ の プロ 
ィ の 詳細 な 指定 を 行 
イア ログ ボッ クス が 
Mg と を 示 
いま す 。 





竹 [Width] プロ パテ ィ を 「100」 に 設定 する 


・ーー 


ToolTipText 

Top 240 
UseMfnemonic True 
IVisible True 
hatsThisHelpID 0 


10l 「100」 に 設定 


False マ 





和 [Caption] プロ パテ ィ の 値 を 削除 する 


1- 3D 
False 
目 SH8O00O0F& 








1 - 不通 H 
ツー ル パ レ ッ ト の [Slider] | 大 | を 使っ て 、 ス ライ 
ダー コン トロール を 配置 する 
| 1 問 回 四 | 
3 2 人 | 








er ココ = 1 | ここ を クリ ッ ク 
コ こ を ン リ ッ ルク 








Lesson B スラ イダ ー コ ント ロー ル を 使う 


5 MM を 「1」 に 、[ 最 大 値 ] を 「20」 に 設定 す 








| Private Sub S1ider1 Change( ) 


] 


nd gub 





1 













With rabe11 

-・Width = S1iqer1 .Va1ue * 100 
End With 
Labe11 .Caption = S1iqder1 .Va1ue 


スラ イダ ー コ ント ロー ル は 、 ス クロ ー ル バー コン トロ ー ル と よく 似 た プロ パテ ィ 
を 持っ て いま す 。 

まず 、[Max] (最大 値 ) と [Min] (最小 値 ) プロ パテ ィ で 、 ス ライ ダー コン トロ 
ー ル の 可動 範囲 を 設定 し ます 。 [SmallChange] (最小 移動 量 / 増 分 ) と 
[LargeChange] (最大 移動 量 / 増 分 ) プロパ ティ は 、 ス ライ ダー の 実際 の 移動 量 を 
設定 する プロ パテ ィ で す 。[SmallChange] プロ パテ ィ は 、 ス ライ ド つ まみ を マウ ス 
で ドラ ッ グ し た 場合 、 ま た は キー ボー ド の 左右 の 矢印 キー を 押し た と き に 移動 する 
量 を 設定 し ます 。 [LargeChange] プロ パテ ィ は 、 ス ライ ダー の バー の 部 分 を マウ 
ス で クリ ッ ク し た と き 、 ま た は キー ボー ド の PageUp キー また は PageDown キー を 
押し た と き に 動作 する 移動 量 を 設定 し ます 。[Orientation] (配置 方 向 ) プロ パテ ィ 





第 3 日 1 時 限 目 便利 な コン トロ ー ル を 使 





を 使用 する と 、 ス ライ ダー コン トロ ー ル の 水平 ・ 垂 直方 向 を 設定 で きま す 。 
これ ら は 、 プ ロ パ ティ ペー ジ で まとめ て 設定 する こと が で きま す 。 








] プロ パテ ィ ペ ー ジ で 
配置 方 向 を 設定 





垂 電 ス ライ ダー コン トロ ー ル 


[TickStyle] プロ パテ ィ は 、 ス ライ ダー コン トロ ー ル に 付け る 目盛 り の 位置 を 設 
定 し ます 。 ま た 、[TickFrequency] プロ パテ ィ は 、 目 盛り の 増分 を 設定 し ます 。 

これ ら の プロ パテ ィ を 組み 合わ せ て 、 使 用 する 処理 に あっ た スラ イダ ー コ ント ロ 
ー ル の 形状 と 動作 範 肝 を 設定 し ます 。 


この プロ グラ ム は 、 ス ライ ダー コン トロ ー ル を 操作 する と 、 フ ォ ー ム に 配置 し た 
ラベ ルコ ント ロー ル の 幅 が 変化 する プロ グラ ム で す 。 

スラ イダ ー コ ント ロー ル は 、[Max] プロ パテ ィ を 「20」 に 、[Min] プロ パテ ィ 
を 「1| に 設定 し て いる の で 、 こ の 範囲 で 動作 し ます 。 ス ライ ダー コン トロ ー ル を 操 
作 す る と 、 こ の コン トロ ー ル に は 「Change] イベ ント が 発生 し ます 。 こ れ は 、 マ ウ 
ス と キー ボー ド の どちら で 操作 し て も 、 こ の イベ ント が 発生 し ます 。 そ こ で 、 ス ラ 
イダ ー コ ント ロー ル の 操作 に 合わ せ た 処 理 を 行う に は 、 こ の イベ ント プロ シー ジャ 
に 処理 を 組み 立て ます 。 

スラ イダ ー コ ント ロー ル の 動作 量 は 、[Value] プロ パテ ィ に 格納 され ます 。 値 は 
長 整数 型 (Long) で す 。 こ の 値 を 取り 出せ ば 、 現 在 の スラ イダ ー コ ント ロー ル の 動 
作 量 を 把握 で きま すか ら 、 こ の 値 を ラベ ルコ ント ロー ル の [Width] プロ パテ ィ に 
代入 する と 、 ス ライ ダー コン トロ ー ル の 動作 に 連動 し て 、 ラ ベル コン トロ ー ル の 幅 
が 変化 し ます 。 

また 、[Value] プロ パテ ィ の 値 を ラベ ルコ ント ロー ル の [Caption] プロ パテ ィ 
に 代入 し て 、 そ の 数 値 が わか る よう に し ます 。 


E ェ ュ vate Sub S1iqder1 Change( ) 
With rabe11 
・Width = S1iqer1.Va1ue * 100 
End With 
Tabe11 .Cap モ ion = S11qer1 .Va1ue 
End Sub 


Lesson B スラ イダ ー コ ント ロー ル を 使 


スラ イダ ー コ ント ロー ル は 、 ユ ー ザ ー の 入力 操作 を 助け る 便利 な コン トロ ー ル で す 。 
単独 で 使う より も 、 マ ル チ メ ディ アコ ント ロー ル や テキ ス ト ボ ックス コン トロ ー ル な 
どの 、 他 の コン トロ ー ル と 組み 合わ せ て 使う と 面白 い 効 果 が 得 ら れ ま す 。 


@c》 練習 問題 


イメ ー ジ コン トロ ー ル と スラ イダ ー コ ント ロー ル を 組み 合わ せ て 、 ス 
ライ ダー コン トロール を 操作 する と イメ ー ジ コン トロール が 左右 に 動く 
プロ グラ ム を 作成 し て くだ さい 。 


スラ イダ ー コ ント ロー ル の 動作 に 
合わ せ て イメ ー ジ が 移動 する 


解答 は 巻末 に 一 
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人 VB6CD2 
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プロ グレ スバ ー コ ント ロー ル を 使う 


プロ グレ スバ ー コ ン トロ ー ル は 、 横長 の 空欄 の 中 を 四角 い ブ ロッ ク で 塗 
りつ ぶす こと で 、 処 理 の 進行 状況 を 示す コン トロ ー ル で す 。 こ の コン ト 
ロー ル を プロ グラ ム に 組み 込む こと で 、 処 理 に 時 間 が か か る 場合 は その 
状況 を ユー ザー に 伝え る こと が で きま す 。 


今回 作成 する プロ グラ ム 
FEET 昌 Ei- ロ 


実行 する と … 


男 、 Form] 問 回 | 


回 間 関 剛 較 較 全 半 





] 秒 ご と に ブロ ッ ク が 
増え て いく 











プロ グレ スバ ー と タイ マー コン トロ ー ル を 組み 合わ せ て 、1 秒 ご 
と に プロ グレ スバ ー で 進行 状況 を 表示 し ます 。 

また 、 プ ログ レス バー と いえ ども イベ ント を 持っ て いま す の で 、 
この イベ ント に タイ マー コン トロ ー ル を 停止 する 処理 を 組み 込み ま 
す 。 
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EE2uEEEEE EE ん 生 手提 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


ツー ル パ レ ッ ト に 「Microsoft Windows Common We コン ポー ネン ト を 
Controls 6.0] コン ポー ネン ト を 追加 する / 追加 する 


コン ポー ネン ト を 追加 す 
る 方 法 に つい て は 。 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 





\ レ ッ ト に コモ 














ー ル が 追加 











ツー ル パ レ ッ ト の [ProgressBar] 連 」 を 使っ て 、 
フォ ー ム に プロ グレ スバ ー コ ント ロー ル を 配置 する 


に EEE 





作 サイ ズ 変 更 ハ ンド ル を ドラ ッ グ し て 、 黒 四角 が 同じ 
大 き さ で 10 個 揃 う よ う に サイ ス 調 整 する 


に ill | | 口 | >| 





ここ を ドラ ッ グ 
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竹 [Max] プロ パテ ィ を 「10」 に 設定 する 








リロ パティ - Prog Bar1 
ProgressBar1 ProgressBar ェ 
全体 | 項目 串 | 









lgn 
各 PpearanCg 


UI - vbAlignNone 到 
1 - cc3D 

1 - ccNone 

( ぬ なし) 

DU - vbManual 
True 

660 








210 


10 ーー 料 一 一 ーー 年 「10」 に 設定 
D 


に 


ツー ル バ レ ッ ト の [Timer] 呈 を 使っ て 、 タ イマ ー 
コン トロ ー ル を 配置 する 


iiil | 1 ロ >| 





[ 斜め に ドラ ッ グ 
3 し て 配置 


(( [Intervall プロ パテ ィ を 「1000」 に 設定 する 






ITimer1 Timer < 
全体 | 項目 別 | 


True 


1000 ューーーー オ ーー 還 「1000」 に 設定 
3630 


2205 
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FORUU 交 箇 則 店 の RIAINUON) ・ 





(Generab) | |(Declarations) マ | | 





| Dim 1 As エ n ヒ ed@ エ 








是 FOrm1:F0rm-Load 
[Form | [reaq | | 
ーー ー ョ ニ 
| Pr ュ vate Sub Form Load( ) 
も = 1 
| 到 nd Sub 


Form1:ProgressBar1-Click 


IO] 


| [ProeressBart | [Ciick | 








Priyate Sub ProgressBar1 C1icK( ) 
mimer1 . Tnterva1 = 0O 
MsgBox "タイ マー を 停止 し て いま す 。 
Timer1 .Tnterva1 = 1000 

End Sub ち 


是 F0rm1 :Timer1-Timer 


| Lesson9 - Form1 ロー ト ) 


private Sub Timer1 Fimer() 
With ProgressBa エ 1 
・Va1ue = 
エ E i = .Max Then 
ュ 1 = 。Min 
End TE 
End With 
Ho 
End Sub 
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プロ グレ スバ ー コ ント ロー ル は 、 ス ライ ダー コン トロ ー ル と 同様 に [Max] と 
[Min] プロ パテ ィ で 可動 範囲 を 設定 し ます 。 こ の 可動 範囲 と コン トロ ー ル の 幅 に よ 
っ て 自動 的 に 計算 きれ 、 コ ント ロー ル の 中 の 黒い 四角 が 動作 し て いき ます 。 こ の 黒 
四角 の 現在 の ポジ ショ ン は 、[Value] プロ パテ ィ に よっ て 決ま り ま す 。 そ こ で 、 こ 
の プロ グラ ム で は 、 タ イマ ー コ ント ロー ル を 使っ て 、1 秒 ご と に プロ グレ スバ ー コ 
ント ロー ル の [Value] プロ パテ ィ の 値 を 1 つ ず つ 増 加 し 、 処 理 の 状況 を 刻 一 刻 と 伝 
える よう に し て いま す 。 


最初 に に 、 プ ログ レス バー コン トロ ー ル の [Value] プロ パテ ィ に 設定 する 値 を 格 
納 す る 変数 [i] を 、 モ ジュ ー ル レベ ル の 変数 で 宣言 し ます 。 


Dim 1 As Tnteger 


そし て 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 初期 化し ます 。 


P ェ ivate Sub Form Load( ) 
も ミ = 1 
End Sub 


タイ マー コン トロ ー ル の 「Timer」 イベ ント プロ シー ジャ で 、 プ ログ レス バー の 
動作 処理 を 作成 し ます 。 こ の イベ ント プロ シー ジャ は 、[Intervall プロ パテ ィ を 
「1000] に 設定 し て いる た め 、1 秒 ご と に 呼び 出さ れ て 処理 が 実行 きれ ます 。 

まず 、 プ ログ レス バー コン トロ ー ル の [Value] プロ パテ ィ に 、 変 数 「i| の 値 を 
代入 し ます 。 も し 、[[i| の 値 が プロ グレ スバ ー コ ント ロー ル の [Max] プロ パテ ィ 
の 値 を 超え て し まう と プロ グラ ム は エラ ー に な っ て し まう の で 、 そ の と き は [Min] 
プロ パテ ィ の 値 を 変数 「i] に 代入 し て リセ ッ ト し ます 。 そ し て 、 こ の 変数 i| を 1 
つ 増 加 し て プロ シー ジャ を 終了 し ます 。 

この プロ シー ジャ は 、1 秒 ご と に 実行 され 、 変 数 il の 値 が 1 つ 増 加 し て プロ グ 
レス バー コン トロ ー ル の [Value] プロ パテ ィ に 代入 きれ ます 。 結果 と し て 、 プ ロ 
グレ スバ ー コ ント ロー ル は 、1 秒 ご と に 黒い 四角 を 表示 し ます 。 


Private Sub 中 ime ェ 1 Fimer() 
With Progres8Ba エ 1 
・Va1ue = ュ 

エ F i = .Maxx Then 
ュ 1 = .Min 
End TE 
End With 
3 
End Sub 
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衝 。) プログレス パー コン トロ ー ル は 、 他 の コン トロ ー ル と 同じ 数 の イベ ント を 持っ て 
いま す 。 そ こ で 、 こ の コン トロ ー ル が クリ ッ ク さ れる と 、 タ イマ ー コ ント ロー ル が 
停止 し 、 ま た 再起 動 す る 処理 を 組み 込ん で み ま す 。 プ ログ レス バー コン トロ ー ル が 
マウ ス で クリ ッ ク さ れる と 、Click イ ベン ト プ ロ シー ジャ が 発生 し ます 。 そ こ で 、 こ 
の イベ ント プロ シー ジャ に 、 タ イマ ー コ ント ロー ル の [Intervall プロ パテ ィ を 「0] 
に する 処理 を 組み 込み ます 。 こ れ で タイ マー コン トロ ー ル は 動作 を 停止 し ます か ら 、 
プロ グレ スバ ー コ ント ロー ル の 動作 も 停止 し ます 。 

次 に メッ セー ジ ボ ッ クス を 表示 し 、[OK] ボタ ン が クリ ッ ク さ れる と 再度 
[Intervall プロ パテ ィ に 値 「1000] を 設定 し て 動作 を 再開 し ます 。 プ ログ レス バー 
コン トロ ー ル も 、 こ れ に 連動 し て 動作 を 開始 し ます 。 


P ェ ュ マ ate Sub ProgressBar1 C1iock() 
中 1mer1 . エ n モ erva1 = 0O 
MsgBox "タイ マー を 停止 し て いま す 。 
Fmer1 .Tnterva1 = 1000 

End Sub 


プロ グラ ム の 内 部 動作 が 見 えな い ユ ー ザ ー に と っ て は 、 プ ログ ラム が 現在 何 を し て 
いる の か を 表示 する プロ グレ スバ ー は 大 切な か インタフェース で す 。 プ ログ レス バー コ 
ント ロー ル の サイ ズ を 、 動 作 範 囲 に 合わ せ て 上 手 に 調整 する の が ポイ ント で す 。 


上 「Windows] フォ ル ダ 内 に ある ファ イル の 総数 を 調べ る プロ グラ ム を 
作成 し て くだ さい 。 進行 状況 よ は プロ グレ スバ ー で 表示 し て くだ さい 。Dir 
関数 と Do.….While ルー プ を 組み 合わ せ て ファ イル の 個数 を 調べ ます 。 


ファ イル の 総数 を 表示 する 


プロ グラ ム 。 進 行状 況 を 
プロ グレ スバ ー で 表示 する 


解答 は 巻末 に 一 





第 3 日 ら 時 限 目 便利 な コン トロ ー ル を 使 





















































Lesson10.vhp 
(9 | VB6CD2 


コバ ペコ Lesson10 


ステ ー タ スバ ー コ ン トロ ー ル を 使う 


ステ ー タ スバ ー コ ント ロー ル も 、 プ ログ ラム 動作 時 の さま ざま な 情報 を 
表示 する 便利 な コン トロ ー ル で す 。Windows ユー ザー に は 、 も うす っ 
か りお な じみ の コン トロ ー ル で 、 ウ ィ ン ド ウ の 最 下 部 に いろ いろ な 文字 
を 表示 し ます 。 こ の レッ スン で は 、 ス テー タス バー コン トロ ー ル の プロ 
グラ ム デ ザイ ン 時 の 操作 と 、 プ ログ ラム 実行 時 の 操作 方 法 を 解説 し ます 。 


今回 作成 する プロ グラ ム 


人 dil 問 還 IE3 


ボタ ン や コン トロ ー ル 
を クリ ッ ク す る と .… 




















ステ ー タ スバ ー に それ ら に 
関す る 情報 が 表示 され る 


ポタ ン を クリ ッ ク | イメー ジュ ント ロー ル 上 31094 


さら に スス デー デー タ ズ バー に 
時 計 を 組み 込む 


いく つか の コン トロ ー ル と ステ ー タ スバ ー コ ント ロー ル を 組み 合 
わせ て 、 ス テー タス バー に 情報 を 表示 し ます 。 

ステ ー タ スバ パー コン トロ ー ル は 3 つの パネ ル を 持ち 、 1] つ は フォ 
ー ム 上 の コン トロ ー ル を マウ ス で ポイ ント する と 、 そ の コン トロ ー 
ル 名 が ステ ー タ スバ ー に 表示 され ます 。 も う 1 つ は コマ ンド ボタ ン 
を クリ ッ ク す る と 、 そ の 回 数 を パネ ル に 表示 し ます 。 最 後 の パ ネル 
は 、 ア イコ ン を 組み 込み 、 現 在 の 時 刻 を 表示 し ます 。 
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U コン トロ ー ル と プロ パテ ィ の 設定 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 ま た 、 付 
録 CD-ROM に 収録 され て いる 「materiall フォ ル ダ の 
「FLOPPY_1.IC0]」 と 「CLOCK8.IC0」 を 使用 し ます 。 


ツー ル パ レ ッ ト に 「Microsoft Windows Common コン ポー ネン ト を 


Controls 6.0」 コン ポー ネン ト を 追加 する 追加 する 

コン ポー ネン ト を 追加 す 
回 回 本 論 る 方 法 に つい て は 、 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 










ツー ル パ レ ッ ト に コモ 
ンコ ント ロー ル が 追加 
され る 








ツー ル パ レ ッ ト の [CommandButton] に 』 を 使っ 
て 、 コ マン ド ボ タ ンコ ント ロー ル を 配置 する 


Es ーー 
| 
・ 斜め に ドラ ッ グ 
: し て 配置 
N 


る ツー ル パ バレット の [Image] 剛 を 使っ て 、 イメ ー 


ジコ ント ロー ル を 配置 する 








ス ュ 』 
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[ネタ ン 


[.…] ボタ ン は 、 そ の プロ 
パテ ィ の 詳細 な 指定 を 行 
う ダ イア ログ ボッ クス が 
用 意 さ きれ て いる こと を 示 
し て いま す 。 


= の NN 

ンジ コン トロ ー ル 

ポタ ン を クリ ッ ク し て フ 
ォ ー ム 上 を ドラ ッ グ する 
と ど 、 ス テー タス バ パー コン 
トロ ー ル が フォ ー ム 下部 
の 左右 幅 い っ ぱい に 自動 
的 に 配置 され ます 


[プロ パテ ィ ペ ー 
デカ タイ アロ グ 


[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 ス テー タス バー 
コン トロ ー ル が 選択 され 
て いる 状態 で 、 プ ロ パ テ 
ィ ウ ィ ン ド ウ の [( プ ロ パ 
ティ ペー ジ )] を クリ ッ ク 
し 、 右 欄 の [.….] ボタ ン を 
クリ ッ ク し ます 。 
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[Picture] プロ パテ ィ の 【[.……] ボタ ン を クリ ッ ク し 、 
「FLOPPY_1.ICO」 を 指定 する 







Es 
Imes 。 引 国 串 副 隊 国 | 


守 と ご を 多 選 必 
回 Floppy 2co 天 Pam. Mg Point04 co う 
Folder9ico の Pant5 co 画 Prntoico ペ : 
Those pe 科 Pamt6ico 軍 Prntr02co 各 
置 !eftico Pant2 co 副 Frnr12ico 各 : 
馬 Pant1co 倫 Pantcanico 詩 'htco 目 - 
的 四 
EGO 誠 Poo  、 本 用 | ここ を クリ ッ ク 
アル の 和 類 ⑪。 [3 べ て の F ツ fr > イル < キャ ン セ ル ] | 


ツー ル パ レ ッ ト の [StatusBar] 導 を 使っ て 、 
ステ ー タ スバ ー コ ント ロー ル を 配置 する 








| 斜め に ドラ ッ グ 
し て 配置 


[プロ バテ ィ ベ ペー ジ ] の パ キ ル ] タブ で 、[ デ キス 
ト ] に 「 ボ タン を クリ ッ ク 」 と 入力 する 


全 役 が 老 | トウ | 









イヤ アッ z ゆ 
ケル ウト 69. 
キ ⑯- 「 豆 柱 %: om 
妙 ⑤ |  " 玩 % の 性 GOOmnhMuam 


配 寺 ⑭: EE 
1&⑤: hp-srTet 還 詞 9 還 較 






立 ほ 御 @ 生 -sbrrset ューーーー ーーーーーーー | 
け 人 の 自動 有 定 ⑰ [priotucScc =] レ fg P 表示 
L し し K ] sk | 暫 M@ | 2 
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[キー] に 「one」 と 入力 し 、[ 最 小幅 ] を 「1440] 
に 設定 する 







テウ の 「one」 と 入力 
テキ メト 

ツー ルト G9 

を 「1440」 に 設定 
紗 ⑧ 


| 尋 量 ⑭-sprtct 恨 | ーー | 
| 229 生 -sren 司 | | 5 | 
| 輸 @「-prce | MEZ2Z2 計 | 
」 イズ の 自動 設定 (U* Ip - strNoautcSce 司 レト 認 謙 ⑥ じ 表 示 ) 





[パネ ル の 挿入 ] を クリ ッ ク し 、[ キ ー] に 「two」 と 
入力 し 、[ 最 小幅 ] に 「1700」 を 設定 する 


全 衝 7 | 1 1 回 ここ を クリ ッ ク 
220 EE | 帳 が A⑳ | の 淫 R) | | 









En [two」 と 入力 


ケル ビルト 
1 「1700」 に 設定 


多 ⑯ 
配 告 0⑩ [hp-:pct li 人 
2 -stTen 選 
立体 枠 (8 1-sbrnset 玉 トーーー ブ ーー ー プ ブー 

す イ の 自 動 設定 ロー:brNouoSce <] レ イツ ト 認識 じ 表示 ⑰ め 


[パネ ル の 挿入 ] を クリ ッ ク し 、[ キ ー] に 「three」 
を 入力 する 


臣 誠 る Lxl 
全 答 が 22 トウ | 
ィ イデ 20 。 EE 中 

、 斑 ⑥ 

| ルト 9 

| キ ⑯⑩ frs ニー 
錠 ⑯ 1 』 ee<20 な  F44aOm 
配置 hp-sptet 選 油 2 2 の ーー ンー 
2 pr 当 詞 紅 知 5 
立 特 人 。 h-rcol に 
人 2 の 自動 設定 n - crhoAutcSce =] レイ 2N2 識 ⑤ 表示 Q⑰ 












24 の MX 








[three」 と 入力 


[L_ _ ] *wzty | 交 | Ag 
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[スタ イル ] 
リス ト ボ ックス 


[スタ イル ] リス ト ポ ボック 
ス の 右端 に ある 下向き 三 
角 を クリ ッ ク す る と 、 選 
択 肢 の 一 覧 が 表示 され ま 
3933 で 2 の っ 焼き で 5 三 
sbrTime」 を 選択 し ます 。 


時 ヤ 目 の 
| 参照 | ボタ ン 


[参照 ] ボタ ン を クリ ッ ク 
する と 、 ピ クチ ャ を 選択 
する 【[ 図 の 選択 ] ダイ ア 
ログ ボッ クス が 表示 され 
ます 。 


作業 を 終了 する 


[開く ] ボタ ン を クリ ッ ク 
する と [プロ パテ ィ ペ ー 
ジ ] ダイ アロ グ ボ ックス 
に 戻る の で 、[OK] ボタ 
ン を クリ ッ ク し て 作業 を 
終了 し て くだ さい 


12 全 


』《) [スタ イル ] で [5ー-sbrTime] を 選択 し 、[ ビ 
クチ ャ ] の 参照] ボタ ン を クリ ッ ク す る 


全般 パ が 秒 トッ | 


2 の x0 EE 
共 え の 








パネ の 挿入 ⑱ ] パネ ル の 前 記 (R) ] 













ケル ルト 1 ヽ 
語 Frーーーー 「5-sbrTime」 を 選択 
が リ 

ser ここ を クリ ッ ク 

立 人 ーー EZ の 

サイ の 自動 論 定 ⑪* Em ピ イツ ト 妥 講 (⑥ じじ 表示 








講 centerico 
Atoms2 ico checkico 
IButton13co 四 Clpbrd2 co 


を クリ ッ ク 


Buttonrgico 時 Copyaco 






tl 所 | 
中 中 


Calcico 細 Disk 3eico Drveico Floppy_1.co 
Cameraico 加 Dsk ico 記 Driveaico Flgppy_2.ico 
SS を クリ ッ ク 
前? 


アイ ル の 種類 (D: ド : ッ ト ィ 2 お よび アイ ロッ ファ イル %bmp. * ico) 選 キ w ン セル | 


』 み 完成 し た フォ ー ム 


| 問 回 四 


co | 置 








le ッ ク | KDEDme 
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ョ Form1: BR (Declarations) 





| 放 1 遇 m 

、 ド Generaly | |(Declarations}) ェ 
| Dim 1 Ag Tnteger 

L 


"Form1: Command1- -Click 


DRGepii a 





| ニ 上 
| [Commana1 | [Ciick <] 
トーーーーーーーーーーーーーーーーーー ーー ーーーーー 


Pr1vate Sub Command1 C1ick( ) 

ト 

StatusBar1 .Pane1s(1) .Tmex モ = "Push " を 
End Sub 


「 Form1:Command1-MouseMove 





瑞 Lesson10 - Form1 ロー ド ) 
[Commana1 選 [MouseMove | 
トーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


生生 Sub Command1 MouseMove ( But 上 モ ton AS Tnteger, 

| ShiF モ As Tnteger, 双 As Sing1e, Y As Sing1e) 
| StatusBar1 .Pane1s(2) .mexxt = "コマ ンド ボタ ン * 

End Sub 


引 F0rm1:Form-Load 


| P エ ュ Yate Sub Form Load( ) 
員 要 0 
End Sub 





Form1: Form- MouseMove = 


PT: rm1 ロー ト ) 





| lecrm | [mouseoye 引 





P ェ ュ ivate Sub Form MouseMove ( Bu 上 上 on AS Tnteger, ShiF モ 上 As Tnteger, 
メ As Sing1e, Y As Sing1e) 
StatusBar1 .Pane1s ("two") .mexxt = "フォ ー ム " 
| End Sub 
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川 


Form1:Image1-IMouseMove 
TERRY TS 間 還 還 6 」 TI ロ Ei 


[maee1 - 中 | [Mouseove 加 | 
ee 


Private Sub Tmage1 MouseMove ( But 上 ton As Tnteger, | 
ShifF As Tnteger, XX As Sing1e, Y As Sing1e) | 
| StatusBar1 .Pane1s(2) .mext = "イメ ー ジ コン トロ ー ル | 











End Sub 








P ェ iate Sub StatusBa ェ 1 MouseMove (But モ on As Tntege エ , ShiEE As 
エ nteger, XX AS Sing1e, Y As Sing1e) 
StatusBar1 .Pane1s(2) .mext = "ステ ー タ スバ ーr 

End Sub 








設 。。 ステ ー タ スバ ー コ ント ロー ル は 、 コ ント ロー ル 内 を いく つか の 表示 エリ ア に 区 切 
り 、 そ れ ぞ れ 別 々 の 内 容 を 表示 で きる よう に な っ て いま す 。 こ の エリ ア を 「 パ ネル ] 
と 呼び ます 。 1 つの ステ ー タ スバ ー コ ント ロー ル で 、 合 計 16 個 まで の パネ ル を 設定 
で きる よう に な っ て いま す 。 

プロ パテ ィ ペ ー ジ を 使用 する と 、 こ の パネ ル を コン トロ ー ル に 追加 で き 、 ま た パ 
ネル の サイ ズ や テキ スト ・ イ メー ジ の 設定 が 行え を ます 。 フ ォ ー ム に 配置 し た ば か り 
の ステ ー タ スバ パ バー コン トロ ー ル は 、1 つ し か パネ ル を 持っ て いま せん の で 、 デ ザイ 
ン 時 に プロ パテ ィ シ ー ト を 使っ て 必要 な 数 だ け パ ネル を 追加 し ます 。 







プロ パテ ィ ペ ー ジ で 






- 計 ーーーー ロ ー 






ゃ 
の 

















0 。 財 Th の 導 久 0 パネ ル を 追加 する 
メト: ボタ ン き クリ ッ ク 
ケル ヒト 0: 
キー に ーー aw 144000 
| 學 ⑮ Fi40m0 
| 配置 に ーー as 
| : に or sbrleft _ き 双 の _ | 
29 イ ル ⑤) ーー sbrText PPP 
| E@。 「-sprset 引 ーーーー ゴ 





サイ ズ の 自動 該 定 0 [ - sbrNoautoSce 本 1 ムット 識 ⑥ レレ 表示 ⑰ 


に CK _ | ゃ or | の | へ ウー| 
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また 、 プ ロ パ ティ ウィ イン ドウ に ある [Alignm] プロ パテ ィ を 使用 する と 、 フ ォ ー ム 
内 の ステ ー タ スバ パ バー コントロール の 表示 位置 を 設定 で きま す 。 デ フォ ルト で は フォ 
ー ム の 最 下 部 に くる よう な 設定 に な っ て いま す が 、 こ の プロ パテ ィ を 使え ば フォ ー 
ム の 上 下 左 右 に コン トロ ー ル を 配置 で きま す 。 





[Align] プロ パテ ィ で 表示 フォ ー ム の 上 端 に 

位置 を 指定 する と .… 配置 され る 

設定 し た パネ ル は 、[ サ イズ の 自動 設定 ] で パネ ル の サイ ズ 調 整 が で きま す 。 こ こ 
に は 定数 を 設定 し ます 。 


定数 トコ 
(既定 値 ) 常に Width プロ パテ ィ に 設定 され た 値 に な り ま 
間 。 


1 一 sbrSpring フォ ー ム の 大 き さ に あわ せ て 自動 的 に ステ ー タ スバ ー コ ン 
トロ ー ル の 幅 が 設定 され る と 、 こ の 設定 を 持つ すべ て の バ 


ネル で コン トロ ー ル 幅 を 等 分 割 し て パネ ル の 大 き さ を 変更 
し ます 。 

ら 一 sbrsbrContents | Panel に 設定 され た 内 容 に 合わ せ て 自動 的 に 大 き さ が 変更 さ 
れ ま す 。 た だ し 、 パ ネル の 幅 が MinWidth プロ パテ ィ に 設定 
され た 値 よ り 小 さく な る こと は あり ませ ん 。 





[サイ ズ の 自動 設定 ] が 「0 - sbrNoAutoSize」 に な っ て いる 場合 は 、[ 最 小幅 ] 
で 設定 し た サイ ズ が パネ ル の 幅 に な り ま す 。 
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「] - sbrSpring」 を 設定 する と 、 
スラ イダ ー コ ント ロー ル の 幅 い 
っ ぱい に パネ ル の 幅 が 設定 され 
才 折 が な く な る 








人 [スタ イル ] を 選ぶ と 、 あ ら か じ め い くつ か の 機能 を パネ ル に 組み 込む こと が で き 
ます 。 こ れ ら は 定数 で 設定 する よう に な っ て いま す 。 た と えば 、[ ス タイ ル ] に 定数 
「sbrTime」 を 設定 する と 、 パ ネル に は 現在 の 時 刻 が 表示 きれ ます 。 


な に 


(既定 値 ) 文字 列 と ビッ トマ ッ プ 。 文 字 列 は [Text] プロ パテ 
イィ で 設定 し ます 。 


Caps Lock キー が オン の 場合 、"CAPS" の 文字 が 太字 で 表示 さ 、 
れ オ フ の 場合 は 淡色 表示 され ます 。 


Num Lock キー が オン の 場合 、"NUM" の 文字 が 太字 で 表示 され 、 
オフ の 場合 は 淡色 表示 され ます 。 


間 
sbrins Ins キー が オン の 場合 、"INS" の 文字 が 太字 で 表示 され 、 オ フ の 場 


か ッ リ 
SbrText 


1 


SDrCapS 


SbrNum 


合 は 淡色 表示 され ます 。 


と ! Scroll Lock キー が オン の 場合 、"SCRL" の 文字 が 太字 で 表示 さ 
れ 、 オ フ の 場合 は 淡色 表示 され ます 。 
現在 の 時 刻 を シス テム で 設定 され た 形式 で 表示 し ます 。 
現在 の 日 付 を シス テム で 設定 され た 形式 で 表示 し ます 。 

が カナ キー が オン の 場合 、" カ ナ " の 文字 が 太字 で 表示 され 、 オ フ の 
場合 は 淡色 表示 され ます 。 


SDrScrl 


SbrTime 
SDrDate 
SbrKana 





各 ス タイ ル 
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また 、[ ピ クチ ャ ] に イメ ー ジ ファ イル を 設定 する と 、 パ ネル 内 に イメ ー ジ を 表示 
で きま す 。 組み 込め る イメ ー ジ は 、 ビ ッ ト マ ッ プ (BMP) と アイ コン (ICO) 形式 
の イメ ー ジ ファ イル に な り ま す 。 









pat 選 
スタ イル G: 5 - sbrTime <] 
立体 枠 。 h-sbrmset 
eyempa rmerss コ 





設定 し た イメ ー ジ ファ イル 


と ステ ー タ スバ パ バー コン トロ ー ル に パネ ル を 設定 する と 、 パ ネル は 「Panel] オブ ジェ 
クト と し て 扱わ れ ま す 。 複数 の パネ ル が ある 場合 は 、「Panels] コレ クシ ョ ン と し て 
扱わ れ ま す 。 個々 の パネ ル の プロ パテ ィ 設 定 に つい て は 、 こ の 「Panell オブ ジェ ク 
ト の プロ パテ ィ と メソ ッ ド を 操作 し ます 。 

複数 の パネ ル を 設定 し た 場合 、 それぞれ の パネ ル へ の アク セス は 、 オ ブ ジ ェクト 

に 「Panels()」 コレ クシ ョ ン を 指定 し ます 。() の 中 に は 、[Imdex] プロ パテ ィ ま た は 
[Key] プロ パテ ィ の 値 を 指定 する こと で 、 個 々 の パネ ル を 識別 し ます 。 た と えば 次 
の 記述 は 、 こ の プロ グラ ム に 組み 込ん だ ステ ー タ スバ ー コ ント ロー ル の 、 最 初 の パ 
ネル に 文字 を 表示 し ます 。 


StatusBar1 .Pane1s(1) .mexxt = "He11o!r 
StatusBa ェ 1 .Pane1s("one") .Tmexxt = "He11o!r 
最初 の 記述 は 、( ) の 中 に プロ パテ ィ ペ ー ジ で 設定 し た イン デック ス の 値 を 指定 し 


て いま す 。2 つ め の 記 述 は 、 キ ー を 文字 列 と し て 指定 し て いま す 。 い ずれ の 方 法 で 
も 、 同 じ パ ネル を 操作 対象 に する こと が で きま す 。 
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全角 が My 1 


| 
| 
イダ Xe FT の 搬入 | が ML の 肖 除 G) | 
| 
| 
| 


プロ パテ ィ ペ ー ジ 


で の イン デック ス 
と キー の 設定 









球 メ ト (GO ボタ ン き クリック 
ッ ケルト ニー 3 紫 剛 
キ ⑯⑩ co 。 最 ! 臣 Qe Fom 。 
巡 ⑮ 「 半球 の 幅 ⑥: 四 656 














スタ イル ⑤) jp ー sbrText 回 | 
25/ 
立 * 香 @ 放 -uroo egg 


サイ の 自動 設定 [| - sbrsprne <| レツ ト 語 識 (ほじ 表示 め 


し _ mtr | mem| へ 2 | 













全 で は 、 怖 香 に コー ド を 作成 し て いき まし ょ う 。 ま ず 最 初 は 、 一 番目 の バ パネル に 、 
コマ ンド ボタ ン が クリ ッ ク さ れ た 回 数 を 表示 する 処理 で す 。 














フォ ー ム の コー ドウ ィ ン ド ウ の 、 宣 言 モ セク ショ ン に 、 変 数 重 | を 宣言 し ます 。 こ 
の 変数 に 、 コ マン ド ボ タ ン が クリ ッ ク さ れ た 回 数 を カウ ント し て 格納 し ます 。 宮 言 
し た ら 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 、 初 期 化 し て お きま す 。 


Dim 1 As Tntege エ 
Private Sub Form Lioad( ) 


ュ = 0 
End Sub 





コマ ンド ボタ ン の Cliick イ ベン ト プ ロ シー ジャ に 、 コ マン ド ボ タ ン が クリ ッ ク 
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れる と 変数 「i] の 値 を 1 つ 増 や す 処 理 を 作成 し ます 。 そ し て 、 最 初 の パネ ル 
「Panels(1)」 の [Text] プロ パテ ィ に 、 こ の 変数 と 文字 列 を 組み あわ せ て 代入 し ま 
す 。 

これ で 、 コ マン ド ボ タ ン が クリ ッ ク さ れる た びに 、 変 数 [il の 値 が 増加 し ステ ー 
タス バー コン トロ ー ル の 左端 の パネ ル に 表示 され ます 。 


Private Sub Command1 C1ick( ) 
も テモ キャ ォ ネ ュ ユ 


StatusBar1 .Pane1s(1) .Tmext = "Push " を ュ 
End Sub 


パネ ル の 個々 の プロ パテ ィ を 操作 する 場合 は 、 こ の よう に 操作 対象 の パネ ル を 指 
定 し て 、 パ ネル の プロ パテ ィ を 操作 し ます 。 


ステ ー タ スバ パー コン トロ ー ル が 持っ て いる プロ パテ ィ や メソ ッ ド は 、 ス テー タス バー 
コン トロ ー ル 全体 に 関す る プロ パテ ィ で す 。 ス テー タス バー コン トロール その も の を 操 
作 し た い 場 合 は 、 こ の プロ パテ ィ や メソ ッ ド を 操作 し ます 。 一 方 、 パ ネル に 対し て 操作 
を 行い た い 場 合 は 、 パ ネル の プロ パテ ィ や メソ ッ ド を 操作 し ます 。 そ の 場合 は 、 
「Panels()」 コレ クシ ョ ン を 操作 対象 の オブ ジェ クト に 指定 し 、 プ ロ パ ティ や メソ ッ ド 
を 使う よう に し ます 。 


( 次 は 、 フ ォ ー ム 上 の コン トロ ー ル に マウ ス の ポイ ンタ が 重なっ た と き に 、 そ の も 
の の 名 称 を ステ ー タ スバ ー コ ント ロー ル の 2 番目 の パネ ル に 表示 する 処理 を 作成 し 
ます 。 こ れ は 、 そ れ ぞ れ の コン トロ ー ル や フォ ー ム の 「MouseMove] イベ ント に 、 
ステ ー タ スバ パー コン トロ ー ル の パネ ル に 情報 を 表示 する 処理 を 組み 込ん で いき ます 。 

フォ ー ム に は 、 フ ォ ー ム と コマ ンド ボタ ン 、 イ メー ジ 、 ス テー タス バー の 4 つの 
オプ ジェ クト が あり ます 。 そ れ ぞ れ 、 マ ウス の ポイ ンタ が オプ ジェ クト 上 で 動作 す 
る と 、 そ れ ぞ れ の オプ ジェ クト に 「MouseMove] イベ ント が 発生 し ます 。 そ こ で 、 
この イベ ント プロ シー ジャ の 中 で 、 ス テー タス バー コン トロ ー ル の 2 番目 の パネ ル 
の [Text] プロ パテ ィ に 、 文 字 列 を 設定 する 処理 を 行い ます 。 

な お 、2 番 目 の パ ネル へ の アク モス に 、「Panels(2)] と 「Panels('two)| と いう 、 
イン デック ス と キー の 値 を 使っ た 方 法 を 使用 し て いま す 。 ど ちら の 方 法 も 、 結 果 と 
し て 同じ パネ ル を 参照 する こと に な り ま す 。 


PE ェ ュ vate Sub Command1 MouseMove ( Bu モ 上 上 on AS Tnteger, 
ShifF 上 As Tnteger, As Sing1e, Y As Sing1e) 
StatusBa1 .Pane1s(2) .mexxt = "コマ ンド ボタ ン * 
End Sub 
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P ェ ivate Sub Form MouseMove (But 上 ton As Tnteger, 
ShiF As Tnteger, 又 As Sing1e, Y As Sing1e ) 
StatusBar1 .Pane1s ("two") .Tmext = "フォ ー ム " 
End Sub 


P ェ ュ ivate Sub Tmage1 MouseMove (Button As Tnteger, 
Sh As Tnteger, As Sing1e, Y As Sing1e) 
StatusBar1 .Pane1s(2) .mexxkt = "イメ ー ジ コン トロ ー ル * 
End Sub 


Eivate Sub St モ atusBar1 MouseMove (Buton As Tnteger, 
ShiF As Tnteger, 又 As Sing1e, Y As Sing1e) 
StatusBar1 .Pane1s(2) .mexxt = "ステ ー タ スバ ーr 
End Sub 





マウ ス の 動く 対象 物 に よっ て 、 
ステ ー タ スバ ー の 表示 が 変化 
する 


ボタ ノン を クリ ッ ク 











表示 が 「 イ メー ジコ ント ロー 
ル 」| に な っ た 


| ポタ ン を クリ ッ ク 


LesSon 10 ステ ー タ スバ パ バー コン トロール を 使 


ステ ー タ スバ ー コ ント ロー ル を 使う と 、 プ ログ ラム の 操作 方 法 や 処理 の 内 容 を 事前 
に ユー ザー に 知ら せる こと が で きま す 。 こ の こと は 、 ユ ー ザ ー に より わか りや すい 操 
作 方 法 を 提供 する こと に な り ま す 。 ま た 、 に 00 
も っ て 説明 する こと が で きま す 。 

パネ ル は 、「Panels]」 コレ クシ ョ ン を 対象 オブ ジェ クト に 指定 し て 、Add メソ ッ ド 
を 実行 する と 、 プ ログ ラム 実行 時 に パネ ル の 増減 を 行う こと が で きま す 。 プ ログ ラム 
の 動作 状況 に よっ て ステ ー タ スバ ー の 項目 を 変化 させ た い 場 合 に 有効 で す 。 最大 16 
個 に まで 分 割 で きま す 。 た だ し 、 あ まり 表示 を 多用 する と 逆 に 画面 が わずらわし く な 
る の で 、 適 当 に 工夫 し まし ょ う 。 

特に 、 ツ ー ル バー コン トロール な ど を 連動 し て 使用 する と 便利 な コン トロ ー ル で す 。 


〇 1 コマ ンド ボタ ン を クリ ッ ク す る と 、 ス テー タス バー コン トロール の パ 
ネ 


ル に 、 プ ログ レス バー の よう に 進行 状況 が 表示 され る プロ グラ ム を 作 
成 し て くだ さい 。 


【 ヒ ント 】 
ちょ っ と トリ ッ キ ー な テク ニッ ク で す 。 文字 の 田 を うま く 使 っ て 、 プ 
ログ レス バー の よう に 見 せ か け ま す 。 





解答 は 巻末 に 一 





第 3 日 3 時 限 目 便利 な コン トロ ー ル を 使 





アッ プ ダ ウン コン トロール を 使う 

アッ プ ダ ウン コン トロ ー ル は 、 ス クロ ー ル バー コン トロ ー ル の よう に ら 
つの ボタ ン を 持っ た コン トロール で す 。 ボ タン を クリ ッ ク す る こと ぐ で 数 
値 デ ー タ な ど を 増減 する 機能 を 持っ て いま す 。 こ の コン トロール の 特徴 
は 、 他 の コン トロ ー ル と 連動 し て 動作 させ る こと が で きる 、「 連 動 コ ン 
トロ ー ル 」 の 機能 を 持っ て いる こと で す 。 連動 コン トロ ー ル は 、 特 に コ 
ー ド を 書か な く て も 、 連 動 す る コン トロ ー ル を 設定 する だ け で 、 自 動 的 
に プロ パテ ィ 値 の や り 取り を 行い 、 コ ント ロー ル 同 士 を 連動 し て 動作 さ 
せる 機能 で す 。 こ の レッ スン で は 、 ア ッ プ ダウ ンコ ント ロー ル と テキ ス 
ト ボ ックス コン トロ ー ル や ラベ ルコ ント ロー ル を 組み 合わ せ て 、 便 利 な 
入力 操作 を 行う テク ニッ ク を 紹介 し ます 。 


今回 作成 する プロ グラ ム 


第 3 日 ボタ ン を クリ ッ ク す る こと 、 
| っ 




















ボタ ン を クリ ッ ク す る と 、 
ボッ クス の 幅 が 変わ る 


ボタ ン を クリ ッ ク す る と 、 
ボッ クス の 色 が 変わ る 





Ce Lesson11.vhp 
③⑤) VBecD2 
ココ Lesson11 


アッ プ ダ ウン コン トロ ー ル を 使っ た 、3 つの コン トロ ー ル の 組み 
合わ せ を 作成 し ます 。 1 つ は 、 テ キス ト ボ ックス コン トロ ー ル に ア 
ッ プ ダウ ンコ ント ロー ル を 連結 させ ます 。 ア ッ プ ダウ ンコ ント ロー 
ル を 操作 する と 数 値 が テキ スト ボッ クス に 表示 され ます 。 

も う 1 つづ は 、 ラ ベル コン トロ ー ル と 連結 させ ます 。 ア ッ プ ダウ ン 
コン トロ ー ル を 操作 する と 、 ラ ベル コン トロ ー ル の 幅 が 変化 し ます 。 
3 つめ は 、 シ ェ イ プ コ ント ロー ル に アッ プ ダ ウン コン トロ ー ル を 
連結 させ ます 。 シェイプ コン トロ ー ル の [FilIColor] プロ パテ ィ に 
連結 させ 、 ア ッ プ ダウ ンコ ント ロー ル で シェ イプ の 色 を 連続 的 に 変 
化 さ せま す 。 









































13 和 を 


Lesson 11 アッ プ ダ ウン コン トロ ー ル を 使う 


9 5 ーー 本 人 人 叶っ 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


ツー ル パ レ ッ ト に 「Microsoft Windows Common 
Comtrols-2 6.0]」 コン ポー ネン ト を 追加 する 


剛 宿 串 
引 届 圏 
[ 目 tg 








ツー ル パ レ ッ ト の [TextBox] を 使っ て 、 テ キ 
スト ボッ クス コン トロ ー ル を 配置 する 


CO 
le - 県 放 め に ドラ ッ グ 
還 本 昌 し て 配置 





ツー ル パ レ ッ ト の [UpDown] 較 を 使っ て 、 アッ 
プ ダ ウン コン トロ ー ル を 配置 する 


| 画 。 Form] 問 回 店 | 
l 


| 本 | 

員 [xn  』 | 

較 " ] | 斜め に ドラ ッ グ 
| 5 | し て 配置 


| 





。 コン ポー ネン ト を 
ジ 追加 する 
コン ポー ネン ト を 追加 す 
る 方 法 に つい て は 、 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 


3 タ 


第 3 日 4 時 限 目 便利 な コン トロ ー ル を 使う 











ef 人 居 
ぎ 9 ダイ アロ グ 


ZZ セパ ティ ペー ジ ]1 ダイ 





アロ グ ボ ックス を 表示 す 


る に は 、 ア ッ プ ダウ ンコ 
ント ロー ル が 選択 され て 
いる 状態 で 、 プ ロ パ ティ 
TE ウ の (デパ テ 
ィ ペ ー ジ )] を クリ ッ ク し 、 
右 欄 の [.….] ボタ ン を クリ 
2 ク 265 叶 汐 記 


[自動 設定 ] 
WW チェ ッ ク ボ ックス 


この チェ ッ ク ポ ックス を 
オン に する と 、[ 連 動 コ ン 
トロ ー ル ] ボッ クス に テ 
キス ト ボ ックス コン トロ 
ー ル の 名 前 が 表示 され ま 


[連動 プロ パテ ィ ] 
の ロス ト ボ ックス 


[連動 プロ パテ ィ ] リス ト 
ボッ クス の 右端 に ある 下 
向き 三角 を クリ ッ ク す る 
と 、 選 択 肢 の 一 覧 が 表示 
まさ 96 そ の: 三村 iC 
「Text| を 選択 し ます 。 
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[プロ パテ ィ ペ ー ジ ] ダイ アロ グ ボ ックス を 表示 し 、 


[連動 ] タブ を クリ ッ ク す る 


プロ パテ ィ ペー 3 
全般 連動 
連動 コッ hn-%⑧: 

「 自動 坪 定 0) 過当 

| 当 











ご と を タリ ッ ウ 


っ [自動 設定 ] チェ ッ ク ボ ックス を オン に する 


ど 居 天 キ キズ ドヨン ジ 
トロ ー ル の 名 前 が 表 
示さ れる 





[連動 プロ パテ ィ ] リス ト ボ ックス で [Text] プロ パ 


ティ を 選択 する 


TCP | 


全般 連 動 |zn- ル l 


連 動 や In-: [Texm 
レ 自動 訪 定 0) じじ 同期 ⑤ 










連動 7 パテ (Py 


と を クリ ツウ 
ここ を クリ ッ ク 





Lesson 11 アッ プ ダ ウン コン トロ ー ル を 使う 


[スク ロー ル ] タプ を クリ ッ ク し 、[ 最 小 ] を 「1』 に 
「 最 大 ] を 「100] に 設定 し 、[OK] を クリ ッ ク す る 


ど ご ご な を クリック 
「100」 に 設定 





GA KO た ク 4 


に 1 ツー ル パ バレ ッ ト の [Label] 人 薦 | を 使っ て 、 ラ ベル コ 
ント ロー ル を 配置 する 


に 人間 ail | - | 口 | x| 
本 和 生 
了 の 当 ope を 
和 ロ Be 











Label1 Label ェ 
間 





ここ を クリ ッ ク 
ここ を クリ ッ ク 
ご な クリ リク グ 


第 3 日 4 時 限 目 便利 な コン トロ ー ル を 使う 





DataMember 








[プロ パテ ィ ペ ー 
ぐ プ 妃 タイ アァ ロク 
[プロ パテ ィ ベ ページ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 ア ッ プ ダウ ンコ 
ント ロー ル が 選択 され て 
いる 状態 で 、 プ ロ パ ティ 
ウィ ンド ウ の [( プ ロ パ テ 
ペー ジジ リト カク 
右 欄 の [..] ボタ ン を クリ 
ッ み クレ ま す 


[自動 設定 ] 
W チェ ッ ク ポ ボッ クス 
この チェ ッ ク ボ ックス を 
オン に する と 、[ 連 動 コン 
トロ ー ル ] ボッ クス に ラ 
ベル コン トロ ー ル の 名 前 
が 表示 され ます 


/<Z [連動 プロパ ティ ] 
〆 リス ト ボ ックス 
[連動 プロ パテ ィ ] リス ト 
ボッ クス の 右端 に ある 下 
向き 三角 を クリ ッ ク す る 
と 、 選 択 肢 の 一 覧 が 表示 
され ます 。 その 一 覧 で 

「 Width] を 選択 し ます 
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0 ツー ル パ レ ッ ト の [UpDown] - 国 を 使っ て 、 
アッ プ ダ ウン コン トロ ー ル を 配置 する 


画 、 Forml | - | ロ x| | 


|e 品 > Lahe 
ヨ り 斜め に ドラ ッ グ 
結っ し て 配置 


1H [プロ パテ ィ ベ ペー ジ ] の [連動] タブ で [自動 設 
定 ] チェ ッ ク ボ ックス を オン に する 


全般 連動 


ここ を クリ ッ ク 


ご と に ラベ ルコ ヨコ ント 
ロー ル の 名 前 が 表示 






連動 hn-MB ILsbei ーー 


連動 7 ティ (P): 


され る 


キ w ン セル | 仙 用 @⑳ | へ 7 | 


1 [連動 プロ パテ ィ ] リス ト ボ ックス で [Width] 
を 選択 する 

ーー=ー=… 

全般 連動 | >m- ル | | 


連動 コッ hn-MB》 [Laben ーー 
じ レ 自動 設定 0) じ 同期 ⑤ 







2 
ご こ を な を 多 ツク 






連 動 7 バテ (か 





Lesson 11 アッ プ ダ ウン コン トロ ー ル を 使う 


』 [スク ロー ル ] タブ を クリ ッ ク し て 以下 の 項目 に 
値 を 設定 する 


ボッ クス 
[最小 ] 


[最大 ] 
[スク ロー ル 幅 ] 


2 ティ ペー 1 メ | 
全般 | 連動 ます | 







これ ら の ボッ クス 
の 値 を 設定 する 


に 


上 竹 アッ プ ダ ウン コン トロール の 位置 を 移動 する 


ドラ ウ 必 区 で 
移動 


155 ラベ ルコ ント ロー ル の Width] プロ パテ ィ を 
「1000」 に 設定 する 


MuSEICQhh VMJ し 7 = 
MouseFointer 1 ロ n- 既定 値 
IOLEDropMode ロロ - な し 
RghtTaLeft False 


に 昌和 山 


ee 罰 





Tabmdex 2 
Tag 

IToolTipText 

Tap 3 
UseMnemonic True 
visible True 





hatsThisHelpID ロ 「1000」 を 
1 ロ n| 
Falsg マテ 入力 











ラベ ル を 選択 
この 操作 を 行う 前 に 、 ラ 
ベル コン トロ ー ル を クリ 


ッ ク し て 選択 し ます 。 


第 3 日 4 時 限 目 便利 な コン トロ ー ル を 使う 


1 人 0 





16 ツー ル パ レ ッ ト の [Shape] 回) を 使っ て 、 
シェ イプ コン トロ ー ル を 配置 する 


画 。Form1 | | 口 | x| | 





17 [FiIIStyle] プロ パテ ィ を [0O 一 準 り つ 応 し ] に 
設定 する 








Shape1 Shape ェ 
全体 | 項目 串 | 


BackGColor る HBUUUU005& ょ 5 ニン 5 
BackStyl ーー ここ を クリ ッ ク 


BorderColor 較 &H8UOU00n8& 
BorderStle 1- 実 線 (中 心 線 ) 


BorderWidth 1 
DrawlMod 13 - Capy Pen ご こ を クリ ッ ク 
FIGolor 男 ER 
IN マ 
所 回 な グ ッ ジ ウ 


182 ツー ル パ レ ッ ト の [UpDown] 限 を 使っ て 、 
アッ プ ダ ウン コン トロ ー ル を 配置 する 


il |- 1 ロ | | 


上 当 計 














Height 
Index 








呈し 





Lesson 1 1 


1 の [Orientation] プロ パテ ィ を 「1 一 cc ら 0rien 


tationHorizontal」 に 設定 する 


ここ を クリ ッ ク 
ンク 


BL に MI 





う [プロ パテ ィ ペ ー ジ ] の [連動] タブ で [連動 コ 
ント ロー ル ] に 「Shape 1」 と 入力 する 


「Shape1」 と 
入力 


ズ 





| 全 訟 連動 |zm- ル | 


連動 コツ II- ル B) Ehaps1l 
「 自動 府 定 0) 「 同期 ⑤ 


連動 27Py [な い 選 









2 1 [連動 プロ パテ ィ ] リス ト ボ ックス で [FillColor] 
を 選択 する 







全般 連動 |zn- ル | 
連動 コツ - ル (8) haps1 
「 自動 府 定 D) 同期 ③ 


FillColor 
Tag 


ここ を クリ ッ ク 





連動 7(Py: 





( き 呈 な の リ 6y ク 


L_ ok |] szty | 208 _ へ M ワ ra 





アッ プ ダ ウン コン トロール を 使う 


[プロ パテ ィ ペ ー 
ぐ テ 捕 タイ アァ ロ ク 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 ア ッ プ ダウ ンコ 
ント ロー ル が 選択 され て 
いる 状態 で 、 プ ロ パ ティ 
ウィ ンド ウ の [( プ ロ パ テ 
ィ ペー ジ )] を クリ ッ ク し 、 
右 欄 の [.….] ボタ ン を クリ 
ッ ク し ます 


[連動 プロ バ パティ ] 
アリ スト ポッ クス 


[連動 プロ パテ ィ ] リス ト 
ボッ クス の 右端 に ある 下 
向き 三角 を クリ ッ ク す る 
と 、 選 択 肢 の 一 覧 が 表示 
され ます 。 その 一 覧 で 
「FillColor」 を 選択 し ます 


本 す 


第 3 日 4 時 限 目 便利 な コン トロ ー ル を 使う 





142 


みう ウ [スク ロー ル ] タブ を クリ ッ ク し て 以下 の 項目 に 
値 を 設定 する 














全般 | 連動 メ 名 - ル | 

メ 名 - ル の 芳 困 - 
最小 ⑪ 最大 
hp 55 
FM に ニー ニー ニー 
メ 名 - ル 幅 : 















これ ら の ボッ クス 
の 値 を 設定 する 


キャ ン セ ル | 適用 @ | ムウ | 


うろ ツー ル パ レ ッ ト の [Label] 為 を 使っ て 、 ラ ベ 
ルコ ント ロー ル を 配置 する 


に 人 iiil = 1 ロ | | | 


em ヨ = Label 
〒 














Lesson 11 アッ プ ダ ウン コン トロ ー ル を 使う 
う 衝 [BorderStyle] プロ パテ ィ を [1 一 実線 ] に 設 
定 す る 


Label2 Label ェ 


全休 ペー ニー た 二 了 ン 
で tspeB ここ を クリ ッ ク 


0 - 左 揃え 
1 - 3D 


Fal = 
円 &H000OnOF& ここ を クリ ッ ク 
ここ を クリ ッ ク 





1 - 和 イ 枯 明 





み 和 完成 し た フォ ー ム 


に 人 iil |-I ロ | x| | 


1 


| 
| 
nis 





老 還 コー ド の 記述 





是 F0rm1:UnpDo0wn3-Change 


NEEmilB EE 当 さ ilEsy) 





| UpDown3 マ 四 IChanee マテ ] 





P エ ュ エマ a 七 @ gub OpDown3 _Change () 
Labe12 .Caption = UpDown3 .Va1ue 
End Su わ 








第 3 日 4 時 限 目 便利 な コン トロ ー ル を 使う 





1 





アッ プ ダ ウン コン トロ ー ル は 、 他 の コン トロ ー ル と 連動 し て 動作 する 機能 を 持っ 
て いま す 。「 連 動 ] と は 、 片 方 の コン トロ ー ル を 動作 させ る と 自動 的 に も う 一 方 の コ 
ント ロー ル が 動作 する こと で す 。 通常 、 こ の よう な 動作 は コン トロ ー ル の イベ ント 
プロ シー ジャ に コー ド を 作成 し て 実現 し て いま し た 。 

アッ プ ダ ウン コン トロ ー ル の 場合 は プロ パテ ィ に 相手 の コン トロ ー ル 名 と 操作 対 
象 の プロ パテ ィ を 設定 する だ け で 、 自 動 的 に 連動 機能 が 確立 する よう に な っ て いま 
す 。 連動 の た め の 特 別 の コー ド を 書く 必要 は あり ませ ん 。 

最初 に 作成 し た テキ スト ボッ クス コン トロ ー ル と アッ プ ダ ウン コン トロ ー ル の 組 
み 合 わせ は 、 ア ッ プ ダウ ンコ ント ロー ル の ボタ ン を 操作 する と テキ スト ボッ クス に 
その 値 が 数 値 で 表示 され ます 。 た と えば これ まで は 、 


TexEBoxx1 . Tex ヒ = UpDown1 .Va1ue 


な ど と いう コー ド を 作成 し て この よう な 動作 を 行っ て きま し た 。 し か し 、 ア ッ プ 
ダウ ンコ ント ロー ル と それ に 連結 きれ た コン トロ ー ル で は この コー ド が な く て も 同 
じ 動 作 を 行い ます 。 こ の よう に 、 ア ッ プ ダウ ンコ ント ロー ル の 連結 機能 を 使え ば 、 
プロ グラ ム の 開発 が 軽減 きれ ます 。 





ボタ ン を クリ ッ ク す る と 
テキ スト ボ ックス の 数 字 
が 変化 する 





アッ プ ダ ウン コン トロ ー ル を 他 の コン トロ ー ル と 連動 きせ る 場合 は 、 ま ず は じ め 
に プロ パテ ィ ペ ー ジ の [連動 コン トロ ー ル ] 欄 か [AutoBuddy] プロ パテ ィ に 、 相 
手 の コ ント ロー ル 名 を 設定 し ます 。 次 に 、 プ ロ パ ティ ペー ジ の [連動 プロ パテ ィ ] 
欄 また は [BuddyProperty] プロ パテ ィ で 、 連 動き せる プロ パテ ィ を 指定 し ます 。 

これ で 、 ア ッ プ ダウ ンコ ント ロー ル の [Value] プロ パテ ィ の 値 が 、 指 定 し た プ 
ロ パ ティ の 値 と 連動 する よう に な り ま す 。 ア ッ プ ダウ ンコ ント ロー ル の 可動 範囲 は 、 
[Max] と [Min] プロ パテ ィ で 上 限 と 下限 を 設定 し ます 。 ま た 、[Increment] プロ 
パテ ィ を 使う と 、 ア ッ プ ダウ ンコ ント ロー ル の 1 回 の 動作 で 増減 する 量 を 設定 で き 
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ます 。 ア ッ プ ダウ ンコ ント ロー ル の 動作 量 は 、[Value] プロ パテ ィ に 格納 され ます 。 


これ ら の プロ パテ ィ は 、[ プ ロ パ ティ ペー ジ ] ダイ アロ グ ボ ックス の [スクロール] 
タプ ブ で も 設定 で きま す 。 





| 


可動 範囲 を 設定 する 
[プロ パテ ィ ペ ー ジ ] 





ダイ アロ グ ボ ックス 


| _*wybk | 5mB@ ] 2 | 





また 、[Orientationl プロ パテ ィ を 使用 する と 、 ア ッ プ ダウ ンコ ント ロー ル の 水 
平 ・ 垂 直方 向 を 設定 で きま す 。 い ずれ も 用 意 き され て いる 定数 を 設定 し ます 。 

最初 に 作成 し た コン トロ ー ル の 組み 合わ せ は 、 連 動 コ ント ロー ル に テキ スト ボッ 
クス コン トロ ー ル を 、 連 動 プ ロ パ ティ に [Text] プロ パテ ィ を 指定 し て いま す 。 ア 
ッ プ ダウ ンコ ント ロー ル の ボタ ン を クリ ッ ク す る と テキ スト ボッ クス に その 値 が 表 
示さ れ ま す 。 


ョ 


2 番目 に 作成 し た コン トロ ー ル の 組み 合わ せ は 、 連 動 コ ント ロー ル に ラベ ルコ ン 
トロ ー ル を 、 連 動 プ ロ パ ティ に [Width] プロ パテ ィ を 設定 し て いま す 。 そ の た め 、 
アッ プ ダ ウン コン トロ ー ル を 操作 する と 、 ラ ベル コン トロ ー ル の 幅 が 変化 し ます 。 
この よう な 場合 は 、 デ ザイ ン 時 の ラベ ルコ ント ロー ル の 幅 と 、 ア ッ プ ダウ ンコ ント 
ロー ル の [Min] プロ パテ ィ の 値 を そ を ろ え て お く の が ポイ ント で す 。 


Fo 
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3 番目 に 作成 し た コン トロ ー ル の 組み 合わ せ は 、 連 動 コ ント ロー ル に シェ イプ コ 
ント ロー ル を 、 連 動 プ ロ パ ティ に [FilColor] プロ パテ ィ を 設定 し て いま す 。 こ の 
シェ イプ コン トロ ー ル だ け は 、 ア ッ プ ダウ ンコ ント ロー ル の 連動 コン トロ ー ル 機能 
の 「 自 動 設 定 ] が 使え を ませ ん で し た が 、 コ ント ロー ル 名 を 直接 入力 する こと で 、 連 
動き せ て いま す 。 





アッ プ ダ ウン コン トロ ー ル の [Value] プロ パテ ィ の 中 身 を 表示 する た め に 、 ラ 
ベル コン トロ ー ル を 組み 合わ せ て 、 コ ー ド で [Value] プロ パテ ィ の 値 を 表示 し て 
いま す 。 


Private Sub UpDown3 Change( ) 
Labe12 .Caption = UpDowmn3 .Va1ue 
End Sub 


アッ プ ダ ウン コン トロ ー ル の ボタ ン が クリ ッ ク さ れる と 、 コ ント ロー ル に は 
「Change」 イベ ント が 発生 し ます 。 ク リッ ク し た 時 に 何 か 処 理 を 行わ せ た い 場合 は 、 
この イベ ント プロ シー ジャ に 処理 を 記述 し ます 。 こ こ で は 、 ア ッ プ ダウ ンコ ント ロ 
ー ル の [Value] プロ パテ ィ の 値 を 、 ラ ベル コン トロ ー ル の [Caption] プロ パテ ィ 
に 出力 し て いま す 。 

また 、[ 増 加 ] ボタ ン ま た は [減少] ボタ ン を クリ ッ ク し た と き に 、 別 々 の 処理 を 
行わ せ た い 場合 は 、 そ れ ぞ れ 「UpClick」 「DownClick」 イベ ント を 使用 し ます 。 
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アッ プ ダ ウン コン トロ ー ル の 連動 機能 よ 、 プ ログ ラム の デー タタ 入力 処理 を 組み た て 
る 上 で 、 と て も 有効 な 機能 を 提供 し て くれ ます 。 

し か し 、 同 期す る 連動 プロ パテ ィ へ の 値 の 代入 は 、 ア ッ プ ダウ ンコ ント ロー ル の 
[Value] プロ パテ ィ の 値 が 直接 代入 され る た め 、 式 な ど と 組み 合わ せ て 代入 し た い 場 
合 は 、 従 来 ご お り イ ベン ト プ ロ シー ジャ と 式 を コー ド で 記述 する 必要 が あり ます 。 


上 アッ プ ダ ウン コン トロ ー ル を ツー ル バ ー コ ン トロール に 組み 合わ せ て 、 
アッ プ ダ ウン コン トロ ー ル の ボタ ン を クリ ッ ク す る と ツー ル バ ー コ ント 
ロー ル の ボタ ン が 増減 する プロ グラ ム を 作成 し て くだ さい 。 


【 ヒ ント 】 
連動 コン トロ ー ル の 機能 は 使わ ず に 、 ア ッ プ ダウ ンコ ント ロー ル の 
「UpClick」 お よび 「DownClickl イベ ント を 使用 し ます 。 





ボタ ン を クリ ッ ク 
する と .… 





ツー ル バ ー の ボタ ン が 
増え る 


解答 は 巻末 に 一 
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MI 
Dim ステ ー ト メン ト の 記述 場所 

変数 を 宣言 する Dim ス テー トメ ント で す が 、 本 書 の 各 レ ッ ス ン で は 基本 前 に プロ シー ジャ の 
先頭 に まとめ て 宣言 し て いま す 。 

これ は 、 作 成 し た プロ グラ ムコ ー ド を 後 で 読み 返し た り 、 他 の 人 が 読む 場合 な ど に 、 こ の プ 
ロ シ ー ジ ャ で は これ だ け の 変数 を 使っ て いる 、 と いう の が 一 目 で わか る よう に する た め に 、 プ 
ロ シ ー ジ ャ の 先頭 で 宣言 し て いる た めで 、Dim ス テー トメ ント は 必ず プロ シー ジャ の 先頭 で な 
けれ ば 記述 で き な い 、 と いう も の で は あり ませ ん 。 

実は 、Dim ス テー トメ ント は 、 プ ロ シ ー ジ ャ の どこ に で も 記述 で きま す 。 例 えば 、Lesson17 


で は 、 コ ー ド の 途中 で Dim ス テー トメ ント を 記述 し 、 宜 言 し た オプ ジェ クト 変数 を 使用 し て い 
まず 
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Visual Basic の 時 刻 を 扱う 関数 を 使用 し て 、 他 の コン トロ ー ル な ど と 組み 合わ せ 
る と 、 簡 単 な ご 時 計 の プロ グラ ム が 作成 で きま す 。 


Time 関数 は 、 現 在 の 時 刻 を 取得 する 関数 で す 。 こ の 関数 を タイ マー コン トロ ー ル 
の イベ ント で 実行 する と 、 秒 刻み で 時 刻 を 表示 する こと が で きま す 。 ま た 、 イ メー 
ジコ ント ロー ル や プロ グレ スバ ー コ ント ロー ル な ど と 組み 合わ せ て 、 ア ニ メ ー シ ョ 
ン の ある 時 計 を 作成 し た り 、 フ ォ ー ム の キャ プシ ョ ン に 時 刻 を 表示 する こと が 可能 
に な り ま す 。 


今日 の レッ スン で は 、 時 刻 を 扱う 関数 と コン トロ ー ル を 組み 合わ せ て 、 い ろ い ろ な 
時 計 を 作成 し ます 。 

今日 の レッ スン で 解説 する 項目 

ロ Time 関数 の 使用 方 法 

ロロ タイ マー コン トロ ー ル を 使っ た 時 刻 表示 

ロロ プロ グレ スバ ー の 秘 表 示 設 定 

[コイ メー ジコ ント ロー ル を 使っ た アニ メー ショ ン 
Shape コン トロ ー ル を 使っ た アニ メー ショ ン 

ロロ コモ ンダ イア ログ と ラベ ルコ ント ロー ル の 連動 操作 
ロロ 「 フ ォ ン ト 」 ダイ アロ グ ボ ックス の 設定 

ロ Format 関数 に よる 表示 形態 の 設 
時 報 の 組み 込み と Beep ステ ー ト メン ト 
[フォー ム の キャ プシ ョ ン を 時 刻 表 示 に 使う 

ロロ WindowState プロ パテ ィ の 操作 

口 複数 の タイ マー コン トロ ー ル の 操作 


























HH Lesson12.Vhp 
(⑤) VB6CD2 


3 ペコ Lesson12 
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アニ メー ショ ンク ロッ ク の 作成 
時 刻 を 取得 する 関数 「Time」 と 、 タ イマ ー コ ント ロー ル や ラベ ルコ ン 


トロ ー ル 、 プ ログ レス バー コン トロ ー ル を 組み 合わ せ て 、 簡 単 な ア ニ メ 
ーション を 実行 し な が ら 時 刻 を 表示 する 時 計 を 作成 し ます 。 


今回 作成 する プロ グラ ム 





野 指定 し た 時 間 ご と に 


イメ ー ジ が 切り 替わる 


隔 指定 し た 書式 で 時 刻 が 
| 2[i55:58 表示 され る 


時 間 の 進行 が 黒 四角 で 
示さ れる 





Time 関数 は 、Windows か ら 現 在 の 時 刻 を 取得 する 関数 で す 。 こ 
の 関数 を ラベ ルコ ント ロー ル な ど と 組み 合わ せ て 、 現 在 の 時 刻 を フ 
ォ ー ム に 表示 し ます 。 ま た 、 タ イマ ー コ ント ロー ル の Timer イベ ン 
ト で この Time 関数 を 実行 する こと で 、[Interval] プロ パテ ィ で 設 
定 し た 時 間 ご と に 最新 の 時 刻 を 表示 し ます 。 

















Lesson 1 の アニ メー ショ ンク ロッ ク の 作成 


U コン トロ ー ル と プロ パテ ィ の 設定 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


ツー ル パ レ ッ ト に 「Microsoft Windows Common | 。> コン ポー ネン ト を 


妥 - 
Comtrols 6.0」 コン ポー ネン ト を 追加 する ン 過 加 する 

コン ポー ネン ト を 追加 す 
に る 方 法 に つい て は 、 
[Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み |] を 
参照 し て くだ さい 。 


ツー ル パ レ ッ ト に コモ 








ンコ ント ロー ル か が 追加 
され る 





フォ ー ム の 【[Caption] プロ パテ ィ を 「 ア ニ メ ー シ 
ョ ンク ロッ ク 」 に 変更 する 





IForm1 Form ] 
全体 | 項目 史 | | 





Farm1 
目 Ppearance 1 - 3D 
utoRedraw False 

貼 &H800000F& 
2 - 可変 2 ニス ーション シ 
アニ メー ショ ンク ロッ ク クロ ッ ク 」 と 入力 
True 

True 







ツー ル パ レ ッ ト の 【[Timer] を 使っ て 、 フ ォ ー 
ム 上 に タイ マー コン トロ ー ル を 配置 する 


軸 | 余 め に ドラ ッ ク 
5 | し て 配置 
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和み [プロ パテ ィ ペ ー 
2 ダン レグ 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 イ メー ジリ スト 
コン トロ ー ル が 選択 され 
た 状態 で 、 プ ロ パ ティ ウ 
2 RW( の (528 デ 
f)] を クリ ッ ク し 、 そ の 
右 欄 に ある 「[..] ボタ ン を 

0 が まっ すら 


52 





[Intervall プロ パテ ィ を 「1000」 (] 秒 ) に 設定 す 
る 


Z 耳 LE 








Timer1 Timer ェ 





ツー ル パ レ ッ ト の [ImageList] 型 を 使っ て 、 
イメ ー ジ リス トコ ント ロー ル を 配置 する 





' 語 斜め に ドラ ッ グ 
本 し て 配置 


t [プロ バ パティ ペー ジ ] ダイ アロ グ ボ ックス を 表示 する 





nzkss E3 
全 和 | な - ゲ | 色 | 

16 x16⑪ 高き 

て 32x32⑨ 5 ='〔… 

て 48x48 の 0 

で に すず ー 誠 定 G 





MaskColor の 使用 ( ひ ) 





Lesson 1 の アニ メー ショ ンク ロッ ク の 作成 





[イメ ー ジ ] タブ を クリ ッ ク し 、[ ピ クチ ャ の 挿入] を | <w 。、。。。 
使っ て 、 次 の 5 つの アイ コン を 追加 する 20 
[ピク チャ の 挿入 ] ボタ ン 
を クリ ッ ク す る と 【[ 図 の 
選択 ] ダイ アロ グ ボ ッ ク 
ス が 表示 され る の で 、[ フ 
ァイル の 場所 ] ボッ クス 
で 「materiall フォ ル ダ を 
選び 、 ア イコ ン フ ァイル 
を 選ん で 、[ 開 く ] ボタ ン 
を クリ ッ ク し ます 。 


[キー] に は 、 今 回 は 何 も 
設定 し ませ ん 。 








5 ツー ル パ レ ッ ト の [Image] 國 
ジコ ント ロー ル を 配置 する 








ツー ル パ レ ッ ト の [Label] 薫 | を 使っ て 、 ラ ベル コ 
の ント ロー ル を 配置 し 、 次 の ひ プ ロ パ ティ を 設定 する 
プロ パテ ィ 
BorderStyle 1 一 実線 
Caption | (空白 ) 
Alignment 





扶 め に ドラ ッ グ 
し て 配置 
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15 生 








1 6⑪ ツー ル パ レ ッ ト の [ProgressBar] 厚 を 使っ 
て 、 プ ログ レス バー コン トロ ー ル を 配置 する 


マー 
リ 4 


に アリ 





上 一 が 9 個 に な る よう に 、 サ イズ 変更 ハン ドル を 
ドラ ッ グ し て 幅 を 調節 する 











ProgressBar1 ProgressBar ェ 


全体 | 項目 別 | 


「10] に 設定 





MouseFainter  - ccDefault 








Lesson 1 ら | アニ メー ショ ンク ロッ ク の 作 
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Dim 1 As Tnteger, ] As Tnteger 

















Form1:Form-Load 








-fomtTmerHTmer 


IE ロレ 人 E 当 il 略 過 」 
























Privyate Sub F1mer1 Timer() 
Dim NowTime As String | 
Dim NovwSec As S モ ing 





NovwTime = Time 
NowSeoc = Right(NowTime, 1) 
] = CTnt(NowSec ) 


NowTime = Forma モ (Time, "hh:mms SS") 
Labe11 .Caption = NowTime 


エ mage1 .P1Cture = TmageLis 七 1 . エ Ss 上 Tmages ( 1 ) .P1 で Cu とら 
| も ョ ミエ ミエ イィ ユ 1 
エ E i = 6 Then 
Lo 
End エモ 


| 
| 
| Progre58Bar1 .Va1ue = ] 
End Sub 
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この プロ グラ ム は 、 次 の よう に 動作 し ます 。 


り 1 秒 ご と に Time 関数 を 実行 し 、 現 在 の 時 刻 を ラベ ルコ ント ロー ル に 出力 し て 、 フ 
ォ ー ム に 表示 し ます 。 


② 同 時 に 、 イ メー ジリ スト コン トロ ー ル か ら ア イコ ン イ メー ジ を 取り 出し 、 フ ォ ー 
ム に 配置 し た イメ ー ジ コン トロ ー ル に 、1 秒 ご と に アイ コン を 切り 替え て 表示 し 
ます 。 


3 ぅ プログ レス バー コン トロ ー ル を 使っ て 、 秒 の 推移 を 表示 し ます 。 こ れ は 、10 秒 単 
位 で 繰り 返し 表示 し ます 。 こ の と き 、 最 新 の 秒 の 数 字 を 把握 し 、 そ こ か ら プ ログ 
レス バー の 表示 が スタ ー ト する よう に 、 秒 と プロ グレ スバ ー の 表示 を シン クロ さき 
せま す 。 











圏 四国 還 還 還 - 秒 と プロ グレ スバ ー の 
動き が シン クロ する 











Time 関数 は 、 実 行 す る と 最新 の 現在 時 刻 を Windows の シス テム か ら 取 得 し 、 戻 
り 値 と し て 返し て きま す 。 こ の 関数 を 、 タ イマ ー コ ント ロー ル の Timer イ ベン ト プ 
ロ シ ー ジ ャ で 実行 する と 、[Intervall プロ パテ ィ で 設定 し た 時 間 ご と に 最新 の 時 刻 
を 取得 で きま す 。 

すなわち 、[Intervall プロ パテ ィ を 「1000」 1 秒 ) に 設定 し て 、Time 関数 を 実 
行 す る と 、1 秒 ご と の 時 刻 を 取得 で きる こと に な り ま す 。 

この プロ グラ ム で は 、 こ の テク ニッ ク を 使用 し て 、 秒 単位 まで の 時 刻 を 表示 する 
デジ タル 時 計 を 作成 し ます 。 
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久 最初 に 、 フ ォ ー ム の コー ドモ ジュ ー ル の 、 変 数 宜 言 セク ショ ン に 2 つの 変数 を 整 
数 型 で 宣言 し ます 。 こ れ ら の 変数 は 、 あ と で イメ ー ジ を アニ メー ショ ン さ せ た り 、 
プロ グレ スバ ー の 操作 に 使用 し ます 。 


Dim 1 As Tnteger, ] As Tnteger 


変数 を 宣言 し た ら 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 、 初 期 化 し て お きま 
す 1 


Private Sub Form Load( ) 
= 1 
3。 = ュ 

End Sub 


竹 時 計 と アニ メー ショ ン 、 プ ログ レス バー の 処理 は 、 す べ て タイ マー コン トロ ー ル 
の Timer イ ベン ト プ ロ シー ジャ で 行い ます 。 
まず 最初 に 、2 つ の 変数 を 宜 言 し ます 。 こ の 変数 は 、 現 在 の 時 刻 と 秒 を 格納 する 
変数 で 、 文 字 列 型 で 家 言 し ます 。 


P ェ ivate Sub Timer1 Timer() 
Dim NowTime As String 
Dim NovwSec As Str ェ ing 


宜 言 し た ら 、Time 関数 を 実行 し て 、 戻 り 値 を 変数 [NowTime」 に 格納 し ます 
(Time 関数 に 引数 は あり ませ ん ) 。 ま た 、 戻 り 値 は Variant 型 で 返っ て きま す が 、 そ 
れ を 文字 列 型 の 変数 に 格納 し ます 。 こ れ で 、 現 在 の 時 刻 が 文字 列 と し て 取得 で きま 
し だ 。 


NowTime = Time 


変数 に 格納 し た ら 、Right 関 数 で 文字 列 の 一 番 右 の 文字 を 取り 出し 、 変 数 
「NowSec」 に 格納 し ます 。 す な わ ち 、 秒 の 1 桁 部 分 を 取り 出し ます 。 


NowSec = Right(NowTime, 1) 


取り 出し た ら 、CImt 関 数 で 文字 列 か ら 整 数 型 に 変換 し 、 変 数 | に 格納 し ます 。 
「CInt」 関数 は 、 引 数 に 与え た 文字 列 ま た は 数 式 を 、 整 数 に 変換 し て 返し て くる デー 
タ 変 換 関数 で す (P.30 参照 )。 
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これ で 、 現 在 時 刻 の 秒 の 1 桁 の 数 字 が 整数 に 変換 され て 、 変 数 に 格納 され ます 。 


] = CTnt (NowSec ) 


人 今 棄 は 、 再 度 Time 関 数 を 実行 し て 、 現 在 の 時 刻 を 取得 し ます 。 そ し て 、Format 
関数 を 使用 し て 、 こ の 時 刻 を 「"hh:mm:ss"」 形式 に 変換 し て 、 変 数 [NowTime」 に 
再度 代入 し て いま す 。 

Time 関数 で 取得 で きる 時 刻 の 表示 形式 は 、Windows の コン トロ ー ル パネ ル に あ 
る [地域 |] アプ レッ ト の [時 刻 ] タブ で 設定 され た 表示 形式 に な り ま す 。 こ の 設定 
を 、 プ ログ ラム の 中 で 変更 し た い 場 合 は 、Format 関数 を 使用 し ます 。 こ の 関数 は 、 
指定 し た デー タ を 、 指 定 し た 書式 に 変換 し て 返し て くる 関数 で す 。 








地域 | 数値 | 通貨 時 刻 | 日 付 | 
ーー 
10 
時 %O 形 式 
区 t り 記号 













この 表示 形式 を Format 関数 
変更 する 











これ を 使っ て 、 時 刻 の 表示 形式 を 変更 し て 、 ラ ベル コン トロ ー ル の [Caption] プ 
ロ パ ティ に 出力 し 、 フ ォ ー ム に 表示 し ます 。 


NowTime = Forma(Time, "hh:mmzsS") 
Labe11 .Caption = NowTime 


この 処理 は 、 タ イマ ー コ ント ロー ル の Timer イ ベン ト プ ロ シー ジャ に 記述 し て い 
ます 。 ま た 、 タ イマ ー コ ント ロー ル の Imterval プ ロ パ ティ を 「1000」 に 設定 し て い 
ます 。 し た が っ て 、1 秒 ご と に この プロ シー ジャ が 実行 きれ 、 時 刻 の 取得 が 行わ れ 
て フォ ー ム に 表示 され る よう に な り ま す 。 





LesSson 1 の アニ メー ショ ンク ロッ ク の 作 


者 馬 ワン ポイ ント アド バイ ス 





筆者 の コン ピュ ー タ の コン トロ ー ル パネ ル で は 、 時 刻 の 設定 は 「 午 後 10:47」 と い 
う 形 式 で 設定 し て いま す 。 

この プロ グラ ム で は 、「10:47:18」 と いう 秒 表 示 ま で で きる 形式 に 変更 し て 使用 し 
ます 。 コ ンピュータ の 設定 は その まま で 、 プ ログ ラム の 中 で だ け で 書式 を 設定 し た い 場 
合 は 、 こ の よう に Format 関数 を 使用 し て 一 時 的 に 書式 を 変更 し て 使用 する と いい で し 
9 1 








| 午後 85254 書式 変更 し な い 時 刻 表 示 


書式 変更 し た 時 刻 表示 
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ラベ ルコ ント ロー ル へ の 時 刻 の 表示 が で きた ら 、 今 度 は イメ ー ジ コン トロ ー ル を 
使っ た 、 イ メー ジ の アニ メー ショ ン 表 示 を 作成 し ます 。 

まず 、 イ メー ジコ ント ロー ル の [Picture] プロ パテ ィ に 、 表 示す る イメ ー ジ を 設 
定 し ます 。 表 示す る イメ ー ジ は 、 イ メー ジリ スト コン トロ ー ル の 「ListImages」 コ 
レク ショ ン の [Picture] プロ パテ ィ を 使用 し て 取得 し ます 。 

イメ ー ジ リス トコ ント ロー ル に 追加 し た イメ ー ジ は 、ListImage オブ ジェ クト と 
し て 扱わ れ ま す 。 イ メー ジリ スト コン トロ ー ル は 、 複 数 の イメ ー ジ を 格納 し ます か 
ら 、[「ListImage コ レク ショ ン オ ブ ジ ェクト | と な り ま す 。 

イメ ー ジ リス トコ ント ロー ル に 格納 され て いる イメ ー ジ に アク セス する に は 、 
[ListImages()] プロ パテ ィ を 使用 し ます 。() の 中 に 、 プ ロ パ ティ ペー ジ の [イン 
デック ス ] と 同じ 番号 を 指定 すれ ば 、 そ の イメ ー ジ を オプ ジェ クト と し て 参照 で き 
る よう に な り ま す 。 








た と えば 、「 日 の 丸 ]」 の イメ ー ジ に アク セス し た い 場 合 は 、 こ の イメ ー ジ の イン デ 
ックス が 「2] な の で 、 オ ブ ジ ェクト の 指定 は 、 次 の よう な 記述 に な り ま す 。 


エ mageLis モ 1 . エ is 上 Tmages ( 2 ) 


この ListImage オプ ジェ クト の [Picture] プロ パテ ィ に 、 実 際 の イメ ー ジ が 格納 
きれ て いま す の で 、 こ れ を イメ ー ジ コン トロ ー ル の [Picture] プロ パテ ィ に 代入 す 
れ ば 、 そ の イメ ー ジ が 表示 され ます 。 


T エ mage1 . P ユ C モ ue = TmageLis1 . エ 5 モエ mageS (1 ) .P ュ ご 上 u エ 6 


[ListImages()] プロ パテ ィ の イン デック ス に 変数 「i| を 使用 し て 、1 回 Timer イ 
ベン ト が 発生 する た びに 、 こ の ListImage オプ ジェ クト の イン デック ス を 変更 する 
こと で 、 イ メー ジコ ント ロー ル の 表示 イメ ー ジ を 変化 きせ せ て いま す 。 
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また 、 イ メー ジリ スト コン トロ ー ル に は 、5 つ まで し か アイ コン イメ ー ジ を 格納 
し て いま せん か ら 、 変 数 il が 6 に な っ た ら 、i の 値 を 1 に 戻し て いま す 。 こ れ で 、 
5 つの アイ コン イメ ー ジ が 連続 で 表示 され る よう に な り ま す 。 


エ E ュ = 6 Then 
ト 
End TE 






アイ コン が 変化 する 





最後 に 、 プ ログ レス バー コン トロ ー ル の 表示 を 設定 し ます 。 

プロ グレ スバ ー コ ント ロー ル は 、[Value] プロ パテ ィ に 数 字 を 与え る と 、 そ の 数 
字 に 見 合っ た 圏 を 、[Max] と [Min] プロ パテ ィ の 量 の 比率 で 表示 し ます 。 

すでに 、 変 数 「j] に は 、Time 関数 で 取得 し た 秒 の 1 桁 が 、 整 数 に 変換 され て 格 
納 き され て いま す 。 こ の 値 を 、 プ ログ レス バー コン トロ ー ル の [Value] プロ パテ ィ 
に 与え を て あげ れ ば 、 現 在 の 秒 の 1 桁 分 が 田 で 表示 され る よう に な り ま す 。 

ここ で は 、 秒 の 1 桁 目 が 「0] で あれ ば 、 プ ログ レス バー に は 田 は 表示 され ず 、「9] 
で 、 バ ー い っ ぱい に 甘 が 表示 きれ る よう に し て いま す 。 


ProgresSBa エ 1 .Value = ] 


以上 で 完成 で す 。 プ ログ ラム を 動作 きせ る と 、 時 刻 表 示 と と も に 、 ア イコ ン イ メ 
ー ジ と プロ グレ スバ ー が 表示 され ます 。 
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秒 の 1 桁 が 「0] だ と 、 
プロ グレ スバ ー は 空白 

















「9」 だ と 、 い っ ぱい に 
画 で 埋まる 











タイ マー コン トロール の Timer イベ ント プロ シー ジャ 内 で Time 関数 を 使用 する 
と 、 時 刻 表 示 が 変化 する 時 計 の プロ グラ ム が 作成 で きま す 。 こ の 時 、 タ イマ ー コ ント 
ロー ル の [Intervall プロ バ パティ を 1 秒 に 設定 し て お く の が ポイ ント で す 。 ま た 、 イ 
メー ジコ ント ロー ル の イメ ー ジ 表示 を 行う に は 、[Picture] プロ パテ ィ に 表示 する イ 
メー ジ を 設定 し ます が 、 フ ァイル か ら イ メー ジ を 設定 する 場合 は LoadPicture 関数 を 
使用 し て いま し た 。 

し か し 、 イ メー ジリ スト コン トロ ー ル に 格納 され て いる イメ ー ジ を 使用 する 場合 は 、 
ListImage オブ ジェ クト の [Picture] プロ パテ ィ の 値 を その まま 代入 する だ け で す 。 

1 つの プロ グラ ム で 複数 の イメ ー ジ を 使用 する 場合 は 、 イ メー ジリ スト コン トロ ー 
ル を 使用 し た ほう が 、 イ メー ジ の 管理 や 操作 が 楽に な り ま す 。 
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@c》 ぁ 練習 問題 


作成 し た プロ グラ ム で は 、 タ イマ ー コ ント ロー ル の Timer イベ ント プ 
ロ シ ー ジ ャ で 時 刻 表 示 の 処理 を 行っ て いる た め 、 プ ログ ラム が 起動 し た 
1 秒 後 か ら 、 こ の 処理 が 実行 され ます 。 こ の た め 、 プ ログ ラム 起動 直後 は 
1 秒 だ け 時 刻 表 示 が され ませ ん 。 

そこ で 、 プ ログ ラム 起動 時 か ら 時 刻 表 示 が 行わ れる よう に 、 プ ログ ラ 
ム を 修正 し て くだ さい 。 





20 る あけ 


に まっ 2 還 放 | 起動 直後 は な に も 
ま hG を 表示 され な い 





解答 は 巻末 に 一 





Timer ステ ー ト メン ト を 使用 する と 、Windows の 現在 時 刻 を 設定 で きま す 。 
また 、Date 関数 を 使用 する と 、 現 在 の 日 付 を 取得 で き 、Date ステ ー ト メン ト を 使 
用 すれ ば 、 現 在 の 日 付 を 設定 で きま す 。 





第 4 日 1 時 限 目 時 計 の 作 




















上 デジ タル クロ ッ ク の 作成 


四条 時 前 の レッ スン で 、Time 関数 に よる 時 刻 の 取得 と 活用 方 法 が わか り ま し 
ニー た の で 、 今 度 は グラ フィ ッ ク な ど と 組み 合わ せ て 、 少 し デザ イン を 加え 
た 時 計 を 作成 し まし ょ う 。 流行 の デジ タル ウォ ッ チ を まね し た 、 

「Baby-V」 と いう 時 計 を 作成 し ます 。 











流 回 作成 する プロ グラ ム 
時 刻 に 合わ せ て グラ フ 
昌和 四 イッ ク の 表示 が 変わ る 


EZ Lesson13.vbp 


1 

| 

| 

⑧ VB6CD2 | 
ョ ペコ Lesson13 較 

I 


Shape コン トロ ー ル と ラベ ルコ ント ロー ル を 組み 合わ せ て 、 時 刻 
表示 に 加え て 、 秒 を 図形 の 点 減 で 知ら せる よう に し ます 。 ま た 、 メ 

コー コウ ツ ー ル と コモ ンダ イア ログ コン トロール を 使っ て 、 ラ 
ベル コン トロール の 時 刻 表示 の フォ ント を 、 自 由 に 変更 で きる よう 
に し ます 。 
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ント あー ルプ トル 75 の) 二 。 だ 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


ツー ル パ レ ッ ト に 「Microsoft Common Dialog 
Control 6.0」 コン ポー ネン ト を 追加 する 






ツー ル パ レ ッ ト に コモ 
ンコ ント ロー ル か が 追加 
され る 








フォ ー ム の [Caption] プロ パテ ィ を 「Baby-V」 に 
変更 する 







Form1 Form 


全体 | 項目 別 | 













Form1 
皮 Ppearance 1 - 3D 
mutoRedraw False 

日 HO0C0FFFF& 


LM 「Baby-V」 に 
Baby- が 
True 変更 
ControlBox True 
DrawMode 13 - Capy Pen 
InTPWN FR ロー 宇 引 人 r で 、 引 1 


[BackColor] プロ パテ ィ を 「SHOOCOFFFF&S」 に 
変更 する 


ここ を クリ ッ ク 
ここ を クリ ッ ク 
ここ を クリ ッ ク 
ここ を クリ ッ ク 





第 4 日 時 限 目 時 計 の 作成 













コン ポー ネン ト を 
ぐ 追 m る 

コン ポー ネン ト を 追加 す 
る 方 法 に つい て は 、 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 


6s 
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ツー ル バ パレット の [Shape] 国 | を 使っ て 、 シ ェ イ 
プ コ ント ロー ル を 配置 する 





l Ns | 

| 和 | 

| 3 | 斜め に ドラ ッ グ 
| ょ | し て 配置 





寺 [Shape] プロ パテ ィ を 「3 - 円 」 に 変更 する 


目 POrOeTSYYIE 1 一夫 で F 記 林 7 
ここ を けり 以 多 
ここ を クリ ッ ク 







ご こ を クリ ッ ク 











| シェ イプ コン トロ ー ル 
= ・ の 形状 が 円 に 変わ る 


家 ie 





Lesson 13 デジ タル クロ ッ ク の 作成 


いい [FilIColor] と [FilIStyle] プロ パテ ィ を 次 の よう に 
設定 し て 水色 に 塗り つぶ す 


プロ パテ ィ 中 
FillColor SHOOFFFFCO&S 








FiIIStyle 0 一 塗り つぶ し 


ノレ エイ フ コ ント ロー ル を も う 1 つ 配 置 する 


| 斜め に ドラ ッ グ 
し て 配置 








ツー ル バ ー の [コピ ー] ボタ ン を クリ ッ ク し 、 続 け 
て [貼り 付け ] ボタ ン を クリ ッ ク す る 





ここ を クリ ッ ク 








に 21EE22PZ4 
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の ひ [は い ] を クリ ッ ク し て コン トロ ー ル 配列 に する 





ント ロー ル の コピ ー を 3 つ 配 置 する 





』《) [貼り 付け ] ボタ ン を クリ ッ ク し て 、 シ ェ イ プ コ 
画 Baby- 


貼り 付け て 配置 する 





本 最初 の 四角 を [FilIColor] と [FiIIStyle] プロ 
パテ ィ を 使っ て 「 青 色 ] で 塗り つぶ す 


プロ パテ ィ 値 


FillColor 
FiIIStyle 
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Lesson 13 デジ タル クロ ッ ク の 作成 


1』 残り 3 つの 四角 を 同様 の 操作 で 次 の プロ パテ ィ > の ご つの 四角 を ま と 
の 値 を 設定 し 、 白 色 で 塗り つぶ す 8 








プロ パテ ィ 


3 つの 四角 を まとめ て 選択 
じき = 度 に グロ ウパ テキ を 
設定 する こと が で きま す 。 
キー ボー ド の Ctrl キー を 














1 る ツー ル パ レ ッ ト の [Label] 内 | を 使っ て 、 ラ ベ 
ルコ ント ロー ル を 円 の 中 に 配置 する 








FilIColor SHOOFFFFFFS 
FiIIStyle 0 一 塗り つぶ し 


押し な が ら コ ント ロー ル 
を クリ ッ ク す る と 、 複 数 
の コン トロ ー ル を まとめ 
て 選択 で きま す 








1 






放 め に ドラ ッ グ 
し て 配置 


』 竹 配置 し た ラベ ル に 、 次 の プロ パテ ィ を 設定 する 


プロ パテ ィ 
Alignment 


ら 一 中 央 揃え 





AutoSize 


True 





BorderStyle 


1 一 実線 





Caption 





(な し ) 
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マー コン トロール を 配置 する 


間 =Em 


ら ツー ル バ パレ ッ ト の [Timer] 間 を 使っ て 、 タ イ 











Timer1 Timer ェ 


全体 | 項目 別 | 


「1000」 に 


5: が ヨ 





ツー ル パ レ ッ ト の [CommonDialog] 國 を 便 
ノ っ て 、 コ モン ダイ アロ グ コ ント ロー ル を 配置 する 








上 プロ まま イ パー の トラ ォ シ タプ る る 
ォ ン ト 名 ] を 「MS P ゴ シッ ク 」 に 設定 する 


開 </ 保 存 | 色 2 mm い ーーーーーーーーーー ト ー 上衣 eee Jee の 2 
2% 化 GO ーーーー | 


リト 名 ⑥) [MS P ゴ シッ ク | 
「MS P ゴ シッ 
ク 」 を 設定 


9 の FE . 環 KO 景 G9F F 
軸 
ここ を クリ ッ ク 









72 が (E: 


上 フォ ー ム の サイ ズ 変 更 ハ ンド ル を ドラ ッ グ し 、 サ 
イズ を 調整 する 





ーー 一 名 [erzz2] 
みう フォ ー ム に 対し て 次 の プロ パテ ィ を 設定 し 、 フ ォ 
ー ム に 表示 され て いる ボタ ン を 削除 する 


プロ パテ ィ 
MaxButton 
MinButton 


















[最小 化 】 ボタ ン と 
[最大 化 ] / [ 元 に 
戻す ] ボタ ン が 削 
除 さ れる 
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[プロ パテ ィ ペ ー 
メジ] ダイ アロ グ 


[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ポ ボッ クス を 表示 す 
る に は 、 コ モン ダイ アロ 
グ コ ント ロー ル が 選択 き 
れ た 状態 で 、 プ ロ パ ティ 
ウィ ンド ウ の 「[( プ ロ パ テ 
ィ )] を クリ ッ ク し 、 そ の 
右 欄 に ある [.…] ボタ ン を 
クコ リック に ます 。 
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み 上 メニ ュー エディ タ を 起動 し 、 次 の メニ ュー を 


する 


キャ プシ ョ ン 名 前 に ち 


ミル 
に に 4 








設定 IDM_SETUP チェ ッ ク を 外す 
ジア ォ ジ ト IDM_FONT チェ ッ ク の まま 


75ayP 屋 訪 OK | 





名 前 [DDMSETUP キツ セル | 
イデ ウス: za-HM2G [ない =|」 


へ 02* ヤス ト 番号 (⑪ 条 江 ー ト 仁 置 ⑥: D- な し 事 昌 
「 な カ ⑥) ドレ 有効 ⑥ 「 表示 ⑩ トウ ルト ウリ スト 


*| >| *| | AO | WeO | 


フォ ン 





みみ 完成 し た フォ ー ム 


に EEIk 
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司 還 コー ド の 記述 





時 Form1:(General)-(Declarations) 








| Dim 1 As Tnteger 
| 


Form1: Form- -Load 





M 











Pr ュ ivate Sub Form Load( ) 

ュ ミュ = 0 

Labe1 1 .Cap 上 ュ 1on = Forma モ (Time, "hh:mmiSS") 
End Sub 


| 
1 


| 


ョ Form1: Farm- NM 





| P エ ivYate Sub Form MouseDowm ( Bu モ 上 ton AS Tnteger, 
| ShifF モ As Tnteger, X As Sing1e, Y As Sing1e) 
| エ F Bu ヒモ on = YbR1ighBut モ on Then 
| PopupMenu TDM SETUE 
End TE 
| | 還 内 Sub 


Form1: IDM LFONTClick 
に FT IO 2 
. P エ ュ マ ate Sub TDM FONT C1iok( ) 
With CommonDia1og1 
・F1agSs = Cd1CFBoth 
・ShowFon セ 
Labe11 .Fon .Name = .FonEName 
Labe1 1 .Font .S1ze = .FontSize 
| End With 
| End Sub 
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忠 











Form1:Timer1-Timer 





Private Sub 〒1mer1 呈 〒imer( ) 


ます ミキ ォ キス 
エ E ュ = 4 Then 
ミュ =0 
End TE 
Shape2 () .F ミ 11Co1or = vbB1ue 
エ E ュ i = 0O "Then 
Shape2 ( 3 ) .F ミ 11Co1o エ = で bWhite 
EE1se 
Shape2( - 1) .F ミ 11Co1or = YbWhite 
End TE 


Labe1 1 .Cap 上 ion = Format (Time, "hh:mm:SS") 
End Sub 











村 この プロ グラ ム は 、 次 の よう に 動作 し ます 。 


① ラ ベル コン トロ ー ル に 、 1 秒 ご と に 変化 する 時 刻 を 表示 し ます 。 
② 四 角 い シェ イプ コン トロ ー ル は 、 1 秒 ご と に 青色 の 点滅 を 行い ます 。 











1 秒 ご と に 青色 の 
点滅 が 移動 する 





フォー ム 上 を マウ ス の 右 ボ タン で クリ ッ ク す る と 、[ フ ォ ン ト ] メニ ュー が ポッ プ 
アタ ツゲ し ま 補 2 
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右 ク リッ ク す る と メニ ュー が 
ポッ プア ッ プ する 





④) [フォ ント ] メニ ュー を 選ぶ と 、[ フ ォ ン ト ] ダイ アロ グ ボ ックス が 表示 され 、 ラ 
ベル コン トロ ー ル の フォ ント を 自由 に 選択 する こと が で きま す 。 ラ ベル コン トロ 
ー ル は 、[AutoSize] プロ パテ ィ を 「True」 に 設定 し て いる の で 、 選 択 し た フォ 
ント や サイ ズ に よっ て 、 コ ント ロー ル の サイ ズ が 変化 し ます 。 


フォ ント と サイ ズ が 変更 され た 


ラベ ルコ ント ロー ル 





有 うろ で は 、 順 番 に コー ド を 説明 し て いき まし ょ う 。 ま ず 最 初 に 、 変 数 の 宣言 で す 。 フ 
ォ ー ム の 宣言 セク ショ ン に 、 変 数 和 ] を 整数 型 で 宣言 し ます 。 こ の 次 数 は 、 シ ェ イ 
プ コ ント ロー ル の アニ メー ショ ン に 使用 し ます 。 


Dim 1 Ag Tnteger 


宣言 し た ら 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 、「0] に 初期 化し ます 。 ま 
た 、 プ ログ ラム 起動 時 か ら 時 刻 を 表示 で きる よう に 、Time 関 数 を 使っ て 時 刻 を ラ 
ベル コン トロ ー ル の [Caption] プロ パテ ィ に 設定 し ます 。 こ の と き 、 前 の レッ スン 
で 行っ た よう に 、Format 関数 で 時 刻 表 示 の 形式 を 設定 し ます 。 


Private Sub Form Load( ) 

ミュ = 0 

Tabe1 1 .Capt 上 ュ ion = Format (Time, "hh:mmzS8") 
End Sub 
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フォ ー ム の 上 で マウ ス の 右 ボ タン が 押さ れる と 、 メ ニュ ー が 表示 され る よう に 、 
PopupMenu メ ソ ッ ド を 実行 し ます 。 
表示 する の は [フォント] メニ ュー で す 。[ 設 定 ] メニ ュー 自身 は 非 表 示 に 設定 し 
て いま すか ら 、 フ ォ ー ム に は メニ ュー は 表示 され ませ ん 。 し た が っ て この 
PopupMenu メ ソ ッ ド で は 、 直 接 [フォン ト ] メニ ュー を 指定 し ます 。 
押さ れ た ボタ ン が 右 ボ タン か どう か は 、 こ の プロ シー ジャ の 引数 [Button」 の 値 
を 調べ 、If ス テー トメ ント で 処理 を 決定 し て いま す 。 


P ェ ivate Sub Form MouseDowm ( Bu 上 ton AS Tnteger, 
ShiF モ As Tnteger, XX As Sing1e, Y As Sing1e) 
エ F Bu モ on = YbRightBut て on Then 
PopupMenu TDM SETUP 
End TE 
End Sub 


衝 [フォ ント ] メニ ュー が クリ ッ ク さ れる と 、「IDM_FONT_Click0]」 イベ ント プロ 
シー ジャ が 呼び 出さ れ ま す 。 こ の プロ シー ジャ で 、 コ モン ダイ アロ グ ボ ックス の 
[フォ ント ] ダイ アロ グ ボ ックス を 表示 し 、 ユ ー ザ ー が 選択 し た フォ ント の 種類 と サ 
イズ を 、 ラ ベル コン トロ ー ル の それ ぞ れ の プロ パテ ィ に 代入 し て いま す 。 

コモ ンダ イア ログ コン トロ ー ル で 、[ フ ォ ン ト ] ダイ アロ グ ボ ックス を 表示 する に 
は 、「ShowFont] メソ ッ ド を 実行 し ます 。 た だ し 、 こ の メソ ッ ド を 実行 する 前 に 、 
コモ ンダ イア ログ コン トロ ー ル の 【[Flags] プロ パテ ィ に 、 定 数 「cdlCFBoth」 を 設 
定 する 必要 が あり ます 。 

[Flags] プロ パテ ィ は 、[ フ ォ ン ト ] ダイ アロ グ ボ ックス を 使用 する 場合 は 、 ダ イ 
アロ グ ボ ックス に 表示 する フォ ント の 種類 を 指定 する 機能 と し て 働き ます 。 こ の プ 
ロ パ ティ に 何 の 値 も 設定 し な いと 、[ フ ォ ン ト ] ダイ アロ グ ボ ックス の フォ ント リス 
ト に は 、 フ ォ ン ト は 一 切 表示 され ませ ん 。 定数 「cdICFBoth] は 、 コ ンピュータ で 
利用 可能 な プリ ンタ フォ ント と スク リー ン フ ォ ン ト を ダイ アロ グ ボ ックス に 表示 す 
る オプ ショ ン 設 定 に な り ま す 。 


P ェ ivate Sub TDM FONT C1iock( ) 
With CommonDia1og1 
・F1Lags = cd1CFBoth 
・ShowFon モ 


[FlagS] プロ パテ ィ を 設定 
し な いと エラ ー が 表示 され る 
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コモ ンダ イア ログ コン トロ ー ル の プロ パテ ィ シ ー ト で 、[ フ ォ ン ト 名 ] の と ころ に 設 
定 し た フォ ント が 、 ダ イア ログ ボッ クス の [フォ ント 名 ] に 記述 ぐれ 、 リ スト で は 選択 
状態 に な っ て いま す 。 こ の フォ ント 名 を 設定 し な いと 、 初 期 の 選択 フォ ント は 空欄 の ま 
ま に な り ま す 。 











設定 し た フォ ント 名 が 
リス ト に 組み 込ま れ て 


いる 


フォ ント 名 を 設定 し な いと 


初期 の 選択 フォ ント は 空欄 
の まま 





人 [ ワ ォ ント ] タイ アロ グ ボ ックス が 表示 され る と 、 ユ ー ザ ー は この ダイ アロ グ ボ ポッ 
クス で フォ ント 名 や サイ ズ を 選択 で きる よう に な り ま す 。 そ し て 、 ユ ー ザ ー が フォ 
ント 名 を 選択 する と 、 コ モン ダイ アロ グ コ ント ロー ル の 【[FontName] プロ パテ ィ 
に 、 フ ォ ン ト サ イ ズ は [FontSize] プロ パテ ィ に 格納 され ます 。 
これ を 、 そ の まま ラベ ルコ ント ロー ル の Font オ プ ジ ェ クト の 、[Name] と [Size] 
プロ パテ ィ に 代入 すれ ば 、 ラ ベル コン トロ ー ル で 表示 する 文字 列 の フォ ント を 変更 
で きま ぼ 定 。 


Labe11 .Fon モ .Name = .FontName 
Liabe11 .Font .Size = .Fon モ Size 


0 最後 に 、 叶 刻 表示 の 処理 を 作成 し ます 。 こ れ は 、 タ イマ ー コ ント ロー ル の Timer 
イベ ント プロ シー ジャ に 作成 し ます 。 
最初 に に シェ イプ コン トロ ー ル の アニ メー ショ ン 表 示 を 作成 し ます 。 こ の コン ト 
ロー ル は 、1 秒 ご と に 順番 に 色 を 白色 か ら 青 色 に 点滅 きせ て 、 点 滅 表 示 が 回 転 する 
よう に 動作 きせ ます 。 四角 い シ ェ イ プ コ ント ロー ル は 、 コ ント ロー ル 配 列 に し て あ 
り ま す の で 、 配 列 の イン デック ス に 変数 を 使え を ば 、 式 で コン トロ ー ル に アク セス す 
る こと が で きま す 。 こ れ を 使っ て 、 4 つの 四角 い シ ェ イ プ コ ント ロー ル の [FilColor] 
プロ パテ ィ を 操作 し 、 順 番 に 点滅 する よう に 見 せ か け ま す 。 


最初 の 1 秒 で 青 と 白 の 
塗り つぶ し を 入れ 替え る 
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まず 、 変 数 「i] で 塗り つぶ す シ ェ イ プ コ ント ロー ル の 順番 を 指定 し ます 。 こ の 変 
数 呈 | の 値 に 1 を 加え て お きま す 。 

フォ ー ム に 配置 し た シェ イプ コン トロ ー ル の オプ ジェ クト 名 は 、[「Shape2(0)」 か 
ら 「Shape2(3)」 まで の 4 つ で す 。 も し 、[[i」 の 値 が 「4]」 に な っ て し まう と 、 
「Shape2(④)] に アク セス する こと に な り ま す が 、 こ の コン トロ ー ル は 存在 し ませ ん 。 
そこ で 、 変 数 | の 値 を 「0] に 戻し て お きま す 。 


private Sub Timer1 Fimer() 
ミミ = ニュ ミオ 1 
エ E ュ = 4 Then 
ミュ = 0 
End TE 


7/ そし て 、 こ の 変数 を 使っ て 、 シ ェ イ プ コ ント ロー ル の [FilIColor] プロ パティ の 
値 を 「vbBlue」 (青色 ) に 設定 し ます 。 


Shape2 () .-F ミ 11Co1or = vbB1ue 


また 、 青 色 に 塗り つぶ し た シェ イプ コン トロ ー ル が 、 最 初 の コン トロ ー ル 
「Shape2(0)] で あれ ば (すなわち 変数 「i] の 値 が 「0] で あれ ば )、4 つ め の シ ェ イ 
プ コ ント ロー ル を 白色 に 塗り つぶ し ます 。 


エ E ュ = 0 mhen 
Shape2 ( 3 ) .〒F ミ 11Co1or = vbWhite 


変数 日 の 値 が 「0] 以外 で あれ ば 、1 つ 前 の イン デック ス 番 号 の シェ イプ コン ト 
ロー ル を 白色 に 塗り つぶ し ます 。 


下 1se 


Shape2( - 1) .Fi11Co1or = vbWhite 
End TE 


「vbBlue」 「vbWhite」 は 、 色 番号 を 表す 「 カ ラー 定数 ] で す 。 


これ で 、1 秒 ご と に 、 そ れ ま で 青色 だ っ た シェ イプ コン トロ ー ル は 白色 に な り 、 
次 の シェ イプ コン トロ ー ル が 青色 に 塗ら れ ま す 。 こ の 動作 が 1 秒 ご と に 行わ れる た 
め 、 四 角 い シェ イプ コン トロ ー ル が 点滅 を 繰り 返す よう に 見 えま す 。 
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人 S 最後 に 、 ラ ベル コン トロ ー ル の [Captionm] プロ パテ ィ に 、Format 関 数 を 使っ て 、 
現在 の 時 刻 を 表示 し ます 。 


rabe11 .Caption = Format(TTime, "hh:mmsS5") 


これ で 、 プ ログ ラム が 完成 で す 。 
















シェ イプ コン トロ ー ル の よう に 、 コ ント ロー ル 配 列 を 使用 する と 、 同 じ オ ブ ジ ェ ク 
ト 名 に イン デック ス 番 号 を 使っ て 、、 コ ント ロー ル に アク セス で きる よう に な り ま す 。 
イン デック ス が 使え る と いう こと は 、 式 を 使う こと が で きま す の で 、 自 動 処理 が や り 
や すく な り ま す 。 

また 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル の [フォ ント ] ダイ アロ グ ボ ックス 
を 使用 する と き は 、 表 示す る フォ ント の 種類 を 設定 する た め に 、[Flags] プロ パテ ィ 
に 値 を 設定 する 必要 が ある こと を 忘れ な いで くだ さい 。 

この レッ スン で は 、 説 明 の た め に 簡単 な デザ イン の デジ タル クロ ッ ク を 作成 し まし 
た が 、 皆 さん は ぜひ も っ と 凝っ た デザ イン の 、 楽 し い 時 計 を 作成 し て みて は いか が で 
まう 。 


明 この クロ ッ ク に 時 報 を 組み 込ん で くだ さい 。 サ ウン ド は 、 ビ ー ブ プ 音 を 
使用 し ます 。 


解答 は 巻末 に 一 
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material | 馬 ] VB2-L15TX. | 午前 104341 


[・ 目 に HiE 店 91 


タス ク バ ー を クリ ッ ク す る 
| と ウィ ンド ウ 表 示 に な る 


タス ク バ ー で の 時 刻 表示 (アイ コン の 点滅) 


時 計 の プロ グラ ム の 3 番目 は 、 タ スク バー に 格納 し て 時 刻 を 表示 する 
プロ グラ ム で す 。 フ ォ ー ム の キャ プシ ョ ン に 時 刻 を 表示 する よう な プロ 


ク バ ー 上 で 時 刻 表 示 が 行え ます 。 こ の 特徴 を 生か し て 、 普 段 は タス ク バ 
ー 上 で 時 刻 を 表示 し 、 通 常 の ウィ ンド ウ 表 示 に な れ ば 、 フ ォ ー ム 上 に 時 
刻 を 表示 する プロ グラ ム を 作成 し ます 。 


流 回 作成 する プロ グラ ム 


タス ク バ ー 表 示 





起動 時 は タス ク バ ー に 表示 


通常 の ウィ ンド ウ 表 示 





フォ ー ム の Caption] プロ パテ ィ に 、Time 関数 を 使っ た 時 刻 を 
設定 する と 、 フ ォ ー ム の キャ プシ ョ ン で 時 刻 表 示 を し ます 。 こ の キ 
ャ プシ ョ ン は 、 プ ログ ラム を タス ク バ ー 化 (最小 化 ) し て も その ま 
ま 表 示さ れ ま す 。 ま た 、[WindowState] プロ パテ ィ を 使用 する と 、 
プロ グラ ム 起 動 時 に 直接 タス ク バ ー に 格納 され る プロ グラ ム を 作成 
で きま す 。 
これ ら の 機能 を 使っ て 、 タ スク バー 上 で 時 刻 を 表示 する デジ タル 
クロ ッ ク を 作成 し ます 。 
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U コン トロ ー ル と プロ パテ ィ の 設定 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


1 ー ル パレ ッ ト の [Timer] 上 開 を 使っ て 、 タイ マー 
コン トロ ー ル を ら つ 配置 する 


EE 問題 





SA ドラ w グ 
SA 


それ ぞ れ の [Intervall プロ パテ ィ を 「1000」 に 設 
定 する 





Timer2 Timer 


全体 | 項目 | 





ェ 


「1000」 に 


設定 





ツー ル パ レ ッ ト の [Label] 念 | を 使っ て 、 ラ ベル 
コン トロ ー ル を 配置 する 


に ii 回 固 了 四 
重 L 午 
EabeH 
ョ ーーー ニー ニー ニニ ペー ニー 還 
ここ ー 吉 に 
還 し し 








アラ ィ コン の コピ ビー 
CD-ROM の 「Lesson14」 
フォ ル ダ 内 に ある 
「Smileyico」 「Smiley2jco]」 
の 2 つの ファ イル を C ド ラ 
4 の 252 ピ 一 2 で お 5 
くだ さい 


第 4 日 3 時 限 目 時 計 の 作成 





用 配置 し た ラベ ルコ ント ロー ル に 、 次 の プロ パテ ィ を 
設定 する 


ん リル と 
Alignment ら 一 中 央 揃え 
BorderStyle | 1 実線 








Font MS P ゴ シッ ク 
18 ポイ ント 
ForeColor SHOOFFFFO0 (シア ン ) 








サイ ズ 変 更 ハ ンド ル を ドラ ッ グ し て 、 フ ォ ー ム の サイ 
ズ を 縮小 する 








ペーーー 抽 


フォ ー ム の [BorderStyle] プロ パテ ィ を 「1 一 固 
定 (実線 )] に 設定 する 










Form1 Form 


な の 365 ジン 






Forml 







1- 3D 

False ここ を クリ ッ ク 
国 &H8000O0nF& 

5 






人 
3 - 固定 イア が 
 - 固定 ツー ルウ トウ 
5 - 可 案 ツ ー ル ウト ツウ 









ここ を クリ ッ ク 
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フォ ー ム の [lcon] プロ パテ ィ に 「 ら 246.ico」 を 設 
定 す る 








ee So ロロ 











選 過 を クツ クリック 


国 5so ico 思 ca >amera ico 
届 Atoms2co 宣 centerico 回 
調 Buttont3ico 。 checkico W 


罰 Butonifico 申 Clipbrd2 ico 【 
調 Buttcnrgico Clock8 co 
ーー こ を クリ ッ ク 
アル の 種類 GO | アイ で icowcu) 
ビーーー 


[WindowState] プロ パテ ィ を 「1 一 最小 化 」 に 設 
定 す る 








リロ パテ イー ト Form ※ 
Form1 Form ェ 
全体 | 項目 別 | 






(4 な の 


を グリ ルツ 
ここ を クリ ッ ク 


NegatiateMenus True 


[MinButton] プロ パテ ィ を 「True」 に 、 
[MaxButton] プロ パテ ィ を 「False」 に 設定 する 








Form1 Faorm ェ 


全体 | 項目 別 | 














RZe の 】 
KeyFreyiew False 
Left 546n 
LinkMode 0- な し 
LinkTapic Farm1 
False 
False 


[False」 を 設定 


「True」 を 設定 






True 
NegotiateMenus True 








< アイ コン の 設定 


[Icon] プロ パテ ィ を クリ 
ッ ク し 、 そ の 右 欄 の 右端 
に ある [..] ボタ ン を クリ 
ッ グ 3 る こと SNE7 イ 回 深 の 
読み 込み ] ダイ アロ グ ボ 
ックス が 表示 され ます 。 
「246.ICO」 ファ イル は 、 
付録 CD-ROM の 
[materiall フォ ル ダ に 収 
録 き れ て いま す 。 


8 る 
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m14 - Form1 ロー- ド ) [-I ロ lxi 
[Generap | ド Declarations) | | 
ーー! 


Dim Pos As Boo1ean 









Form1:Form-Load 









Private Sub Form Load( ) 
| Pos = True 
Form1 .Caption = Time 


End Sub 


=Form1:Timer1-Timer 


















mer 1 選 
Private Sub mimer1 mimer( ) 
| Dim NowTime As Varian セ 





| NowTime = Time 


エ F Form1 .WindowState = YbNorma1 Then 
Form1 .Capion = "maskbar C1ock" 
E1se 


Form1 .Caption = NowTime 
End TE 


Labe11 .Caption = NowTime 





























委 Form1:Timer2-Timer 
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E ェ ュ で a モ te Sub Timer2 Time: 





エ E Pos = True Then 
Form1 . エ Con = LoadP ュ CEure@ ( "で: 将 SMTLEY . エ CO" ) 
Pos = Fa1se 

EE1se 
Form1 . Tcon = LoadP1ioC モ ur ( "で = 等 SMTLEY2 . TCO" ) 
Pos = "True 

End エモ 








1 





この プロ グラ ム は 、 次 の よう に 動作 し ます 。 
① プ ログ ラム が 起動 する と 、 す ぐに Windows の タス ク バ ー に 格納 され ます 。 
②③ この 状態 で 、 時 刻 の 表示 と アイ コン の アニ メー ショ ン を 行い ます 。 


③ タ スク バー に ある プロ グラ ム を マウ ス で クリ ッ ク す る と 、 プ ログ ラム は 通常 の ウ 
ィ ン ド ウ 表 示 に な り ま す 。 こ の 状態 で は 、 フ ォ ー ム の キャ プシ ョ ン に は 、 ア ニ メ 
ーション し な い ア イコ ン と プロ グラ ム 名 が 表示 され 、 ラ ベル コン トロ ー ル に 時 刻 
が 表示 され ます 。 


プロ グラ ム の 表示 形態 が 「 標 準 ] か ら 「 最 小 化 」 に 変化 する と 、 フ ォ ー ム に は 
「Resize」 と いう イベ ント が 発生 し ます 。 こ の イベ ント を うま く 使 用 する と 、 フ ォ ー 
ム の 表示 状態 に よっ て プロ グラ ム の 動作 を 変更 させ る こと が で きま す 。 

この プロ グラ ム で は 、 こ れ ら の テク ニッ ク を 使用 し て 、 時 刻 の 表示 を 切り 替え て 
いま す 。 

また 、 フ ォ ー ム の [WindowState] プロ パテ ィ を 、 デ ザイ ン 時 に 「1- 最 小 化 」 
に 設定 し て いま す 。 こ うし て お く と 、 プ ログ ラム が 起動 する と すぐ に タス ク バ ー に 
格納 され て プロ グラ ム が 実行 し ます 。 


で は 、 コ ー ド を 作成 し て いき まし ょ う 。 最初 に フォ ー ム の 宣言 セク ショ ン に 、 変 
数 を 宣言 し ます 。「Pos] は アイ コン の 表示 を 切り 替え る の に 使用 し ます 。 こ の 変数 
は 、 2 つの 値 し か 使用 し な いた め 、 論 理 型 (Boolean) で 宣言 し ます 。 ま た 、 複数 
の プロ シー ジャ で 使用 する た め 、 モ ジュ ー ル レベ ル の 変数 と し て 宣言 し ます 。 
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Dim Pos As Boo1ean 


次 に 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 、 変 数 「Pos]」 を 初期 化し ます 。 
論理 型 で 官 言 し て いる た め 、 使 用 で きる 値 は 「True」 と 「False| の 2 つ し か あり ま 
せん 。 こ こ で は 、「True」 に 初期 化し ます 。 

また 、 プ ログ ラム 起動 時 に タス ク バ ー に 格納 され た ら す ぐに 時 刻 の 表示 を 行う た 
め 、Time 関数 の 戻り 値 を フォ ー ム の [Captionm] プロ パテ ィ に 代入 し て お きま す 。 
これ で 、 フ ォ ー ム の キャ プシ ョ ン 部 分 に 時 刻 が 表示 され る よう に な り ま す 。 


Private Sub Form Load( ) 
Pos = True 
Form1 .Caption = Time 
End Sub 


最初 の タイ マー コン トロ ー ル の Timer イ ベン ト プ ロ シー ジャ で 、 時 刻 の 表示 処理 
を 行い ます 。 ま ず 、Time 関数 の 戻り 値 を 、 変 数 「NowTime」 に 格納 し て お きま す 。 
Time 関数 は 、 時 刻 を バリ アン ト 型 で 返し て きま す の で 、 受 け 取 る 変数 は 同じ 型 で 
宣言 し ます 。 


P ェ ivate Sub 〒ime ェ 1 Fimer() 
Dim NowTime As Varian 


NowTime = Time 


次 に 、T ス テー トメ ント で [WindowState] プロ パテ ィ の 値 を 調べ ます 。 フ ォ ー 
ム の 値 を 参照 する と 、 現 在 の フォ ー ム の 表示 状態 を 把握 する こと が で きま す 。 た と 
えば 、[WindowState] プロ パテ ィ に 定数 「vbMinimized」 が 格納 され て いれ ば 、 現 
在 フ ォ ー ム は 「 最 小 化 ] (タス ク バ ー に 格納 ) 状態 に な っ て いる こと に な り ま す 。 も 
し 、 標 準 の ウィ ンド ウ 表 示 状 態 で あれ ば 、 フ ォ ー ム の [Caption] プロ パテ ィ に は 、 
プロ グラ ム の 名 前 を 代入 し て 表示 し ます 。 


エ F Form1 .WindowS モ ate = vbNorma1 Then 
Form1 .Caption = "maskbar C1ook" 


標準 の ウィ ンド ウ 表 示 で な けれ ば (すなわち 最小 化 状態 で あれ ば )、 フ ォ ー ム の 
[Captionm] プロ パテ ィ に は 、Time 関数 の 戻り 値 で ある 現在 の 時 刻 を 代入 し ます 。 


下 1se 
Form1 .Cap モ ion = NowTime 
End TE 


ぅ 
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そし て 、 フ ォ ー ム の ラベ ルコ ント ロー ル に も 、 現 在 時 刻 を 表示 し て お きま す 。 


Labe11 .Cap モ ion = NowTime 


これ は 、 ユ ー ザ ー に よっ て プロ グラ ム が 標準 の ウィ ンド ウ 表 示 に な っ た と き に 、 
すぐ に 時 刻 を 表示 で きる よう に し て お く た め で す 。 


今度 は 、 も う 1 つ の タイ マー コン トロ ー ル 「Timer2| で 、 フ ォ ー ム の アイ コン を 
アニ メー ショ ン さ せる 処理 を 作成 し ます 。 こ の 仕組 み は い た っ て 簡単 で 、 フ ォ ー ム 
の [Icon] プロ パテ ィ に 、C ド ライ ブ に ある 「SMILEYJICO]」 と 「SMILEY2ICO」 
の 2 つの アイ コン ファ イル を 交互 に 表示 する こと で 、 ア ニメーション を 実現 し て い 
ます 。 

変数 「Pos] で どちら の アイ コン が 表示 され て いる の か を 判断 し 、 も う 一 方 の ア 
イコ ン に 入れ 替え る だ け で す 。 フ ォ ー ム の [Picture] プロ パテ ィ に アイ コン イメ ー 
ジ を 組み 込む に は 、LoadPicture 関数 を 使用 し ます 。 


Private Sub Timer2 呈 1mer( ) 
エ F Pos = "True Then 


Form1 .TCon = LoadPioEure ( "C: 壮 SMTLEY . エ CO" ) 
Pos = Fa1se 
EE1se 


Form1 .TCon = LoadP1o モ ure ( "C: 半 SMTLEY2 . TCO" ) 
Pos = True 
End エモ 
End Sub 


以上 で 、 プ ログ ラム は 完成 で す 。 


プロ グラ ム を 起動 する と 、 す ぐに タス ク バ ー に 格納 され て 、 時 刻 表 示 と アイ コン 
の アニ メー ショ ン が 行わ れ ま す 。 ま た 、 こ の プロ グラ ム を クリ ッ ク す る と 、 通 常 の 
フォ ー ム 表示 に な り 、 フ ォ ー ム の キャ プシ ョ ン が プロ グラ ム 名 に 変わ っ て 、 ラ ベル 
コン トロ ー ル に 時 刻 が 表示 され ます 。 フ ォ ー ム の アイ コン は 、 そ の まま アニ メー シ 
ョ ン を 継続 し ます 。 

また 、 時 刻 表 示 と アイ コン の アニ メー ショ ン は 、 別 々 の タイ マー コン トロ ー ル を 
使用 し て いま すか ら 、 そ れ ぞ れ の 動作 時 間 を 変え て 使用 する こと も で きま す 。 
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この プロ グラ ム で は 、 フ ォ ー ム の [WindowState] プロ パテ ィ を 使っ て フォ ー ム 
の 表示 状態 を 把握 し て 、 プ ログ ラム の 動作 を 切り 替え る テク ニッ ク を 使用 し まし た 。 

また 、 フ ォ ー ム の [BorderStyle] プロ パテ ィ を 「1 一 固 定 (実線 )] に 切り 替え る 
と 、 ユ ー ザ ー は フォ ー ム の サイ ズ を 変更 で き を なく な り ま す の で 、 固 定 表 示 の フォ ー ム 
に する こと が で きま す 。[MaxButton] プロ パテ ィ を 「False] に すれ ば 、 フ ォ ー ム 
の 最大 化 表示 も で き な く な り ま す 。 プ ロ パ ティ の 目的 に 合わ せ て 、 フ ォ ー ム の 表示 操 
作 を 設定 する これ ら の プロ パテ ィ を うま く 組 み 合 わせ て 使用 し て くだ さい 。 

また 、 複 数 の タイ マー コン トロ ー ル を 使用 し 、[Interval] プロ パテ ィ の 値 を 変え る 
と 、 そ れ ぞ れ 違 っ た 動作 の アニ メー ショ ン を 作成 で きま す 。 


上 作成 し た この プロ グラ ム に 、 マ ウス の 右 ボ タン で クリ ッ ク す る と ポッ 
プア ッ プ する メニ ュー を 組み 込み 、 ラ ベル コン トロ ー ル の フォ ント と 色 
を 変更 で きる よう に し て くだ さい 。 


【 ヒ ント 】 
コモ ンダ イア ログ コン トロ ー ル の [フォ ント ] と 【[ 色 ] ダイ アロ グ ボ 
ックス を 使い まし ょ う 。 


解答 は 巻末 に 一 





フォ ー ム の 表示 形態 が 変更 され る と 、 フ ォ ー ム に は 「Resize] イベ ント が 発生 し ま 
す 。 

表示 形態 の 変更 に 伴う 処理 を 行い た い 場合 は 、 こ の イベ ント プロ シー ジャ を 活用 し て 
くだ さい 。 








ビ ヨ ウロ ー (Lesson15ーLesson1 7) 


マル チ ド キ ュ メ ント 
ビュ ー ワ の 作成 











Visual Basic に は 、 1 つの フォ ー ム の 中 に 複数 の フォ ー ム を 表示 する アプ リ ケ ー 
ショ ン を 作成 で きま す 。 こ の 機能 を 、「MDI」 (Multi Document Interface) と 
言い ます 。 プ ログ ラム に MDI 機能 を 組み 込む と 、1 つの プロ グラ ム で いく つも の 
文書 や グラ フィ ッ ク イ メー ジ な ど を 表示 ・ 編 集 す る こと が で きま す 。 ま た 、 あ ら か 
じ め 複 数 の フォ ー ム を 用 意 し な く て も 、 プ ログ ラム 実行 中 に 、 好 き な 数 だ け フ ォ ー 
ム を 作成 する こと が で きま す 。 

今日 の レッ スン で は 、 最 初 に MDI 機能 の 使い 方 を 覚え 、 以 降 の レッ スン で は この 
MDI 機能 と リッ チ テ キス ト ボ ックス コン トロ ー ル や イメ ー ジ コン トロール を 使っ 
て 、 い くつ も の 文書 ファ イル や イメ ー ジ ファ イル を 表示 する こと が で きる 、「 マ ル 
チ ド キ ュ メ ント ビュ ー ワ 」 と いう プロ グラ ム を 作成 し ます 。 

今日 の レッ スン で 解説 する 項目 

[MDI フォ オー ム モ ジュ ー ル の 組み 込み 

ロロ フォ ー ム の 「【[MDIChild] プロ パテ ィ と イン スタ ンス の 作成 

ロ Dim.….New ステ ー ト メン ト の 使用 方 法 

ロロ メニ ュー コン トロ ー ル の 「 ウ ィ ン ド ウリ スト 」 プロパ ティ の 機能 

MDI 機能 の 特徴 

イン スタ ンス の 元 フ ォ ー ム の 性 質 の 継承 

ツールバー コン トロ ー ル に よる 子 フ ォ ー ム の 生成 

ロロ スタートアップ モジ ュー ル の 指定 

日 種類 の 違う 子 フ ォ ー ム の 作成 

コモ ンダ イア ログ ボッ クス の 実行 時 の プロ パテ ィ 設 

品 [Function] プロ パテ ィ の 使用 方 法 

MDI フォ オー ム の [Arrange] プロ パテ ィ の 使用 方 法 

フォーム と コン トロ ー ル の サイ ズ を 連動 させ る 処理 
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@) VBec02 
= ョ ペコ Lesson15 
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MDI プロ グラ ム の 作成 


MDI 機能 を 持つ た プロ グラ ム を 作成 し な が ら 、MDI 機 能 の 実装 方 法 
や プロ グラ ム 実 行 時 の 「 子 フォ ー ム 」 の 生成 方 法 な ど を 身 に 付け て い 
きま す 。 


今回 作成 する プロ グラ ム 










[追加 を クリ ッ ク 
する と .… 


新しい フォ ー ム が 
追加 され る 


イル ウィ ンド ウ 
1 Add Form1 
3 Am 


[ウィ イン ドウ ] メ 三 
で プ 邊 一 ム 省 
| | を クリ ッ ク す る と .… 


その 名 前 の フォ ー 
HH ム が 前 面 に 表示 さ 
| | れる 





これ は Form1 で す 。 


親 フ ォ ー ム に 「MDI フォ ー ム 」 を 使用 し 、 こ れ に 配置 し た ツー ル 
パー コシ ドロ ー ル と メニ ュー コジ シ トロール を 使っ で 。 ゴ ロダ ラム 内 
に 次 々 と フォ ー ム を 生成 し て いき ます 。 


Lesson 15 MDI プロ グラ ム の 作成 


に ン / 科 BS 2 に シン 全 ・U 人 村 と も ン 時 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


ツー ル パ レ ッ ト に 0 細 B NOV Common 











ツー ル パ レ ッ ト に コモ 
ンコ ント ロー ル か が 追加 
され る 





[標準 ] ツー ル バ ー の ボタ ン を 使っ て 、 プ ロジ ェクト 
に 「MDI フォ ー ム モジ ュー ル 」 を 追加 する 





| 7( ル MD 編 ⑰ 表示 mh 書式 Q) テッ が 守 生 ⑳ 29-QD ダ 人 77540 2- が CD アド 


ここ を クリ ッ ク 


・ ロ 
ロム セー ん の 


で < 公 っ ー ル 0M 
の 252 も トー も の) 
| | 軒 ュ -9ー ャ Ho- れ 0D 
皮 ce 250 ペー 


呈 な 多 リ ツク 


男 』 ”DHmL Pee 


ここ を クリ ッ ク 


| 「 MC の ym の を 表 寺 し ctnvGD 


フォ ー ム 「Form1」 を クリ ッ ク し 、 
ロ パ ティ を 「True」 に 設定 する 


[MDIChild] プ 


ここ を クリ ッ ク 
ここ を クリ ッ ク 
ここ を クリ ッ ク 


LinkTapic Farm1 
MaxButtol True 


回 0@ 員 E 





第 5 日 








コン ポー ネン ト を 
ヽ 追加 する 
コン ポー ネン ト を 追加 す 
の 54) り に 5 つの 3VY で ば 5 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ きい 。 


を MDI フォ ー ム 
[MDI フ ォ ー ム モジ ュー 
ル ] を クリ ッ ク し 、 表 示 
され る [MDI フ ォ ー ム モ 
ジュ ー ル の 追加 ] ダイ ア 
ログ ボッ クス で [MID フ 
ォ ー ム モジ ュー ル ] が 選 
択 さ れ て いる こと を 確認 

て [開く ] を クリ ッ ク 
する と 、「MDIForml」 フ 
ォ ー ム ウィ ンド ウ が 追加 
さき され ます 。 
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23 コジ gi 
デル の 追加 
ラベ ルコ ント ロー ル を 追 
加 す る に は 、 ツ ー ル パレ 
ッ ト の [Label] | を 使 
いま す 。 3 





92 一 一 ーーー 





ラベ ルコ ント ロー ル を 配置 し 、[Caption] プロ パテ 
ィ を 「 こ れ は Form 1 で す 。」 に 変更 する 


"これ は Form1 で す 。 " 配置 し て [Caption] 
ロ 。 s プロ パティ を 変更 し た 





ラペ ルコ ント ロー ル 








[プロ ジェ クト ] メニ ュー の Project の プロ パテ 
ィ ] を 選択 する 


ここ を クリ ッ ク 










ご と こ を グリ ツク 


[全般 ] タブ で 、[ ス ター ト ア ッ プ の 設定 ] を 
[MDIForm1] に 変更 し 、[OK] を クリ ッ ク す る 


5 グリ の の 
ここ を クリ ッ ク 


全般 | 実行 可能 2zfk の 作成 | ヤマ ポ ー ネ や ト | パグ | 


フト の 種類 スタ ー げ の の 設定 Gr 
IEEE EXE 選 


フ 225 外 名 ⑱- 
AM2* フ z8 名 GH: 
フ m シ 32 ト の 説明 (Py 

札 5 5 ェ メル 2 ド 7 ル D 

レ ActweX ヤ Hn-M の アカ ダレ ド ⑩D ーーーーーー ー 


F 
記 576 


ここ を クリ ッ ク 


LessSon 15 MDI プロ グラ ム の 作成 


サイ ズ 変 更 ハ ンド ル を ドラ ッ グ し て 、「MDIForm1」 
の サイ ズ を 広げ る 








ツー ル バ パレ ッ ト の [Toolbar] ' 当 を 使っ て 、 ツ ー ル 
バー コン トロ ー ル を 「MDIForm1」 に 配置 する 





[プロ パテ ィ ペ ー ジ ] の [ボタ ン ] タブ で [ボタ ン の 
月] を クリ ッ ク し 、 ポ タン を 2 つ 挿入 する 


イン デック ス 


キャ プシ ョ ン 












ここ を クリ ッ ク 






値 fp- eecsscd 引 
宮 






] 
| ココ 覧 orzt2 の の Fm | 
| ケル ウト 
補 ひ 
2 0 た キャ プシ ョ ン を 
ミル ーー 
5: が ヨ 


人 の ーー ルル] 4 の の AO 1 
本 に ニ て 0278 に ニー 
2 な 732 委 








1 
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[プロ パテ ィ ペ ー 
ぐ : タイ アロ グ 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 プ ロ パ ティ ウィ 
ンド ウ の 【[( プ ロ パ ティ ベ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [.…] ボタ ン を クリ ッ 
グ じ ます 。 


て 
ペン 方 法 

ポタ ン を 追加 する 方 法 の 
詳し い 説明 に つい て は 、 
「Lesson5 ツー ル バ ー コ 
ント ロー ル の 組み 込み ] 
を 参照 し て くだ さい 。 


し た 】 








』《) 「MDIForm1」 を 選択 し て メニ ュー エディ タ を 起 
動 し 、 次 の メニ ュー を 設定 する 




















キャ プシ ョ ン 
ファ イル IDM_FILE 
…Form 1 IDM_OPEN 
… フ ォ ー ム の 追加 IDM_ADD 
IDM_SEPARATOR 
IDM_EXIT 
IDM_WINDOW 
2 ウド F ウ 。。 0。〈 〇 〈]  、 、6 ぞ ぞ OK | 
前 ⑳⑩: [pMwNpow_ _ 〇 C 6 11、j キッ セル 
や 2 | sw-MIS [GO 有紀 


AM7" コ テト 番号 和 氏 - ト 位置 On- な し 選 
「 な め ⑥) レ 有効 ⑥) レ 表示 ⑫⑰ 「 2 トウ 到 六 
. 疾 ま ま まま 渉 ー 和 AO | Ws | 









ー… 続 了 


上 「 ウ ィ ン ド ウ 」 を 選択 し 、[ ウ ィ ン ド ウリ スト ] ボ 
ックス を チェック する 

EDP2。。ー ツ 010 フ lowovwvw nw 

| NN2542 上 ウィンドウ 

| 名 前 IDM WINDOW 

作 2z69 | rHKS [GO 選 


AM エ テ キ スト 番号 (は 生 江 - ト 位置 6)  - な し ゃ 
「 な の ⑥) ドレ 有効 ⑥ 












hl ウィ シド ウ 」 
を 選択 
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(Generab) ェ | |(Declarations) ェ 





Dim 1 As Tntege エ 


ョ MDIForm1:MDIForm-Load 














ETDDOEGOOOEIII 志 | 下記 
[MDiForm | [reaa | | 

Private Sub MDTForm Load( ) 

| 還 寺 定 に 

」 End Sub 








MDIForm1:Toolbar1-ButtonClick 。 


Sil に 記 志 りり il 還 過 が ] 


| reolpar1 回 | [BetonClick | ] 
トーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 - 


| Private Sub Too1ba エ 1 Bu モ tonC1iok (ByVa1 Button AS 
| MSComct1 エ 1b . Bu モモ on ) 
| Se1eot Case But て on . Tndexr 
Case 1 
| Form1 .Show 








| Case 2 


Ca11 AqQqafForm 
| End Se1eo 
End Sub 


旨 MDIForm1:(General)-AddForm 





| (General) ェ [AdqForm | | 


| Private Sub AdqqForm( ) 
Dim AqQdForm As New Form1 





With AdqqForm 
・Show 
-Cap モ ion = "AdQd Form" を ュ 
End With 
| 
End Sub 
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MDIForm1:IDM_OPEN-Click 











| 末 Lesson15 - MDIForm1 ロー ド ) 


[5w_opEN <| [Ciick =| 
KK 上 IOI5O55O5O5O5OOKOKOKOXOKOKOXO{XK 


Private Sub TDM OPEN _C1ick( ) 
Form1 .Show 


End Sub 














ョ MDIForm1:IDM_ADD-Click 。 


esson15 - MDIForm1 ロー ド ) 


| Ipw_App <| [Cick | | 
間 ee 
」 Private Sub TDM ADD C1iock( ) 


Ca11 AdqqrForm 
End Sub 





= MDIForm1:IDM_EXITClick ーー 


| 同 5 - MDIForm1 ロー トド ) 






Pr ュ ivate Sub TDM EXTm C1iock( ) 


Un1oad Me 


令 。。 こ の プロ グラ ム は 、 次 の よう に 動作 し ます 。 


1 


ッ ク す る と 、 標 準 フ ォ ー ム 「Form1] が 表示 され ます 。 






作成 され る 





ここ を クリ ッ ク す る と .… 


新しい 標準 フォ ー ム が 


















) ツ ー ル バー の [Form1] ボタ ン ま た は [ファ イル ] メニ ュー の [Form1] を クリ 
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② ツ ー ル バー の [追加 ] ボタ ン 、 ま た は [ファイル] メニ ュー の [追加] を クリ ッ 
ク す る と 、 新 し い フ ォ ー ム が 追加 きれ ます 。 こ の フォ ー ム の 追加 は 、 コ ン ピ ュ ー 
タ の メモ リ が 許す 限り 、 い くつ で も 行え ます 。 


ここ を クリ ッ ク す る と .… 


新しい フォ ー ム が 追加 
され る 





(3③ [ウィ ンド ウ ] メニ ュー を クリ ッ ク す る と 、 表 示し て いる フォ ー ム の 名 前 が リス 
ト 表 示さ きれ ま す 。 


リス ト 表 示さ れ た 
フォ ー ム の 名 前 





プロ グラ ム デ ザイ ン 時 は 、 フ ォ ー ム は 1 つ し か 配置 し て いま せん が 、 ツ ー ル バー 
の [追加 |] ボタ ン を クリ ッ ク す れ ば 、 い くつ で も フォ ー ム が 表示 で きま す 。 

この よう に 、 1 つの フォ ー ム を 作っ て お くだ け で 、 同 じ 属 性 を 持つ いく つも の フ 
ォ ー ム を 表示 で きる の が 、MDI プ ログ ラム の 特徴 で す 。 プ ログ ラム 実行 時 に 、 ユ ー 
ザー が 必要 に 応じ て 好き な だ け フ ォ ー ム を 作成 し て 使う こと が で きる の も 、MDI プ 
ログ ラム の 大 き な 特 徴 で す 。 


MDI プ ログ ラム を 作成 する 場合 は 、 プ ログ ラム の ベー ス に 通常 の フォ ー ム で は な 
く 「MDI フ ォ ー ム | と いう 専用 の フォ ー ム を 使用 し ます 。 こ の フォ ー ム は 、 Visual 
Basic の ツー ル バ ー ま た は [プロジ ェクト] メニ ュー に ある [MDI フォ ー ム モジ ュ 
ー ル の 追加 ] を クリ ッ ク す る と 、 プ ロジ ェクト ファ イル に 挿入 で きま す 。 た だ し 、 
MDI フ ォ ー ム は 、1 つ の プロ ジェ クト (プロ グラ ム ) に 1 つ し か 挿入 で きま せん 。 
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Irrprokzorcuwzoorogoan 

ウ -F 可 ウロ mml-  ・」・Sg 
ーー 

5 

衝 5 メ 25ーKG 

還 暫 ュ サー ャ hn-kO 


回 27027 ペー が (BD 
本 の に け ラ R7 






[MDI フォ ー ム モジ ュー ル 
の 追加 メニ ュー 


そし て 、 こ の MDI フ ォ ー ム の 中 に 、 い くつ も フォ ー ム を 作成 し て 表示 し ます 。 通 
常 、MDI フ ォ ー ム を 「 親 フォ ー ム 」、MDI フ ォ ー ム 内 に 表示 きれ る フォ ー ム を 「 子 
フォ ー ム 」| と 呼び ます 。 














親 フ ォ ー ム 内 に 子 フ ォ ー ム 
が 表示 され る 











親 フ ォ ー ム 内 に 表示 され た 子 フ ォ ー ム は 、 親 フォ ー ム 内 で あれ ば 、 最 大 化 表 示 や 
最小 化 表示 が 可能 に な り ま す 。 最小 化 は 、 親 フォ ー ム 内 に アイ コン 表示 され ます 。 





う 
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この MDI フ ォ ー ム が プロ グラ ム の ベー ス に な り ま す の で 、 プ ログ ラム 起動 時 に 
MDI フ ォ ー ム が 表示 され る よう に 、 ス ター ト ア ッ プ の 設定 を 変更 し て お く 必 要 が あ 
り ま す 。 そ うし な いと 、 標 人 準 の フォ ー ム (Form1) が 表示 され て し まい 、MDI 機 能 
が 使え を なくなっ て し まい ます 。 

スタ ー ト アッ プ の 設定 は 、Visual Basic の [プロジェクト] メニ ュー の [Projectl 
の プロ パテ ィ ] を 選択 する と 表示 され る [プロ ジェ クト プロ パテ ィ ] ウィ ンド ウ で 
行い ます 。[ ス ター ト ア ッ プ の 設定 ] リス ト ボ ックス に ある 「MDIForm1」 を 選べ 
ば 、 こ の フォ ー ム を プロ グラ ム 起 動 時 の フォ ー ム に 指定 で きま す 。 







「MDIForm1」 を 選択 


プロ グラ ム 実 行 時 に 子 フ ォ ー ム を 生成 する 仕組 み は 、2 つ あり ます 。 

1 つ は 、 フ ォ ー ム の [MDIChild] プロ パテ ィ に あり ます 。 ま ず 、 子 フォ ー ム の 元 
に な る 標準 フォ ー ム を 1 つ 用 意 し ます 。 そ し て 、 フ ォ ー ム の [MDIChild] プロ パテ 
ィ を 「True」 に 設定 し ます 。 こ れ で 、 こ の フォ ー ム は 、MDI フ ォ ー ム の 子 フ ォ ー ム 
と し て 機能 する よう に な り ま す 。 

も う 1 つの 仕組 み は 、 コ ー ド に あり ます 。 こ の フォ ー ム を 元 に コー ド で 「New」 
キー ワー ド を 使っ て 、 元 の フォ ー ム の 複製 (これ を 「 イ ンス タン ス 」| と 呼び ます ) 
を 作成 し ます 。 

これ で 、 複 数 の 子 フ ォ ー ム を 作成 で きる よう に な り ま す 。 で すか ら 、 必 ず イ ンス 
タン ス の 元 に な る フォ ー ム が 、 プ ロジ ェクト に 挿入 され て いな けれ ば な り ま せん 。 

次 の コー ド は 、 標 準 フ ォ ー ム 「Form1| を 元 に 、「AddForm] と いう 名 前 の 子 フ 
ォ ー ム (イン スタ ンス ) を 生成 し ます 。 


Dim AdQForm AS Nevw Form1 
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1 


Dim 必ず 、Dim ステ ー ト メン ト で 宣言 し ます 。 

AddForm 生成 され る イン スタ ンス の オブ ジェ クト 名 を 指定 し ます 。 
任意 の オブ ジェ クト 名 を 付け られ ます 。 

New 「New]」 キー ワー ド で す 。Dim ステ ー ト メン ト の 中 で 使用 す 
る と 、 新 し い オ ブ ジ ェクト を 作成 し ます 。 

Form 1 作成 する オブ ジェ クト の 元 を 指定 し ます 。 こ の 場合 は 、 標 準 
フォ ー ム 「Form1」 の クロ ー ン が 作成 され ます 。 














人生 作成 され た 子 フォ ー ム は 、 特 に 手 を 加え な けれ ば 、 元 に な っ た フォ ー ム の 人 性質 を 
その まま 受け 継ぎ ます 。 た と えば 、 こ の プロ グラ ム で は 、「Form1l1」 に 配置 し た ラベ 
ルコ ント ロー ル の 文字 「 こ れ は Form1 で す 。|」 が 、 生 成 き され た 子 フ ォ ー ム に も 同じ 
よう に 表示 され て いま す 。 


同じ メッ セー ジ が 
表示 され る 








試し に 、「Forml| の [BackColor] プロ パテ ィ を 変え て 、 再 度 子 フォ ー ム を 生成 
し て み ま し ょ う 。「Form1」 と 同じ 色 の 子 フ ォ ー ム が 作成 され ます 。 


同じ 色 の 子 フ ォ ー ム が 
作成 され る 











Lesson 15 MDI プロ グラ ム の 作成 


0⑩⑳ で は 、 プ ログ ラム の コー ド を 作成 し て いき まし ょ う 。 注 意 し て 欲し い の は 、MDI 
フォ ー ム の コー ド は 、MDI フ ォ ー ム の コー ドウ ィ ン ド ウ に 作成 する 、 と いう こと で 
す 。 こ れ ま で は 、 標 準 フ ォ ー ム に コー ド を 作成 し て きま し た が 、MDI フ ォ ー ム の 操 
作 は 、MDI フ ォ ー ム の コー ドウ ィ ン ド ウ に 作成 し ます 。 
まず 、MDI フ ォ ー ム を ダブ ルク リッ ク し て 、 コ ー ド ウィ ンド ウ を 開い て くだ さい 。 
現在 、 ど の モジ ュー ル の コー ド を 作成 し て いる の か は 、 コ ー ド ウィ ンド ウ の キャ プ 
ショ ン を 見 れ ば わか り ま す 。 


Te こと に 
TO 語 還 Eiasmmsms POPerer rr | 






「MDIForm1」 の コー ド 
ウィ ンド ウ で ある こと を 、 
オブ ジェ クト リス ト ボ ッ 
クス で 確認 で きる 


コー ドウ ィ ン ド ウ は 、 モ ジュ ー ル ご と に 用 意 さ れ て いま す 。 処理 を 実行 し た い モ ジュ 
ー ル ご と に 、 そ れ ぞ れ の コー ドウ ィ ン ド ウ に 処理 を 記述 し て いき ます 。 ま た 、 プ ロ パ テ 
ィ ウ ィ ン ド ウ も 、 モ ジュ ー ル ご と (フォ ー ム ご と ) に 、 配置 し た コン トロ ー ル の プロ パ 
ティ が 設定 で きる よう に な っ て いま す 。 プ ロジ ェクト に 複数 の フォ ー ム モジ ュー ル を 配 
置 し た 場合 は 、 ど の モジ ュー ル の コン トロ ー ル な の か を きち ん と 確認 し て か ら 、 プ ロ パ 
ティ の 操作 を 行っ て くだ さい 。 


が コー ドウ ィ ン ド ウ が 表示 きれ た ら 、 ま ず は じ め に 宣言 セク ショ ン に 変数 [i| を 宣 
言 し ます 。 


Dim 1 As Tnteger 
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この 変数 は 、 子 フォ ー ム を 作成 し た と き に 、 何 番目 の 子 フ ォ ー ム な の か が わか る 
よう に 、 子 フォ オーム の キャ プシ ョ ン に 番号 を 付け る た め に 使用 し ます 。 宜 言 し た ら 、 
MDI フ ォ ー ム の Load イ ベン ト プ ロ シー ジャ で 、 変 数 「i| を 初期 化し ます 。 く れ ぐ 
れ も 、 対 象 の フォ ー ム を 間違え な いで くだ さい 。 こ の プロ グラ ム で は 、 プ ログ ラム 
起動 時 は MDI フォー ム が 表示 され て いる よう に な っ て いま す 。 で すか ら 、 プ ログ ラ 
ム 起 動 時 の いろ いろ な 初期 化 処 理 は 、 こ の MDIForm の Load イベ ント プロ シー ジャ 
に 作成 する 必要 が あり ます 。 


P ェ ivate Sub MDTForm road( ) 
3 呈 
End Sub 


今度 は 、 ツ ー ル バー コン トロ ー ル の ボタ ン の 処理 を 作成 し ます 。 す で に 説明 し た 
よう に 、 ツ ー ル バー コン トロ ー ル の いずれ か の ボタ ン が クリ ッ ク さ れる と 、 こ の ボ 
タン の 「ButtonClickl イベ ント プロ シー ジャ が 呼び 出さ きれ ます 。 そ し て 、 ク リッ ク 
きれ た ボタ ン の 種類 は 、Button オプ ジェ クト の [Index] また は [Key] プロ パテ 
ィ を 参照 する こと で わか る よう に な っ て いま す 。 

MDI フ ォ ー ム を デザ イン し た と き は 、 ツ ー ル バー コン トロ ー ル の 各 ボ タン に は イ 
ン デ ックス 番号 だ けし か 付け て いま せん の で 、[Index] プロ パテ ィ の 値 を 調べ る こ 
と で 、 ク リッ ク さ れ た ボタ ン を 判別 し ます 。 

クリ ッ ク さ れ た ボタ ン の 種類 は 、Select Case ステ ー ト メン ト で 判断 し 、「Form1」 
ボタ ン が クリ ッ ク さ れれ ば 、「Show]」 メソ ッ ド で 「Form1l」 フォ ー ム を 表示 し ます 。 
[追加 | ボタン が クリ ッ ク さ れれ ば 、 次 に 作成 する Form1 の イン スタ ンス ( 子 フ ォ 
ー ム ) を 生成 する 、 ユ ー ザ ー 定 義 の プロ シー ジャ [AddqForm| を 呼び 出し ます 。 


Private Sub moo1ba ェ 1 ButtonC1iok (ByVa1 Button As 
MSComo1T,ib . Bu モモ On ) 
Se1eot Case Bu て on . Tndext 
Case 1 
Form1 .Show 
Case 2 
Ca11 AdqqrForm 
End Se1eo 
End Sub 


子 フ ォ ー ム を 作成 する 処理 は 、 ユ ー ザ ー 定 義 の プロ シー ジャ 「AddForm」 に 記述 
し ます 。 わ ざわ ざ ユ ー ザ ー 定 義 の プロ シー ジャ に し た の は 、 こ の 処理 は 、 あ と で メ 
ニュ ー コ ント ロー ル の 「 追 加 ] メニ ュー で も 使用 で きる よう に する た めで す 。 

この プロ シー ジャ で は 、 最 初 に Dim..New ステ ー ト メン ト で 、[「Form1」 の イン ス 
タン ス を 「AddForm] と いう 名 前 で 生成 し ます 。 そ し て 、 生 成 し た 「AddForm」 
を 「Show」 メソ ッ ド で 表示 し ます 。 


10 


Lesson 15 MDI プロ グラ ム の 作 


P ェ ュ v マ ate Sub AdqQqForm( ) 
Dim AdqqdForm AS New Form1 


With AdqdrForm 
・Show 


新しい オプ ジェ クト 「AdqForm| は 、 標 人 準 フ ォ ー ム [Formll の クロ ー ン で すか 
ら 、「Form1l| の 持っ て いる すべ て の プロ パテ ィ と メソ ッ ド 、 イ ベン ト と まっ た く 同 
じ 物 を 使用 で きま す 。 そ こ で 、 こ こ で は [Caption] プロ パテ ィ に 、「Add Form] 
と いう 文字 列 と 変数 「i を 連結 し て 設定 し ます 。 


・Caption = "AdQd Form" を エ 
End With 
二 生 まま ー キ - 生 


この イン スタ ンス の 生成 は 、 ツ ー ル バー コン トロ ー ル の [追加] ボタン が クリ ッ 
ク さ れる た びに 、1 回 ずつ 行わ れ ま す 。 ボ タン を 2 回 クリ ッ ク す れ ば 、 イ ンス タン ス 
は 2 つ 作 成 さ れ ま す 。「i = i+ 1| と いう 式 を 組み 込ん で いる た め に 、 イ ンス タン ス 
が 作成 され る ご と に 、 変 数 [il の 値 は 1 つ ず つ 増 加 き され て 、 子 フォ ー ム の キャ プシ 
ョ ン に は 、「Add Form1] と いう よう に 、 今 作成 きれ た イン スタ ンス が 何 番 目 に 作 
成 さ れ た の か が 表示 きれ ます 。 


最後 に 、 メ ニュ ー コ ント ロー ル の 処理 を 作成 し ます 。 

[Form1l|] メニ ュー の Click イ ベン ト プ ロ シー ジャ で は 、 そ の まま Show メソッド 
で 「Form1」 を 表示 し ます 。 [追加 ] メニ ュー の Click イ ベン ト プ ロ シー ジャ で は 、 
子 フ ォ ー ム を 作成 する ユー ザー 定義 の プロ シー ジャ 「AddForm」 を 呼び 出し ます 。 

最後 の 「 終 了 ] メニ ュー の Click イ ベン ト プ ロ シー ジャ は 、 す っ か りお な じみ に 
な っ た 、 プ ログ ラム の 終了 処理 で す 。 Unload ステ ー ト メン ト の オプ ジェ クト 指定 に 、 
「Me」 キー ワー ド を 使用 し て いま す 。 


P ェ ュ で ate Sub TDM OPEN _C1iok( ) 
Form1 .Show 
End Sub 


P ェ ュ で ate Sub TDM ADD C1ick( ) 
Ca11 AdqddForm 
End Sub 


P ェ ュ で a モ te Sub TDM 下 X エ mm〒 C1iok( ) 
Un1oad Me 
End 

End Sub 
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上 メニ ュー コン トロ ー ル の [ウィンドウ] メニ ュー は 、 特 に 何 の 処理 も 組み 込ん で 
いま せん 。 し か し 、 メ ニュ ー エ ディ タ で この メニ ュー だ け [ウィ ンド ウリ スト ] に 
チェ ッ ク を 付け て いま す 。 こ の オプ ショ ン が チェ ッ ク さ れ て いる と 、 開 いて いる 子 
フォ ー ム の [Caption] プロ パテ ィ の 値 が 、 ウ ィ ン ド ウ 名 と し て メニ ュー に 自動 的 に 
組み 込ま れ ま す 。 そ し て 、 こ の ウィ ンド ウ 名 を クリ ッ ク す る と 、 そ の フォ ー ム が ア 
クティ ブ に (最前 面 に ) な り ま す 。 








子 フ ォ ー ム の キャ プシ ョ ン に 
作成 順に 番号 が 付け られ る 








ウィ ンド ウ 名 が リス ト 表 示 
され 、 ク リッ ク し た ウィ ン 
ドウ が 最前 面 に な る 


イン スタ ンズ に つい て 


「 イ ンス タン ス (instance)」 と いう の は 直訳 する と 「 例 」、「 場 合 ]、「 事 実 ] な ど と いう 意味 で 
す が 、 わ か り に くけ れ ば 「 コ ピー」 と いう 風 に 考え て も いい で し ょ う 。 つ まり 、 プ ログ ラム の 
実行 時 に 生成 され る オプ ジェ クト 実体 の こと を 指し ます 。 

この レッ スン の 場合 、 イ ンス タン ス が 生成 され る と 全く 同じ 属性 を 持つ オプ ジェ クト (フォ 
ー ム ) の コピ ー が で き あ が り ま す 。 こ の コピ ー は 元 の フォ ー ム と 全く 同じ コン トロ ー ル と コー 
ド を 共有 し て いま す 。 複数 の ウィ ンド ウ を 持つ アプ リケーション を 作成 する と き は 、 こ の よう 
な MDI 機能 を うま く プ ログ ラム に 組み 込む こと で 、 メ モリ を 節約 する こと が で きま す 。 逆 に ウ 
ィ ン ド ウ ご と に フォ ー ム モジ ュー ル を 用 意 す る よう な プロ グラ ム で は 、 メ モリ を どん どん 消費 
し て いっ て し まい 、 メ モリ 不足 を 引き 起こ すこ と が あり ます 。 注意 し まし ょ う 。 
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MDI 機 能 を 使用 する に は 、 必 ず MDI フォ オー ム モ ジュ ー ル を プロ ジェ クト に 組み 込み 、 
この モジ ュー ル を プロ グラ ム の スタ ー ト アッ プ モ ジュ ー ル に 指定 し て くだ さい 、。 標準 
フォ ー ム を MDI フォ ー ム の 子 フ ォ ー ム に する 場合 は 、 そ の フォ ー ム の 「MDIChild」 
プロ パテ ィ を 「True」 に 設定 し ます 。 こ の プロ パテ ィ を 設定 し な いと 、MDI フォ ー ム 
内 に フォ ー ム が 表示 され ませ ん 。 

また 、 複 数 の 子 フ ォ ー ム を プロ グラ ム 実 行 時 に 作成 する 場合 は 、 子 フォ ー ム に し た 
フォ ー ム を 元 に 、「New]」 キー ワー ド を 持っ た Dim ステ ー ト メン ト を 使用 し て 、 フ ォ 
ー ム の イン スタ ンス を 生成 し ます 。 生 成 さ れ た イン スタ ンス は 、 原 則 と し て イン スタ 
ンス の も と に な っ た フォ ー ム の 、 す べ て の プロ パテ ィ と メソ ッ ド 、 イ ベン ト を 受け 継 
ぎ ま す 。 


上 イン スタ ンス の 元 に な る フォ ー ム に コマ ンド ボタ ン を 配置 し 、 メ ッ セ 
ー ジ ボッ クス を 表示 する よう に し て くだ さい 。 
メッ セー ジ ボ ッ クス の メッ セー ジ は 、 コ マン ド ボ タ ン が 組み 込ま れ て 
いる 子 フ ォ ー ム の Caption プロ パテ ィ の 値 を 表示 し て くだ さい 。 た と え 


ば 、 次 の 画面 の よう に 、「Add Form3」 に 組み 込ま れ て いる コマ ンド ボ 
タン が 押さ れれ ば 、「 こ の フォ ー ム は Add Form3]」 と いう メッ セー ジ を 
表示 する よう に し ます 。 

また 、 フ ォ ー ム に 配置 し た ラベ ルコ ント ロー ル の 文字 も 、「 こ の フォ ー 
ム は Add Form3」 と いう よう に 、 フ ォ ー ム の 名 前 が 付い た 文字 に な る 
よう に 修正 し て くだ さい 。 


【 ヒ ント 】 
Me キー ワー ド を 使い ます 。 


ラベ ルコ ント ロー ル も 
メッ セー ジ ボ ッ クス も 、 
その フォ ー ム の 名 前 が 
付い て いる 


解答 は 巻末 に 一 
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ユー ザー イン ター フェ イス の 作成 


今度 は 、 こ の MDI 機能 を 使用 し た アプ リケーション を 作成 し まし ょ 
う 。 リ ッ チ テキ スト コン トロ ー ル と イメ ー ジ コン トロール を 組み 合わ 
せ て 、 テ キス ト フ ァイル (また は HTF ファ イル )、 お よび ビッ トマ ッ 
プ や JPEG イメ ー ジ ファ イル を いく つ で も 表示 で きる 、「 マ ル チ ド キ 


ュ メ ント ビュ ー ワ 」 で す 。 最初 は 、 ユ ー ザ ー イ ンタ ー フ ェ イ ス の 作成 
Go 











今回 作成 する プロ グラ ム 





JPG、 BMP、 GIF 形式 0 グラフィック ファ イル を 開き ます 






マル チ ド キ ュ メ ント ビュ ー ワ 
の ユー ザー イン ター フェ イス 
を 作成 する 


Lesson16.vhp 


VB6CD2 


ココ Lesson16 


どら つの 標準 フォ ー ム を 使い 、1 つの フォ ー ム に は リッ チ テ キス ト 
ボッ クス コン トロ ー ル を 、 も う 1 つの フォ ー ム に は イメ ー ジ コン ト 
ロー ル を 配置 する こと で 、 テ キス ト フ ァイル (また は RTF ファ イル ) 
と イメ ー ジ ファ イル を 、 そ れ ぞ れ の 子 フ ォ ー ム に 表示 し ます 。 こ の 
レッ スン で は 、 ユ ー ザ ー イ ンタ ター フェイス の 作成 を 行い ます 。 
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介 コン トロ ー ル と プロ バ パティ の 設定 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


上 ツー ル パ レ ッ ト に 、 次 の コン ポー ネン ト を 追加 する 


人 Microsoft Common Dialog Control 6.0 
念 Microsoft Windows Common Controls 6.0 
人 @ Microsoft Rich TextDbox Control 6.0 










ツー ル パ レ ッ ト に コモ 
ンコ ント ロー ル が 追加 
され る 


[標準 ] ツー ル バ ー の ボタ ン を 使っ て 、 プ ロジ ェクト 
に 「MDI フォ ー ム モジ ュー ル 」 を 追加 する 











RG リリ 4 の 
どら な を ジリ ッ ク 


8 

ド 。。 4 2 ラス モツ ュー ル (⑩) 

spl 暫 ユ ザー ャ ヤ In- ル (DD 

フ 7 が ティ ペー ジ (B 

1 ラード の 67 
DHTML Page 
に Data Report 

ツー webclss 

Data Enyironment 

ファ 作 の 追加 (8- CtFD 
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コン ポー ネン ト を 
追加 する 


コン ポー ネン ト を 追加 す 
658 た 02c つ JUN て で (は 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み |] を 
参照 し て くだ さい 。 


MI フォ ー ム 
[MDI フ ォ ー ム モジ ュー 
ル ] を クリ ッ ク し 、 表 示 
きれ る [MDI フ ォ ー ム モ 
ジュ ー ル の 追加 ] ダイ ア 
ログ ボッ クス で [MID フ 
ォ ー ム モジ ュー ル ] が 選 
択 さ きれ て いる こと を 確認 
Ei で ei 開 ぐ ] だ を クリック 
する と 、「MDIForm1l フ 
ォ ー ム ウィ ンド ウ が 追加 
され ます 。 
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ぐ レク チャ の 挿入 


[イメ ー ジ ] タプ を クリ ッ 
ク し 、[ ピ クチ ャ の 挿入 ] 
ボタ ン を クリ ッ ク し ます 。 
[ 図 の 選択 ] ダイ アロ グ ボ 
ックス が 表示 され る の で 、 
挿 人 する ビク チャ を 選択 
し 、[ 開 く ] ボタ ン を クリ 
ッ ク し ます 。 
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MDI フォ ー ム の サイ ズ を 広げ 、[Caption] プロ パテ 
ィ を 「 マ ル チ ド キュ メン トビ ュー ワ 」 に 変更 する 


MDIForm1 MDIForm ッ | 
全体 | 項目 別 | | 










フツ ェ ト 名 ) MDIForm1 
占 Ppearance 1 - 3D 
autoShowChildren True 


還 8H80000OUC& 

マル チ ド キ ュ メ ント ピュ ー ワ 
Enabled True 
Height 549H 
HelpContextID 0 

tgE の 】 
0 


ここ を 「 マ ル チ ド キュ メ 
ント ビュ ー ワ ]」 に 変更 


斜め に ドラ ッ グ 
し て 配置 


イメ ー ジ リス ドコ ンド 回 と ル の [プロ パテ ディ ペー ジ ] 
の 「[ イ メー ジ ] タブ で 、 次 の ピク チャ を 挿入 する 


イン デック ス ファ イル 名 
check.ico 
DocO5.ico 











Paint_ ら .ico 
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。 [プロ パテ ィ ペ ー 
@ ぎ ぽ SI の 及 国 の 


22E2N チ 62 ペーSZls2 の 1 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し 、 プロ パテ ィ ウ イィ 
ンド ウ の [( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [.…] ボタ ン を クリ ッ 
ク グ し ます 





全般 な デ ] 色 
29E キ @91  …《.6.〈..# 
問 間 =〔 = 。 芽 











な 0。 


X 缶 許 


挿入 し た ボタ ン 






せれ の 削除 | 


ツー ル バ ー コ ント ロー ル の [プロ パテ ィ ペ ー ジ ] で 、 
[イメ ー ジ リス ト ] に 「ImageList1」 を 指定 する 





| 全般 | 1F ウ | 


| の z ポ 人 29: Io-ccpcut 。。 。。 。 所 

euENRmWESR⑥ couEropne  、、 、 、 、 呈 

ジリ 9 メト Icon 、 、 彰 

無 協 信 - ゲ リスト Gy ーー ニーー 一 

| 人 セ ッ 92 ト O 
へ 2 ヤキ メト 番号 (⑪: P AM ファ 化 E ーーーーーー 
ポ め の 高き (は : 隔 497 。 ピュー 設定 ⑯ 折り 3 
本 の 幅 の aa レ b ト を 表示 ⑤ レイ トッ ト 認 識 (⑤ 
拉 画 291P 電界 線 @ 上 Ip-ccNooo 引 
玉 外 の 配置 ⑩ IEEE 守 
ー エーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 













5 が グ 0)W ク 


[ボタ ン ] タブ で 、[ ボ タン の 挿入 ] を 使っ て ボタ ン 
を 3 つ 挿 入 し 、 次 の プロ パテ ィ を 設定 する 


イン デック ス 








設定 する プ 
ティ 









| 2Say⑥ 





BK 
値 ⑰。 trUnpressed | 





キ ⑩⑯: 
29 ル [procun <] 価 OY2R2 上 im 
ウー ルト 0 イー ゲ (、 
久 で : 
レレ 表示 @⑧) レイ ツ ッ ト 認識  「 外 - 表 示 
本 た ュー 


2 テー ボツ た ュー の 失 WO | ] 
723 08 まこ 


と 








209 
第 5 日 2 時限 目 マル チ ド キ ュ メ ント ビュ ー ワ の 作成 








210 





ツー ル パ レ ッ ト の [CommonDialog] 一 
コモ ンダ イア ログ コン トロ ー ル を 配置 する 





』 [プロ パテ ィ ペ ー ジ ] の [開く / 保 存 ] タブ で 、 次 
の プロ パテ ィ を 設定 する 


プロ パテ ィ 介 


タイ トル 
初期 ディ レク トリ 












2 | 2W2 や デ 2 5 








Lesson 15 ユー ザー イン ター フェ イス の 作成 


本 テテ ュー エディ タ を 起動 し 、 次 の メニ ュー を 設定 


キャ プシ ョ ン 

ファ イル IDM_FILE 

… 開 く IDM_OPEN 
文書 ファ イル IDM_TEXT 
イメ ー ジ ファ イル | IDM_IMAGE 














wowee SeDarator 





… 終 了 

ウィ ンド ウ 

… 水 平 に 並べ て 表示 
… 縦 に 並べ て 表示 
… ね て 表示 


IDM_EXIT 
IDM_WINDOW 
IDM_HORI 
IDM_VERT 
IDM_CASCADE 

















上 「 ウ ィ ン ド ウ 」 を 選択 し 、[ ウ ィ ン ド ウリ スト ] ボ 
ックス を チェ ッ ク す る 


| 2 ウイ ドウ ok | 












| 名 前 IDM WINDOw h の EE あ 届 具 】 
| セテ 2200 | mtS[oCO 。 。 を 選択 
^ ル 2" ヤキ メト 番号 (は Zr- ト O 恒 : 記 - 弄 


コー 


作成 し た メニ ュー 











メニ ュー エディ タ 
ププ を 起動 する 


メニ ュー エディ タ を 起動 
する に は 、[ 標 準 ] ツー 
バー の [メニ ュー エディ ォ 
タ ] ボタ ン を クリ ッ ク し 
まぁ 


メニ ュー を 作成 
< ぐ プ する 方 法 


メニ ュー を 作成 する 詳し 
ぃ い 方 法 に つい て は 、 
「Lesson2 合計 計算 処理 の 
作成 ] を 参照 し て くだ さき さ 
い 。 
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ど Project の 名 前 


[Projectl の プロ パテ ィ ] 
コマ ンド の 「Projectl」 の 
部 分 に は 、 作 業 中 の プロ 
ジェ クト を 保存 し た と き 
に 付け た 名 前 が 表示 され 
まま の 3 例 で は 
「Lesson16] と いう 名 前 が 
付け られ て いま す 。 


アコ フォ ー ム の 選択 

必要 な フォ ー ム を 選択 し 
て 前 面 に 表示 する に は 
プロ ジェ クト ウィ ンド ウ 
で 、 必 要 な フォ ー ム の 名 
前 を ダブ ルク リッ ク し ま 
す 。 











』 争 [プロ ジェ クト ] メニ ュー の [Project 1 の プロ 
パテ ィ ] を 選択 する 


ここ を クリ ッ ク 





ここ を クリ ッ ク 


6 [全般 ] タブ で 、[ ス ター ト ア ッ プ の 設定 ] を 
[MDIForm1] に 変更 し 、[OK] を クリ ッ ク す る 


全般 | 窒 行 可能 ファ 介 の 作成 W 人 ル | ヤ ボート アグ | | ここ を クリ ッ ク | ッ ク 
22 な 外 の 種類 CD: 2 ター げ の の 喜 定 G 
森 WEE  。  、、 選 森 WEE  。  、、 選 GE 陸 m ml | 


Pe ここ な を クリック 










F 
た 57 


4 タク / 


[MDIChild] プロ パテ ィ を 


1 タ Form 1 を 選択 し 、 
「True」 に 設定 する 


(ご ら な ン ル ル ン 
ここ を クリ ッ ク 
ここ を クリ ッ ク 


0 - 學 定 値 
True 





LessSon 15 ユー ザー イン ター フェ イス の 作成 


1⑬ ツー ル バ パレ ッ ト の [HichTextBox] 較 を 使っ 
て Form1 に リッ チ テ キス ト ボ ックス を 配置 する 





1 リ ッ チ テキ ス トコ ント ロー ル に 、 次 の プロ パテ ィ 
ノ ぇ 設定 する 


プロ パテ ィ 中 
ScrolIBars 3ー rfBoth 





Text (な し ) 


上 [標準 ] ツー ル バ ー の ボタ ン を 使っ て 、 プ ロジ ェ 
クト に フォ ー ム モジ ュー ル (Form2) を 追加 する 














2 グリ 
ここ を クリ ッ ク 


IN 医 計 標準 モジ ュー ル (M 
の ラス モジ ュー ル (G) 
習 ユ ザー ャ hn- ル DD 
セレ c! 画 7m07 ペ CB 
た 


3 。 。DHTMLPaee 
ら 避 Data Report 
WebClsss 
Dats Environmert 
ファ イル の 追加 (@)。 CHD 
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19 [MDIChild] プロ パテ ィ を 「True」 に 設定 する 





MouseFointer ロ n- 既定 値 


Maveable True 
NegotiateMenus True 
に ここ ーー トメ ー ュ ーーー ト ュー I 


フ ツー ル バ レ ッ ト の [Image] 較 を 使っ て 、 
⑩⑪ 「Form2] に イメ ー ジ コン トロ ー ル を 配置 する 


D を ささ m 
エーーー 
ュ さ ・ 
r 1 
ュ ヽ ! 
n ヽ 

ヽ 
・ 
ヽ ・ 
ヽ 1 
Ne ・ 
ゞ ュ 
ヽ ・ 
や ・ 
ヽ ・ 
くにこ 
さ ・ 
ゞ ・ 
ヽ ・ 
ヽ 
m ご e 
^ ・ 
ヾ 
・ 








2 1』 [BorderStyle] プロ バ パティ を 「1 一 実線 ] に 設 


定 す る 
ここ を クリ ッ ク 
SC リョ ッッ 


「1 一 実 線 ] に 
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Lesson 16 ユー ザー イン ター フェ イス の 作成 


みみ 完成 し た MDI フォ ー ム 











1 















この プロ グラ ム の 仕様 に つい て 説明 を し て お きま す 。 

まず 、MDI フ ォ ー ム に は 、 ツ ー ル バー コン トロ ー ル と メニ ュー コン トロ ー ル を 配 
置 し 、 こ れ ら を 使っ て 表示 する ファ イル を 指定 する よう に し ます 。 フ ァイル の 選択 
は 、 コ モン ダイ アロ グ コ ント ロー ル を 使用 し て 行い ます 。1 つ の コモ ンダ イア ログ 
コン トロ ー ル で 、2 種 類 の ファ イル を 開く 設定 を 行う の が ポイ ント で す 。 

最初 の フォ ー ム 「Formll に は 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル を 配置 し 、 
文書 ファ イル を 開く と き は 、 こ の フォ ー ム の イン スタ ンス を 作成 し て 表示 する よう 
に ます 。 

「Form2] に は イメ ー ジ コン トロ ー ル を 配置 し 、 イ メー ジフ ァイル を 開く と き は 、 
この 「Form2] の イン スタ ンス を 作成 し て 表示 し ます 。 そ の た め 、 プ ロジ ェクト フ 
ァイル に は 、2 つ の フォ ー ム を 組み 込ん で いま す 。 


表示 する 内 容 で フォ ー ム 
を 使い 分 ける 
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ス 


プロ グラ ム の ベー ス に な る ウィ ンド ウ は 、MDI フ ォ ー ム に し ます 。 こ の MDI フ 
ォ ー ム に は 、 ツ ー ル バー コン トロ ー ル を 配置 し ます 。 

また 、 メ ニュ ー コ ント ロー ル も 組み 込み 、 フ ァイル を 開く 操作 は どちら か ら で も 
で きる よう に し て いま す 。 こ の あたり は 、 通 常 の Windows の アプ リケーション を 参 
考 に し な が ら 、 自 分 で 工夫 し て ユー ザー イン ター フェ イス を 作成 し て くだ さい 。 
[ウィ ンド ウ ] メニ ュー は 、 複 数 の 子 フ ォ ー ム を 表示 し た と き の 、 ウ ィ ン ド ウ の 整 
列 を 行う た め の メ ニュ ー で す 。 ま た 、「 ウ ィ ン ド ウリ スト | の プロ パテ ィ に チェ ッ ク 
を 付け て いる の で 、 子 フォ ー ム を 作る た びに 、 子 フォ ー ム の 名 前 が リス ト 表 示さ れ 
ます 。 









8 子 フ ォ ー ム が タイ ル 状 に 並ん 
ーー 本 で フ オ カーム 名 が 時 避 寺 ほ 
議 請 請 請 議 記 | | リス ト 表 示さ れる 





lecmosAvCteck Atenote CMCS 


ツー ル バ ー コ ント ロー ル と イメ ー ジ リス トコ ント ロー ル の 操作 方 法 は 、[「Lesson5 
ツー ル バ ー コ ント ロー ル の 組み 込み ] で 説明 し た と お り で す 。 ツ ー ル バー の ボタ ン 
の 数 が 多い 場合 は 、「 キ ー」 を 設定 し て 識別 し や すく し た ほう が いい で し ょ う 。 こ こ 
で は 、3 つ の ボタ ン し か 使用 し て いま せん か ら 、 イ ン デ ックス だ け で 管理 し て いま 
す 。 な お 、 ツ ー ル バー コン トロ ー ル の ボタ ン に 、 イ メー ジ と 文字 を 組み 込む と 、 ど 
うし て も ボタ ン の サイ ズ が 大 きく な り ま す 。 小さ い ボ タン を 使い た い 場 合 は 、 イ メ 
ー ジ リス トコ ント ロー ル の イメ ー ジ サイ ズ を 「16 x 16] に し た り 、 イ メー ジ 表 示 だ 


け の ボタ ン に すれ ば 可能 に な り ま す 。 
それ ぞ れ の ボタ ン 
サイ ズ の 違い 
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ユー ザー イン ター フェ イス を 設計 する 場合 は 、 一 般 的 な アプ リケーション の 操作 方 
法 を 踏襲 する こと を お 勧め し ます 。 あ まり 変わ っ た 操作 方 法 を 採用 する と 、 初 心 者 ユ 
ー ザ ー な ど は 混乱 し て プロ グラ ム が 操作 で き な く な っ て し まい ます か ら 、 注 意 し て く 
だ さい 。 

また 、 ツ ー ル バー コン トロール の ボタ ン 表 示 は 、 ユ ー ザ ー が 見 て わか る よう な デザ 


ツー ルビ ンド で ボタ ジ 
の 内 容 を 説明 する 


《c》 練習 問題 


プロ グラ ム 実 行 時 に 、 ツ ー ル バー の ボタ ン に マウ ス の ポイ ンタ が 重 な 
る と 、 ポ イン タ が 指 の 形 に 変わ る よう に 、 プ ログ ラム を 修正 し て くだ さ 








ボタ ン の 上 で ポイ ンタ 
が 変わ る 


JPG、 BMP、 GIF 形式 グラ フィ ッ ク フ ァイル : ます 


解答 は 巻末 に 一 








ニ ーー ーーーーーーーーー 凌 議 詩 
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コー ド の 作成 


Lesson16 で 作成 し た ユー ザー イン ター フェ イス に 、 動 作 処理 を 行う 
コー ド を 作成 し て いき ます 。 コ ー ド は 、MDI フォ ー ム と 標準 フォ ー ム 
「Form 1」 の それ ぞ れ に 作成 し ます 。 MDI 機能 を 持っ た プロ グラ ム で は 、 
フォ ー ム ご と に 動作 を 設定 し た い 場 合 は 、 そ れ ぞ れ の フォ ー ム モジ ュー 
ル に コー ド を 組み 込む 必要 が あり ます 。 








今回 作成 する プロ グラ ム 









FirstRunScreens:Start 
ezialGeninstalls: 人 
ISpezialGeninstalls:Look 
C\WINDO SOPTONSWPREDUP TAG 
BeUserntoiNT ] 個別 の フォ ー ム に 文書 ファ イ 
9 を セッ ト ア ッ プ する に は 、 ユー ザー | ル や イメ ー ジ ファ イル な ど 、 
複数 の ファ イル を 表示 で きる 
プロ グラ ム を 作成 する 
る RUNONCE 82pe RO 」 FRENSTALLAEE 
SW Lesson17.vhp PrepareRunonce:Process : コ ント ロー ル パネ キル : 1 
6) VB6CD2 
折 ぺ コ Lesson17 


ツー ル バ ー コ ント ロー ル や 、 メ ニュ ー コ ント ロー ル な ど 、MDI フ 
ォ ー ム に 組み 込ん だ コン トロ ー ル の 処理 は 、MDI フォ オーム モジ ュー 
ル に 作成 し ます 。 ま た 、Lesson15 で 説明 し た よう に 、 子 ウィ ンド 
ウ の 共通 処理 は イン スタ ンス の 元 に な る フォ ー ム の コー ドウ ィ ン ド 
ウ に 、 処 理 を 作成 し ます 。 

今回 は 、 コ ー ド の 作成 の みな の で 、 コ ント ロー ル と プロ パテ ィ の 
設定 は あり ませ ん 。 


Lesson 17 コー ド の 作 


























Wi 還 a 過 ) 
Toolbar1 





| P エ ュ Yate Sub moo1ba ェ 1 ButtonC1iock (ByVa1 Button As 


| MSComC1 エ 1D . Bu モモ On ) 

| Se1eo Case Bu セ on . エ ndex 

| Case 1 

| Un1oad Me | 
| End | 
| Case 2 

| Ca11 Openmex セ 

| Case 3 | 
| Ca11 OpenTmage | 
| 

End Sub 


End Se1ect 


上 MDIFarm1 :(General)-GetSurce 













MTS 


GeneraD 引 GetSource 


Pub1ic Funotion GetSouroce(ByVa1 SouroceName Ag String) As String 





| エ E SouroeName = "TXT Then | 
| With CommonDia1og1 
-Fi1ter = "文書 ファ イル (*.txxt,*. ェ rtE) | *.txktz *. ェ ヒモ 
-Dia1ogTit1e = "文書 ファ イル を 開く " 
・Ei1ename = "m | 
| On 到 エ エ O エ GOTO FT エ NT エ SH 
| ・ShowOpen 
| GetSource = -.Ei1ename 
End With 
1se エ FE SourceName = "TMG" Then 
| With CommonDia1og1 
| -F11ter = " エ mage Fi1e(*.bmp,*.g1E,*.]pg) | " g 
| 中 さ Dan の ょ まこ の ミ モ 2 テコ pg 
| 





-Dia1ogTit1e = "イメ ー ジ ファ イル を 開く 
| -Ei1ename = "" 
| On 正 エ エ Oo エ GOTO エ NTSH 
・ShowOpen | 
GetSoOu エ Ce = .Fi1ename | 
End With | 
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[ End エモ 。 Ar て 
| 万 x ユ モ Funo ュ on 


| FTNTSH : 
| GetSource = "『『 
| End Funo も ion 











皿 











MDIForm1:(General)-0penText 













ub1io Sub OpenTex ( ) 
Dim Fname As St ェ ing 


| 
| Fname = GetSouroce ( "TX" ) 
| エ F Fname = "" mhen 
| Exxit Sub 
| End TE 
| Dim mexxtForm As Nevw Form1 
| With TexxEForm 
| ・Show 
| ・Caption = Fname 
| ・RichTmextBoxx1 .LoadFi1e Fname 
| ・RichmextBox1 .Width = .Widqdth - 700 
・RichmextBox1 .Hetght = .Height - 700 
End With 
End Sub 
1 

















MDIForm1:(General)-0penlmage 


IForm1 ロー ト ) 









Pub1io Sub Openrmage ( ) 
Dim Fname As String 


Fname = GetSource(" エ MG" ) 
エ F Fname = "" mhen 
Ex ユエ 七 Sub 
End TE 
Dim TmageForm AS New Form2 
With TmageForm 
・Show 
・Capion = Fname 
・ エ maqe1 . P1C 上 u エ G = TioadP1Cure (Fname ) 
End With 
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時 MDIForm1:IDM_TEXT-Click 





TS 敵 1 昌 が ) 


| [pm_ TEXT 引 [Click 引 | 
ーーーーーーーーーーーーーーーーーーー ーーーーーーーー- ーーーーーーーー ーー ーーーーーーーーーー ーーーーーーーーーーーーーーーーーーーー 





Private Sub TDM TE 文 下 C11ck( ) 
| Ca11 OpenTex モ 上 
| End Sub 


MDIFom1: 還 9 ME -Click 











」P エ ュ ivate Sub TDM TMAGE C11ick( ) 
| Ca11 OpenTmage 
End Sub 





川 








MDIForm1:IDM _EXITClick_ 


7 TE 3 ロー oi 間 中 -I ロ xl 
[Ciick | 









| P エ ミュ Yate Sub TDM EX エ 〒 C1iok( ) 
Un1oad Me 


| End 
届 療 損 


MDIFarm1: IDM_CASCADE-Click 


ュ MDIFo rm] W 





| DROA 加 | [Click | 
舞 に ーーー。 Io 





Private Sub TDM CASCADE C13ok( ) 
| MDTForm1 .Arrange YbCascade 
| End Sub 


=MDIForm1:IDM_HORLClick 
LE son17 - MDIFarm1 ロー トド) 


Fn- HORI <| ICiick 引 | 


」 P エ ミュ で a モ ee Sub TDM HOR エ C11ok( ) 
MDTForm1 .A エ エ amndG で bm エエ @GHO エ ミュ zoOn モ a ユ 1 
End Sub 
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Private Sub TDM VER C1iok( ) 


End Sub 





川 




















MDTForm1 .A エ range ゞ bT11eVe ェ 上 ュ Ca1 





Form1 :Form-ReSize 





| 











Private Sub Form Resize() 


End Sub 









エ F Me.WindowState <> で bMinimized Then 
With RichmexxtBoxr1 
・Width = Me.Width - 700 
・Height = Me.Height - 700 
End With 
End TE 


証 。 ま す 簡 単に プロ グラ ム の 動作 を 説明 し ます 。 





① ユ ー ザ ー が 、 ツ ー ル バー の [テキ スト ] ボタ ン ま た は [ファイル] メニ ュー の 
[開く ] で [文書 ファ イル ] を クリ ッ ク す る と 、 フ ァイル 形式 が テキ スト か RTF 
の ファ イル を 開く た め の ダ イア ログ ボッ クス が 表示 され ます 。 


コ AoB0t 

コ 」Kpcms 

コ Mouse 

My Documents Yamaha 四 ] 到 送金 dtt 
FroramFiles 画 ]Fmunloett 


7 ruetemD 。 SWll 
「 読み 取り 専用 ファ イル と し て 開 <⑧ 5 | 





② こ の コモ ンダ イア ログ ボッ クス は 、 ダ イア ログ タイ トル と 「 フ ァイル の 種類 | を 
設定 し て 表示 し 、 テ キス ト か RTF フ ァイル 以外 は 選択 で き な い よう に し て いま 
お 
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③ フ ァイル が 選択 さき れる と 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル を 組み 込ん だ 、 
標準 フォ ー ム 「Form1| を 元 に イン スタ ンス を 作成 し 、 子 フォ ー ム と し て 表示 し 


ます 。 





子 フ ォ ー ム に 表示 
され た ファ イル 


parel RUNONGE SectonRO PRENSTALLAPP 3 
Frepar Nmeiiocosz ョ コト サー ル り 4 レ 1 到 





(④ 表 示さ れ た 子 フ ォ ー ム は 、 そ の ファ イル 名 を フル パス で フォ ー ム の キャ プシ ョ ン 
に 表示 し 、 現 在 ど の ファ イル を 表示 し て いる の か が わか る よう に し て いま す 。 








( 記 FI 拉 タイ トル バー に ファ イル 
5 の パス が 表示 され る 


。 FirstRunScreens:Start 
ISpezialGeninstalls:Start 
SpezialGeninstalls:Looking for 
WINDOWSNOPTIONS\PREDUP.TAG: 


ItHINTLO 
GetLserlmfoNIT _ 


また 、 フ ォ ー ム の サイ ズ と リッ チ テ キス ト ボ ックス コン トロ ー ル の サイ ズ を 自動 
計算 し て 調節 し て いる た め 、 フ ォ ー ム を 拡大 縮小 し て も 、 常 に 同じ 比率 で リッ チ 
テキ スト ボッ クス コン トロ ー ル も 拡大 縮小 され て 表示 され ます 。 





Sr 
Ceciloennstall St 
] oopeloenrstalzlonkne tr CADNDOMSXOPTIDNSMPREPUP TAG 
|ENYNCGWSOPTONSMPREOUPTAG 
中 mrte RS Uaeihto 
5 ポア ッ プ Wdpwe を セッ ト アッ プ す る は 、 ユー ザー 名 を 入力 し て く 
症 | に さい ok 


| sm 
| 同 尋 3 does を セッ ト ア ッ プ す る コミ 、 ユ ー ザー 


スカ し て くだ きい OK 
で 

ME oe 

]VcpClpse Ao lo 客 mote 

IDoPrejrstaliwort_Auddmode 0 

や SRAronce RUNONCE SectanRO.PRENGTALLAPP 

rep Ronce Fm ・ ロー ル ネル 1 当 


フォ ー ム の サイ ズ 常に 同じ 比率 で リッ チ テ キス ト ボ ックス 
が 変わ っ て も .… コン トロ ー ル も 拡大 縮小 され る 
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⑤⑮MDI 機 能 の 特徴 で 、 子 フォ ー ム を 全 画 面 表示 する こと も で きま す 。 


RUNONCE Section ROD PREINSTALLAPP 
repweRunorce Process yg は どす 
凍 |PrepweRuronce 


タート] メニ ュ 


INONCE Secuon ROLOEM 


ーー マ umrmwcvnpTmwcvr-*| レ ー mer <ー・ 
CSC ニン rp と SS 





⑯ ツ ー ル バー の [Image] ボタ ン ま た は [ファ イル ] メニ ュー の [開く ] で [イメ 
ー ジ ファ イル ] を クリ ッ ク す る と 、 今 度 は イメ ー ジ ファ イル 用 に 設定 され た コモ 
ンダ イア ログ ボッ クス が 表示 され ます 。 や は り 、 ダ イア ログ タイ トル と 「 フ ァ イ 


ル の 種類 ] を コー ド で 設定 し て お り 、 フ ァイル の 拡張 子 が 「bmp」「gifl 「jpg」 
の ファ イル だ けが 選択 で きる よう に し て いま す 。 





⑦ フ ァイル が 選択 さき れる と 、 イ メー ジコ ント ロー ル を 組み 込ん だ 標準 フォ ー ム 
「Form2] を 元 に イン スタ ンス を 作成 し て 、 イ メー ジ を 表示 し ます 。 


Form ら を 使っ て イメ ー ジ 


が 表示 され る 
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⑧ [ウィ ンド ウ ] メニ ュー に は 、MDI フ ォ ー ム 内 に 表示 し た 子 フ ォ ー ム の ウィ ンド 
ゥ 状態 を 設定 する サブ メニ ュー を 組み 込ん で あり ます 。 こ れ ら の メニ ュー の Click 
イベ ント プロ シー ジャ に は 、 複 数 の フォ ー ム の ウィ ンド ウ 整 列 を 変更 する コー ド 
を 組み 込ん で あり ます 。 








FrstRunScreens Star 
eee Sa 
|5peziaIGennst eelle tookme fo CWWINDOWSWOP 
INTLG 











(moc | 


SpeiaIGennstalls- Look re 
回 YOWSWOPTONSNPREDUP TAG 
ImHNTLG 
IGetUserjnfoINIT 
UMB セ ッ ト ア ッ プ Windows を セット アッ プ す る | コ ま 、 ユー ザー 


made 0 
RUNONGE Ro 0 が お 
epweRunonce hocess コル ロー エル / 当 
ES ま > 








で は 、 順 番 に コー ド を 作成 し て いき まし ょ う 。 ま ず は 、 ツ ー ル バー コン トロ ー ル 
の ボタ ン が クリ ッ ク さ れ た 場合 の 処理 で す 。 ツ ー ル バー コン トロ ー ル の ボタ ン が ク 
リッ ク さ れる と 、ButtonClick イ ベン ト プ ロ シー ジャ の 引数 「Button] に は 、 ク リ 
ッ ク さ れ た ボタ ン オ ブ ジ ェクト が 格納 され ます 。 こ の [Index] プロ パテ ィ を 所 提 
する こと で 、 ど の ボタ ン が クリ ッ ク さ れ た の か が わか り ま す 。 

これ を 、Select Case ス テー トメ ント で 3 つの 処理 に 振り 分 け ま す 。 [Exit] ボタ ン 
は 、 そ の まま プロ グラ ム を 終了 させ る 処理 を し ます 。[Text] ボタ ン と [Image] 
ボタ ン は 、 そ れ ぞ れ の ファ イル を 開い て 表示 する プロ シー ジャ 「OpenTextl 
[OpenImage」 を 呼び 出し ます 。 こ れ ら の プロ シー ジャ は 、 ユ ー ザ ー 定 義 の プロ シ 
ー ジ ャ と し て 作成 し 、 ツ ー ル バー と メニ ュー で 1 つの 処理 を 呼び 出せ る よう に し て 
いま す 。 
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Pr1ivate Sub Too1ba ェ 1 But も onC1iokk (ByVa1 Button As 
MSComc セ 1 ユエ ュ b . Bu モモ on ) 


Se1eo Case ButEon . Tndex 
Case 1 
Un1oad Me 
End 
Case 2 
Ca11 OpenTmext 
Case 3 
Ca11 OpenTmage 
End Se1eot 
End Sub 


久 ここ で 、 コ モン ダイ アロ グ コ ント ロー ル の 設定 と 、 フ ァイル 名 を 取得 する 処理 を 
作成 し ます 。 テ キス ト フ ァイル も 、 イ メー ジフ ァイル も 、 同 じ よ うに コモ ンダ イア 
ログ ボッ クス を 表示 し て 、 フ ァイル 名 を 取得 する た め 、1 つ の プロ シー ジャ で テキ 
スト と イメ ー ジ を 使い 分 けら れる よう に すれ ば 、 処 理 が 単純 化 で きま す 。 ま た 、 取 
得 し た ファ イル 名 を 返し て くる よう に すれ ば 、 使 いや すい プロ シー ジャ に な り ま す 。 

そこ で 、 引 数 に テキ スト な の か イメ ー ジ な の か を 指定 し て 実行 する と 、 そ の 種類 
に あっ た ファ イル 名 を 返し て くる よう な 、 ユ ー ザ ー 定 義 の 「Function| プロ シー ジ 
ャ を 作成 する こと に し ます 。「Function] と は 、 関 数 の よう に 、 引 数 と 戻り 値 を 持 
っ た プロ シー ジャ を 作成 する ステ ー ト メン ト で す 。「Function|」 の あと に 、 プ ロ シ 
ー ジ ャ と 同様 の 規則 で 名 前 を 付け 、() に 引数 を 設定 し ます 。 そ し て 、 示 尾 に 「As」l 
を 付け て 戻り 値 の デー タ 型 を 指定 し ます 。 


[Pub11c] Funotion name [(arg1ist)] [As type] 
Pub11ic Function プロ シー ジャ の スコ ー プ (参照 範囲 ) を 指定 し ます 。 sub 


プロ シー ジャ と 同じ 規則 で す 。「sub1ic] は すべ て の モジ ュー ル か ら 
参照 可能 で 、「siyate」 は 1 つの モジ ュー ル 内 の すべ て の プロ シー 


ジャ か ら 参 照 可 能 に な り ま す 。 
name Function プロ シー ジャ の 名 前 で す 。 
arg1i gs モ 引数 を 記述 し ます 。 引数 付き sub プロ シー ジャ と 同様 、 値 渡し の 場合 


は 「syva1」 を 付け 、 参 照 渡 し の 場合 は 「syReE」 を 付け て 、 引 数 名 
と デー タ 型 を 指定 し ます 。 
Function が 実行 され て 値 を 返し て くる と き の 、 戻 り 値 の デー タ 型 を 


に に た た た まえ えよ エス ミエ ナミ エ エエ エエ エミ メメ ミミ エエ は よ よ TKKTYYIKYAXKKNAXKKNKKKKKKKKEKKYYKYKYKKKKK に に と と 
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ここ で は 、「GetSource」 と いう 名 前 の Function プロ シー ジャ を 作成 し 、 引 数 に 
「 SourceName」 と いう 文字 列 型 の 変数 を 値 渡し で 使用 し ます 。Function プロ シー ジ 
ャ の 実行 結果 は 、 フ ァイル 名 を 文字 列 で 返し て くる よう に する の で 、「As String] 
と いう 戻り 値 の デー タ 型 を 指定 し ます 。 


Pub11C FunC モ 1onm GeE 上 SourCe(ByVa1 SouroceName AS Sind) 
As St ェ ingd 


Function プロ シー ジャ は 、 必 ず 「End Function」 で 終わ ちら な けれ ば な り ま せん 。 





用 で は 、 実 際 に この 「GetSource」 プロ シー ジャ を 作成 し まし ょ う 。 最初 に 、 引 数 
「SourceName」 の 内 容 を 、If ス テー トメ ント で 判断 し ます 。 こ の 引数 は 、 テ キス ト 
ファ イル を 開く コモ ンダ イア ログ ボッ クス を 表示 する 場合 は 、 引 数 に 「TXT」 を 設 
定 す る よう に し ます 。 ま た 、 イ メー ジフ ァイル 用 の コモ ンダ イア ログ ボッ クス を 表 
示す る 場合 は 、 引 数 に 「IMG」 を 指定 し ます 。 
引数 が 「TXT」 の 場合 は 、 コ モン ダイ アロ グ ボ ックス に 、 フ ァイル の 拡張 子 が 
「*.txt」「*rtfl の ファ イル だ けし か 表示 し な いよ うに 、[Filter] プロ パテ ィ を 設定 
し まず 5 


ェ エ E SouroeName = "TXT" Then 
With CommonDia1og1 
-Fi1ter = "文書 ファ イル (*.txxt,*. ェ EE) | *.txxtz *。 ェ も EP 


次 に 、 ダ イア ログ ボッ クス の タイ トル 文字 列 を 設定 し 、「 フ ァイル 名 |] の と ころ が 
空 折 に な る よう に し ます 。 


-Dia1ogmit1e = "文書 ファ イル を 開く " 


-Ei1ename = "" 


これ で 、 コ モン ダイ アロ グ ボ ックス の 各 プ ロ パ ティ の 設定 は 終了 で す 。 続け て 
「ShowOpen] メソ ッ ド で 、[ フ ァイル を 開く ] ダイ アロ グ ボ ックス を 表示 し ます 。 

ユー ザー が ファ イル 名 を 選択 する と 、 コ モン ダイ アロ グ ボ ックス の [filename] 
プロ パテ ィ に 、 フ ル パ ス で その ファ イル 名 が 格納 され ます 。 こ れ を 、 こ の Function 
プロ シー ジャ と まっ た く 同 じ 名 前 の 変数 に 格納 し ます 。 こ の 変数 が 、Function プロ 
シー ジャ が 実行 され た と き の 戻 り 値 に な り ま す 。 


・ShowOpen 


GetSouroce = .Ei1ename 
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すなわち 、 こ の プロ シー ジャ が 実行 きれ 、 フ ァイル 名 が 選択 きま れる と 、 選 択 し た 
ファ イル 名 を フル パス で 、 戻 り 値 と し て 返す よう に な り ま す 。 


人 5 同じ ょ うに 、 引 数 が 「IMG」 の 場合 の コモ ンダ イア ログ ボッ クス の 設定 を 作成 し 
ます 。 


EE1seTF SouroeName = "TMG" Then 
With CommonDia1og1 
-F ュ 1ter = "Tmage Fi1e(*.bmp,*.g1E,*。Jpg) | " を 
" ま 。Dmpz* 91E*。]pg" 
-Dia1ogTitle = "イメ ー ジ ファ イル を 開く 


-・Ei1ename = "em 


GetSouroe = .Ei1ename 
End With 
End TE 


また 、 コ モン ダイ アロ グ ボ ックス の [キャン セル ] ボタ ン が クリ ッ ク さ れ た 場合 
は 、 な ん の 処理 も せ ず に 終了 し ます 。 こ の 場合 は 、[filename] プロ パテ ィ の 値 は 、 
「"」 (空白 ) の まま で す 。 


0 ファ ィ イル 名 を 取得 する Function ブ プロ シー ジャ が 作成 で きた ら 、 実 際 に フォ ー ム の 
イン スタ ンス を 生成 し て 、 子 フォ ー ム を 表示 する 処理 を 作り ます 。 
まず 、 テ キス ト フ ァイル を 開く 処理 で す 。 こ の 処理 は 、 ツ ー ル バー と メニ ュー の 
両方 で 同じ 処理 が 行え を る よう に 、 ユ ー ザ ー 定 義 の Sub プロ シー ジャ と し て 作成 し ま 
す 。 プ ロ シ ー ジ ャ 名 は 「OpenText| で す 。 


Pub1ic Sub Openmex モ ( ) 


最初 に 、 変 数 を 1 つ 宮 言 し ます 。 先 に 作成 し た Function プ ロ シ ー ジ ャ 
「GetSource」 の 戻り 値 を 格納 する 変数 「Fname」 で す 。Function プロ シー ジャ 
「GetSource」 の 戻り 値 は 文字 列 型 な の で 、 同 じ デ ー タ 型 で 宣言 し ます 。 


Dim Fname As String 


次 に 、Function プロ シー ジャ 「GetSource」 を 、「TXT」 と いう 文字 列 を 引数 に 
し て 実行 し ます 。 こ れ で 、 テ キス ト フ ァイル 用 の コモ ンダ イア ログ ボッ クス を 表示 
する コー ド が 実行 され 、 ユ ー ザ ー が 選択 し た ファ イル 名 を 返し て きま す 。 戻り 値 は 、 
変数 「Fname」 に 格納 し ます 。 


Fname = GetSource ("TXT") 
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| | テキ スト 用 の コモ ン 
ダイ アロ グ ボ ックス 






コモ ンダ イア ログ ボッ クス の [キャンセ ル ] ボタ ン が クリ ッ ク さ れれ ば 、 戻 り 値 
は 「"| が 返さ れ ま すか ら 、 こ れ を If ステ ー ト メン ト で 判断 し 、 キ ャ ン セ ル で あれ 
ば ここ で プロ シー ジャ を 終了 し ます 。 


エ E Fname = "" mhen 
Ex ュ 七 Sub 
End エモ 


ファ イル 名 が 返さ れ て いれ ば 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル を 組み 込ん 
だ 標準 フォ ー ム 「Forml] の イン スタ ンス を 、Dim..New ステ ー ト メン ト で 作成 し 
ます 。 作成 され た オブ ジェ クト は 、「TextForm」 と いう 名 前 に し ます 。 


Dim TextEForm AS New Form1 


そし て 、 作 成 し た イン スタ ンス の 子 フ ォ ー ム を 表示 し ます 。 ま た 、 そ の ファ イル 

名 を フォ ー ム の キャ プシ ョ ン に 表示 し 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の 
[LoadFile] メソ ッ ド に 引き 当て ます 。 リ ッ チ テキ スト ボッ クス コン トロ ー ル は 、 フ 
ァイル の 内 容 を 読み 込み 表示 し ます 。 


With "TexxEForm 
・Show 
・Capion = Fname 
-RichmextBox1 .LoadF1i1e Fname 


最後 に リッ チ テ キス ト ボ ックス コン トロ ー ル の 幅 と 高き を 、 子 フォ ー ム の 幅 と 
高き の 変更 に 連動 させ る 処理 を 作成 し て お きま す 。 理由 は 、「Form1l] の コー ド で 説 
明 し ます 。 


-・RichmextBox1 .W1Qdth = .Widadth - 700 
-RichmextBox1 .Heigh モ = .Height - 700 
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これ で 、 テ キス ト フ ァイル を 表示 する 処理 が 完成 で す 。 











| の ネス ボッ ラス コト ロー 
も 


や 往 イ ン テ ント な どの 
陸 守 4 の 員 の 誤 定 取 向 は 、 コ モン ダイ アロ グ ボ ッ 還 
リッ チ テ キス ト ボ ックス は 、 
フォ ー ム より 1 まわ り 小 さ 
く 表示 され る 


間 コ ー ド を 遇 説 する 前 に 、 リッチ テキ スト ボッ クス コン トロ ー ル の 機能 の 





同様 の 方 法 で 、 イ メー ジフ ァイル を 表示 する 処理 を 作成 し ます 。 ユ ー ザ ー 定 義 
の Sub プ ロ シ ー ジ ャ 「OpenImage」 を 作成 し 、 フ ァイル 名 を 格納 する 変数 
「Fname」 を 宣言 し ます 。 


Pub1ic Sub OpenTmage( ) 
Dim Fname As String 


次 に 、Function プロ シー ジャ 「GetSource]」 を 、 引 数 に 文字 列 [IMG」 を 設定 
し て 実行 すれ ば 、 イ メー ジフ ァイル 用 の コモ ンダ イア ログ ボッ クス が 表示 され ま 
す 。 


Fname = GetSouroe ( " エ MG" ) 





イメ ー ジ ファ イル 用 の 
コモ ンダ イア ログ ボッ クス 





コモ ンダ イア ログ ボッ クス の [キャンセ ル ] ボタ ン が クリ ッ ク さ れれ ば 、 こ の 
プロ シー ジャ を 終了 し ます 。 
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エ F Fname = "" Then 
Ex エミ 上 Sub 
End TE 


ファ イル 名 が 返さ れれ ば 、 戻 り 値 の ファ イル 名 を 使用 し て 、 今 度 は イメ ー ジ コン 
トロ ー ル を 組み 込ん で いる フォ ー ム 「Form2] を 基 に イン スタ ンス を 作成 し て 、 オ 
プ ジ ェ クト 名 を 「ImageForm2] に し ます 。 そ し て 、 イ ンス タン ス の 子 フ ォ ー ム を 
表示 し 、 フ ォ ー ム の キャ プシ ョ ン に ファ イル 名 を 設定 し ます 。 ま た 、 イ メー ジコ ン 
トロ ー ル の [Picture] プロ パテ ィ に 、LoadPicture 関数 を 使用 し て イメ ー ジ ファ イ 
ル を 設定 し 表示 し ます 。 


Dim TmageForm AS Nevw Form2 
With TmageForm 

・Show 

・Caption = Fname 

・ エ mage1 . P1 で 上 u エ G = LoadP1oure (Fname ) 
End With 


これ で 、 イ メー ジ を 表示 する プロ シー ジャ は 完成 で す 。 


すでに 、 ツ ー ル バー コン トロ ー ル の イベ ント プロ シー ジャ で は 、 作成 した テキ ス 
ト と イメ ー ジ を 表示 する プロ シー ジャ を 呼び 出す コー ド を 記述 し て あり ます か ら 、 
あと は メニ ュー コン トロ ー ル の それ ぞ れ の イベ ント プロ シー ジャ に 設定 し て 、 メ ニ 
ュー か ら も 呼び 出せ る よう に し ます 。 


P ェ ュ で ate Sub TDM TEXm〒 C1iok( ) 
Ca11 Openmex 
End Sub 


P ェ ュ vate Sub TDM TMAGE C11ok( ) 


Ca11 OpenTmage 
End Sub 


また 、[ フ ァイル ] メニ ュー の [終了 ] の Cliick イ ベン ト プ ロ シー ジャ に 、 プ ログ 
ラム の 終了 処理 を 作成 し て お きま す 。 


P ェ ミュ で ate Sub TDM 互 X エ mm C1iok( ) 
Un1oad Me 
End 

End Sub 
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0 炎 に 、[ ウ ィ ン ド ウゥ ] メニ ュー の 、 子 フォ ー ム の ウィ ンド ウ 表 示 を 変更 する 処理 を 
作成 し ます 。MDI フ ォ ー ム の [Arrange] プロ パテ ィ を 使う と 、MDI フ ォ ー ム 内 の 
子 フ ォ ー ム の ウィ ンド ウ 表 示 を 変更 で きま す 。 た と えば 、 


MDTForm1 .A エ ェ エ angeG YbCascade 


と 設定 する と 、MDI フ ォ ー ム 内 の フォ ー ム は すべ て 重ね て 表示 きれ ます 。 
[Arrange] プロ パテ ィ の 値 は 、 表 示す る ウィ ンド ウス タイ ル を 定数 で 設定 し ます 。 














値 内 容 
| voCascde 。。。 |0 | 更 c 表 し ます 9。 
| Vermehorgonta| |! | ic 才 で て 示し ます 。 
| yomievenic |8 | ERcMe< で 示し ます 。 
| Araneelcons | 3 | フォ ー ム の アイ コン を 史 し ます 。 


この 値 を 、 そ れ ぞ れ の メニ ュー の Click イ ベン ト プ ロ シー ジャ に 設定 すれ ば 、 メ 
ニュ ー で ウィ ンド ウ の 表示 を 変え る こと が で きま す 。 


定数 


P ェ ュ ivate Sub TDM CASCADE C1ick( ) 
MDTForm1 .A エ range YbCascade 
End Sub 


P ェ ivate Sub TDM HORT C1iok( ) 
MDTForm1 .A ム エエ andG YDT エ 1eHO ェ ミュ zoOn モ a1 
End Sub 


P ェ ivate Sub TDM VERT C1ick( ) 
MDTForm1 .A エ エ amndG で bT1 エ TGVe ェ ヒュ Ca1 
End Sub 


上 骨 MDI フォー ム の 処理 が 完成 し た ら 、 今 度 は テキ スト を 表示 する フォ ー ム に 、 リ ッ 
チ テ キス ト ボ ックス コン トロ ー ル の 表示 サイ ズ を 自動 調節 する 処理 を 組み 込み ます 。 
イン スタ ンス と し て 作成 し た 子 フ ォ ー ム は 、 ユ ー ザ ー が ウィ ンド ウサ イズ を 自由 に 
変更 で きる 「 可 変 ] フォ ー ム に な っ て いま す 。 

また 、 子 フォ ー ム は 、 全 画面 表示 に で きま すか ら 、 フ ォ ー ム の サイ ズ 変 更に あわ 
せ て リッ チ テ キス ト ボ ックス コン トロ ー ル の サイ ズ も 変更 きせ な いと 、 お か し な 表 
示 に な っ て し まい ます 。 そ こ で 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の [Width] 
と [Height] プロ パテ ィ の 値 を 、 フ ォ ー ム の [Width] と [Height] プロ パテ ィ の 
値 を 使っ て 設定 させ れ ば 、 フ ォ ー ム の サイ ズ が 変わ っ た 時 点 で 、 自 動 的 に リッ チ テ 
キス ト ボ ックス コン トロ ー ル の サイ ズ も それ に 合わ せ て 変更 され る よう に な り ま す 。 
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Ag 
1 IS ント 間 人 や ント な の 人 


民 介 コミ コモ ンタ イア 


リッ チ テ キス ト ギ ックス コン トロ ー ル の 醒 能 の 概要 を 3 ョ 詞 
ーmーーー 和 


サイ ズ を 調節 し な いと 、 サイ ズ を 調節 する と 、 
お か し な 表示 に な る きれ い に 表 示さ れる 


テキ スト 用 の 子 フ ォ ー ム は 、 フ ォ ー ム 「Form1l」 の イベ ント プロ シー ジャ に 設定 
し た 処理 が その まま 継承 され ます 。 ま た 、 フ ォ ー ム の サイ ズ が 変更 きれ る と 、 
「Resize」 と いう イベ ント が 発生 し ます 。 そ こ で 、「Form1」 の 「Resize」 イベ ント 
プロ シー ジャ に 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の サイ ズ を 自動 調節 する コ 
ー ド を 作成 すれ ば 、 イ ンス タン ス の 子 フ ォ ー ム に も 適用 きれ ます 。 

まず 、 フ ォ ー ム の [WindowState] プロ パテ ィ の 値 を 調べ 、 子 フォ ー ム が 現在 ア 
イコ ン 状 態 に な っ て いな いか どう か を 調べ ます 。 ア イコ ン 状 態 で リッ チ テ キス ト ボ 
ックス コン トロ ー ル の 幅 の 調節 を 実行 し よう と する と エラ ー に な っ て し まい ます か 
ら 、 ア イコ ン 状 態 以外 の と き に この 処理 を 行う よう に し ます 。 

あと は 、 フ ォ ー ム の [Width] と [Heightl プロ パテ ィ の 値 を リッ チ テ キス ト ボ 
ックス コン トロ ー ル の [Width] と [Heightl プロ パテ ィ に 設定 し ます 、 こ の と き 、 
それ ぞ れ 「-700]」 と マー ジン の 分 を 差し 引い て 設定 すれ ば 、 見 た 目 が きれ いな フォ 
ー ム に な り ま す 。 





Private Sub Form_ Resize() 
エ F Me .WindowState <> vbMinimized Then 
With RiohTmexEBoxx1 
-Width = Me.Width - 700 
-Height = Me.Height - 700 
End With 
End エモ 
End Sub 


この イベ ント プロ シー ジャ は 、 フ ォ ー ム の サイ ズ が 変更 きれ れ ば 常に 呼び 出さ れ 
て 実行 ミ きれ ます か ら 、 フ ォ ー ム が 最大 化 状態 に な っ て も 、 そ れ に 連動 し て リッ チ テ 
キス ト ボ ックス コン トロ ー ル の サイ ズ が 拡大 ほれ る よう に な り ま す 。 
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以上 で 、 プ ログ ラム は 完成 で す 。 コ モン ダイ アロ グ ボ ックス を 使っ て 、 テ キス ト や 
イメ ー ジ ファ イル を いく つ で も 開け る ビュ ー ワ が 完成 で す 。「 ウ ィ ン ド ウ 」 メニュー を 
使え ば 、 選 ん だ フォ ー ム を アク ティ ブ に し て 最前 面 に 表示 で きま す 。 

ここ で は 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル と イメ ー ジ コン トロ ー ル を 使っ た 
MDI フォ ー ム プロ グラ ム を 作成 し まし た が 、 ほ か に も フレ キシ ブル グリ ッ ド コン トロ 
ー ル を 使う な ど 、 コ ント ロー ル と フォ ー ム の 組み 合わ せ で いろ いろ な プロ グラ ム が 作 
成 で きま す 。 

Function プロ シー ジャ は 、 関 数 と 同様 の 処理 を 自分 で 作成 で きま す 。 引数 を 指定 
し た り 、 実行 結果 を 受け 取る こと が で きる の で 、 汎 用 の プロ シー ジャ を 作成 する 場合 
は 、 威 力 を 発揮 し ます 。 戻 り 値 を 返す に は 、 プ ロ シ ー ジ ャ と 同じ 名 前 の 変数 を 使う 、 
と いう の が ポイ ント で す 。 


c》 練習 問題 


組み 込ん で 表示 する プロ グラ ム に 修正 し て くだ さい 。 ま た 、 ス テー タ 
スバ ー コ ント ロー ル を 組み 込み 、 時 刻 表示 を する よう に し て くだ さい 。 

な お 、 ア イコ ン は 、 す で に MDI フォ ー ム に 配置 し こい る イメ ー ジ リス 
トコ ント ロー ル か ら 使用 し て くだ さい 。 


O ひ 1 テキ スト 用 フォ ー ム と イメ ー ジ 用 フォ ー ム に 、 そ れ ぞ れ 別 の アイ コン 
を 





解答 は 巻末 に 一 











詩 6 日 (Lesson18 Lesson ら 1 ) 
イン ター ネッ ト 

















プロ グラ ム の 作成 





Visual Basic 6.0 に 付属 の ActiveX コン トロ ー ル に 、「Microsoft Internet 
Transfer Control 6.0] (イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル ) が あり ま 
す 。 こ れ は 、 イ ンタ ーネット の プロ トコ ル で ある 「HTTP」 と 「FTP]」 プロ トコ ル 
を 使っ て 、 サーバ ・ ク ライ アン ト 間 の デー タ 転 送 を 行い ます 。 今日 の レッ スン で は 、 
この コン トロ ー ル を 使っ て 、Web に ある HTML を 自動 ダウ ン ロ ー ド する プロ グラ 
ム と FTP プロ トコ ル で サー バ の ディ レク トリ を 取得 する プロ グラ ム を 作成 し ます 。 
今日 の レッ スン で 解説 する 項目 

ロイ ンタ ーネット トラ ンス ファ ー コ ント ロー ル の 機能 

口 HTTP プロ トコ ル で の 転送 方 法 

品 「Execute] メソ ッ ド を 使っ た HTML ファ イル の ダウ ン ロ ー ド 

ロロ 「StateChanged] イベ ント の 役割 と 使い 方 

品 「GetChunk」 メソ ッ ド で の 転送 デー タ の 取り 出し 

ロ Shell 関数 で 他 の プロ グラ ム を 起動 する 

ロロ FTP プロ トコ ル の コマ ンド の 使用 方 法 

リス トビ ュー コン トロ ー ル の 機能 

ロロ ビュ ー の 切り 替え 方 法 

ロア イコ ン の 組み 込み と 項目 名 の 設 

ロロ Report ビュ ー で の コラ ム ヘ ッ ダー の 設 

ロロ サブ アイ テム の 追加 

ロク リッ ク さ れ た 項目 の 取得 方 法 

ロリ スト ビュ ー コ ント ロー ル を 使っ た ディ レク トリ 情報 の 表示 

ロロ プロ グレ スバ ー を 使っ た ダウ ン ロ ー ド 状況 の 表示 

品 「GET」 コマ ンド に よる ファ イル の ダウ ン ロ ー ド 
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ホー ムペ ー ジ ダウ ン ロ ー ド プロ グラ ム の 作成 


最初 は 、 イ ンタ ーネット に 接続 し た 状態 で 、 指 定 し た URL の HTML を 
ダウ ン ロ ー ド し 、HTML テキ スト を リッ チ テ キス ト ボ ックス コン トロ 
ー ル に 表示 する プロ グラ ム を 作成 し ます 。 ダ ウン ロー ド し た HTML は 、 
テン ボラ リフ ァイル と し て 保存 され 、 イ ンタ ーネット エク スプ ロー ラ を 
使っ て 表示 させ ます (た だ し 、 テ キス ト の み で グラ フィ ッ ク は 保存 し ま 
せん )。 


今回 作成 する プロ グラ ム 





く htm じ 

< く head> 

く meta http-equiy=" Cantent-Type" 8 
content="text/html charset=x-sjis”> ダウ ン ロ ー ド し た 
く meta name="GENERATOR" content=" Microsaft FrontPage 40"> ss 
NNNYCCTNAIOWKANIS HTML テキ スト 
head> 


を ここ に 表示 する 
く bady bgcolor="#DABADA> 
く diy align="center"> く center> 


く table border="2"> 
く <W> 


</table> 


| 
/ く td><font color=" 紹 OO80" size="6">jmformation</font> く /td> 
く /tr> 
く /center> く /div> 


く p align="center"> く /p> 
く diy align="center"> 
く center> 


fahle hnrdar=72" allnaddine=" RT iaidfh" RFWT > 選 | 


イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル を 使っ て 、HTTP プ 
ロト コル で 指定 し た URL の Web サー バ に アク セス し 、HTML を ダ 
ウン ロー ド し ます 。 ダ ウン ロー ド し た HTML ドキ ュ メ ント は 、 フ ォ 
ー ム に 配置 し た リッ チ テ キス ト ボ ックス コン トロール で 表示 し ます 。 
また 、Shell 関数 を 使用 し て イン ター ネッ ト エ クス プロ ー ラ を 呼び 出 
し 、HTML を 表示 し ます 。 
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用 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


見 ツー ル パ レ ッ ト に 次 の コン ポー ネン ト を 追加 する 


念 Microsoft Internet Transfer Control 6.0 
念 Microsoft Rich Textbox Control 6.0 
人 @ Microsoft Windows Common Controls 6.0 


田 る コー 


ツー ル パ レ ッ ト に コモ 
ンコ ント ロー ル が 追加 
され る 





フォ ー ム を 広げ 、 ツ ー ル パレ ッ ト の [StatusBar] 
「 記 を 使っ て 、、 ス テー タス バー を 配置 する 


ーー 











に 斜め に ドラ ッ グ 
| 232 内 She 二 = ミ ocE き まこ し て 配置 








コン ポー ネン ト を 
追加 さる 

コン ポー ネン ト を 追加 す 
る 方 法 に つい て な は 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 
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(回 江 天 ペ 三 
ぐ ア 近 タイ アロ ク 
ZI ロティ ペー ニ ジ ダ イ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し 、 プ ロ パ ティ ウィ 
ンド ウ の [( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 大 
欄 の 「[..] ボタ ン を クリ ッ 
ググ し ます 。 


< コマ ンド ボタ ン を 
ンプ 配置 する 

コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル バレット 
の [CommandButton] 回 
を 使い ます 。 と 





[プロ パテ ィ ペ ー ジ ] の [パネ ル ] タブ で 、[ サ イズ 
の 自動 設定 ] を 「1 一 sbrSpring」 に 設定 する 


全 和 Pidfohfroori ニー ニャー ニーーーーーーーーーーー」 還 目 な だ 多 り りみ 










zz0 [F が の 挿入 QO | 間際) | 
引 の 





ケル ヒル ト 9: 
キ ⑯⑩ 「。 最小 幅 W: Fm 「1 - sbrSpring]」 
め め ⑯ HG 1 





ミル 


に 設定 


攻 [OK] を クリ ッ ク 


フォ ー ム に コマ ンド ボタ ンコ ント ロー ル を 4 つ 配 置 
し 、 各 ボタ ン の プロ パテ ィ を 次 の よう に 設定 する 


コン トロ ー ル 
Command 1 
Command ら 
Command3 





オブ ジェ クト 名 
GetBtn 

| SaveBtn 

| ViewBtn 


Caption 





Command4 


フォ ー ム に 配置 し て 
プロ パテ ィ を 変更 し 
だ コマ ンド ボタン 








ツー ル パ バレ ッ ト の [inet] ! 軸 | を 使っ て 、 イ ンタ ー 
ネッ トト ラン ス フ ァ ー コ ント ロー ル を 配置 する 


斜め に ドラ ッ グ 
し て 配置 
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6⑮ ツー ル パ レ ッ ト の [HichTextBox] 軸 を 使っ て 、 コン トロ ー ル の 還 
リッ チ テ キス ト ボ ックス コン トロ ー ル を 配置 する 0 


この と き 、 イ ンタ ー ネ ッ 
トト ラン ス フ ァ ー コ ント 
ロー ル が 隠れ て いま す が 、 
この コン トロ ー ル は プロ 
グラ ム 実 行 時 に は フォ ー 
ム 上 に 表示 きれ ませ ん の 
で 、 重 な っ て いて も だ い 
じょう ぶ で す 。 








と こ を クリッ ルク 
ここ を クリ ッ ク 











ide 。 1-rtfOLEDragAuton 
ide 2 - rtfOLEDropAutolr 
0 

0U - rtfNone 
1 - rtfHorizontal 
2 - rtfVertical 

E 馬 rtfBoth 












ング ウッ グ 





[Text] プロ パテ ィ を 「 こ こ に HTML の 内 容 が 表示 
され ます 。] に 変更 する 








| 人 | 項目 旨 | 
OLEDropNMode 2 - rtfOLEDropAutomatic 
RightMargin n 





3- rtfBoth 
5 
True 


ここ に HTMIL の 内 容 が 表示 され ます 。 ーー 年 四 に に に 入力 | 





う の 
第 B 日 1 時 限 目 イン ター ネッ トブ ログ ラム の 作成 





ひ 完成 し た ユー ザー イン ター フェ イス 















コー ド の 記述 


ョ Form1:GetBtn-Click 


( 1 








Erivate Sub GetBtn C1iok( ) 
Dim GetU エ 1 As String 


StatusBar1 .Pane1s(1) .Text = "Run" 
GetU エ 1 = "htp: / /ww . も 1 . Or . Jp/-Se モ o/inEo .htm" 
エ ne1 。ExxGCu モ G GeGEU エ 1 , "GET 

End Sub 


ョ Form1:Inet1-StateChanged Fe ーー 






[en [Sstechaneed | 





Private Sub Tnet1 StateChanged (ByVa1 State As Tnteger ) 
Dim GetData AS Va エ ュ an ヒ 
ェ エ FE State = ioResponseComp1eted Then 
MsgBox "Comp1eted" 
GetData = Tne1 .GetChunk(5000, 1cCSt ェ ng ) 
RiohTmexxEBoxx1 . mexx モ = GetDa モ a 


StatusBar1 .Pane1s(1) .Tmext = "m 
End エモ 
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是 F0rm1:Savehtn-Click 


IO) 








Private Sub Savebtn C1ick( ) 
Ca11 SaveH 上 m1 
正 nd Sub 














ョ Form1:ViewBtn-Click 





1-I ロ >| 


IMiewBm | ICiick 
P ェ ivate Sub ViewBtn C1iokK( ) 

Ca11 SaveH モ m1 

She1 1 "で C =: 釜 P エ Od エ am F エ GS エ ロモ ら エ ne ExxD1 〇 と @ 了 区 エ EXPTLORE EXE" を 





"で: 将 temp .htm" , YbNorma1FocCus 
End Sub 


Form1:(6eneral-SaveHtml 








吊 















EE に il 還 ら 中 


(Generalb ェ ISayeHtml 選 


| Private Sub SareHtm1 ( ) 

Open "Co: も temp.htm" Fo Output As 提 1 
P ェ ュ n モ 提 1, RiohTmextBoxr1 . mex モ 

| C1ose #1 

| End Sub 





Form1:ExitBtn-Click 






| 剛 lesson18 - Form1 ロー ト ) 





P ェ ュ vate SuD 互 x ふ 上 Btn C1ick( ) 
Un1oad Me 
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川 











Form1:Form-Resize 








Private Sub Form Resize( ) 
エ F WindowStae <> で bMinimized Then 
With RiohmexxtBox1 
・Width = Form1.W1dth - 500 
・Heigh = Form1.Height - 1500 
End With 
End TE 











上 イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル は 、 イ ンタ ーネット の 2 つの プロ ト 

コル で ある 「HTTP」 と 「FTP] プロ トコ ル を 操作 する コン トロ ー ル で す 。「HTTP] 
プロ トコ ル は 、 ホ ー ム ペー ジ で 有名 な WWW (World Wide Web) サー バ に アク セ 
ス し 、 指 定 し た HTML フ ァイル の 読み 込み な ど を 行う こと が で きま す 。 

この プロ グラ ム で は 、 イ ンタ ーネット トラ ンス ファ ー コ ント ロー ル で 「HTTP」 
プロ トコ ル を 操作 し 、 特 定 の URL の HTML フ ァイル を ダウ ン ロ ー ド し ます 。 ダウ 
ン ロ ー ド し た HTML フ ァイル は 、 い っ た ん バッ ファ に 格納 きれ ます の で 、 そ れ を 読 
み 出 し て リッ チ テ キス ト ボ ックス コン トロ ー ル に 表示 し ます 。 

で は 、 簡 単に プロ グラ ム の 動作 を 説明 し ます 。 


① あ ら か じ め 、 コ ンピュータ を イン ター ネッ ト に 接続 し て お きま す 。 


イン トラ ネッ ト の 場合 は 、 フ ァ イ ア ウォ ー ル の 設定 に よっ て は 、HTML ドキ ュ メ ン 
ト の ダウ ン ロ ー ド が で き な い 場合 が あり ます 。 そ の 際 は 、 ネ ットワーク の シス テム 管理 
者 に プロ キシ サー バー の アド レス な ど を 問い 合わ せ て くだ さい 。 
(プロ グラ ム は 、URL を 筆者 の ホー ムペ ー ジ に 指定 し て いま す 。 


て p : / /Www .b1 . Oo て. Jp/-seto/nFo .htm 


プロ グラ ム を 起動 し [Getl ボタ ン を クリ ッ ク す る と 、 指 定 し た HTML フ ァイル 
を ダウ ン ロ ー ド し ます 。 
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ここ を クリ ッ ク す る と 、 
HTML ファ イル が ダウ ン 
ロー ド さ れる 








③ 転 送 が 終了 する と 、 メ ッ セ ー ジ ボッ クス が 表示 され ます 。 





《④ メ ッ セ ー ジ ボッ クス の [OK] ボタ ン を クリ ッ ク す る と 、 リ ッ チ テキ スト ボッ ク 
スコ ント ロー ル に 、 ダ ウン ロー ド し た HTML の 内 容 が 表示 され ます 。 












ダウ ン ロ ー ド し た 
HTML の 内 容 





(<body becolor="#DABADA"> 
div align=" center"> く center> 


<table border="2"> 
<: 


2 eS が t color=" 約 OOO80" se="6">jnformation</font> く /td> 
人 


</table> 
</center></div> 
<p align="center"> </p> 
div align="center"> 

く center> 





<+ahla hordar=" 9" callnaddne="RY idth=" RW > 


⑤ [Save] ボタ ン を クリ ッ ク す る と 、 ダ ウン ロー ド し た HTML の 内 容 を 、 
「c:\temp.htm」 と いう 名 前 で テン ポラ リフ ァイル を 作成 し 保存 し ます 。 





第 6 日 1 時 限 目 イン ター ネッ ト プ ロ グラ ム の 作 


⑥ [View] ボタ ン を クリ ッ ク す る と 、 イ ンタ ーネット エク スプ ロー ラ を 起動 し 、 こ 
の テン ポラ リフ ァイル を ブラ ウザ に 表示 し ます 。 





= で は 、 コ ュー ド を 作成 し て いき まし ょ う 。 最 初 に 、[Get] ボタ ン の 処理 で す 。 
変数 「GetUrll] を 宣言 し ます 。 こ の 変数 に は 、 こ れ か ら ア クセ ス す る ホー ムペ ー 
ジ の URL を 格納 し ます 。 次 に 、 ス テー タス バー コン トロ ー ル に 「Run| と いう 文字 
を 表示 し 、 こ れ か ら ダ ウン ロー ド を 開始 する こと を 表示 し ます 。 


Private Sub GetBtn C1iok( ) 
Dim GetU エ 1 As String 


StatusBar1 .Pane1s(1) .Tmext = "Runr 


また 、 変 数 「GetUrl] に 、URL を 格納 し ます 。 


GeU エ 1 = "hp : / /www . や bg .O エ Jp/-Beto/inEo .htmr 


る HiTTP プ ロト コル を 実行 する に は 、 イ ンタ ーネット トラ ンス ファ ー コ ント ロー ル 
の 「Execute] メソ ッ ド を 使用 し ます 。 こ の メソ ッ ド は 、 引 数 に HTTP プ ロト コル 
の コマ ンド を 指定 する と 、 そ の コマ ンド を 実行 し て くれ ます 。Execute メ ソ ッ ド が 
サポ ー ト し て いる HTTP プロ トコ ル の コマ ンド は 、 次 ペー ジ の と お り で す 。 
ここ で は 、 指 定 し た URL の HTML フ ァイル を ダウ ン ロ ー ド し ます の で 、「GET」 
コマ ンド を 指定 し ます 。 


エ ne1 .EzxeCu も 上 G GeEU エ 1 , "GET" 
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【Execute メソ ッ ド の 書式 】 
Ob]@ ご も - 正 芝 G ご Cu 上 G [u エ 1 [, OpG エ aion [ , da モ a[, requesHeaders] ] ] ] 


objeot 対象 と な る オブ ジェ クト (イン ター ネッ トト ラン ス フ ァ ー コ ント ロー 
ル な ど ) を 指定 し ます 。 

u ェ 1 コン トロ ー ル の 接続 先 と な る usr を 指定 し ます 。 省 略 可 能 。uRr を 指 
定 し な か っ た 場合 は 、uRr プロ パテ ィ の usr が 使用 され ます 。 

Opera モ ion 実行 する コマ ンド を 指定 し ます 。 省 略 可 能 。 サ ポー ト さ れ て いる grwp 
プロ トコ ル の コマ ンド に つい て は 、 下 の 表 を 参照 し て くだ さい 。 


data 省略 可能 。 操 作 に 使用 する デー タ を 文字 列 で 指定 し ます 。 

requestHeaders 省略 可能 。 リ モー ト サ ー バ ー か ら 送 信 さ れる 追加 ヘッ ダー を 文字 列 で 
指定 し ます 。 

く HTTP プロ トコ ル の コマ ンド > 


ココ 
GET 指定 し た URL、 ま た は URL プロ パテ ィ に 設定 され て いる URL か ら デ ー タ 
を 取得 し ます 。 


要求 ヘッ ダー を 送信 し ます 。 


POST デー タ を サー バー へ ポス ト し ます 。 デ ー タ は 、 引 数 data で 指定 し ます 。 


この 操作 で は GET と 同じ こと が で きま す が 、 こ の 場合 は 、 引 数 data に 追 
加 命 令 を 指定 し ます 。 


PUT Put 操作 。 置 き 換 える ペー ジ の 名 前 は 、 引 数 data で 指定 し ます 。 





これ で 、 著 者 の WWW サー バ か ら 「info.htm] と いう ファ イル を ダウ ン ロ ー ド し 
て きま す 。 な お 、 こ の Execute メ ソ ッ ド は 、 非 同期 で サー バ と の 接続 を 行う た め 、 
転送 が 行わ れ て いる 間 も 、 他 の 処理 を 実行 で きま す 。 


[GET」 コマ ンド を 開始 する と 、 イ ンタ ーネット トラ ンス ファ ー コ ント ロー ル に 
は 「StateChanged] と いう イベ ント が 発生 し ます 。 こ の イベ ント プロ シー ジャ は 、 
引数 [State] を 持ち 、 現 在 コ ント ロー ル が どう いう 状態 に な っ て いる の か を 定数 で 
格納 し て いま す 。 つ まり 、 こ の プロ シー ジャ を 利用 する こと で 通信 状況 を 正しく 把 
握 す る こと が で きま す 。 

HTML フ ァイル の ダウ ン ロ ー ド 中 、 あ る い は ダウ ン ロ ー ド 完了 時 に 、 プ ログ ラム 
に な に か 処理 を させ た い 場 合 は 、 こ の イベ ント プロ シー ジャ を 活用 し ます 。 こ こ で 
は 、 ダ ウン ロー ド が 完了 し た ら 、 メ ッ セ ー ジ ボッ クス で ユー ザー に 知ら せ 、HTML 
ファ イル を リッ チ テ キス ト ボ ックス コン トロ ー ル に 表示 する 処理 を 行う よう に きせ 
で み ま し ょ よう 。 
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まず 、 ダ ウン ロー ド し た 内 容 を 格納 する 変数 「GetDatal を バリ アン ト 型 で 宣言 
し ます 。 


E ェ ivate Sub Tnet1 StateChanged (ByVa1 State As エ nteger ) 
Dim Get 上 Daa AS Va エエ an モ 


次 に 、Tf ス テー トメ ント で 、 イ ベン ト プ ロ シー ジャ の 引数 「State」 の 内 容 を 判断 
し ます 。 

ここ で は 、 ダ ウン ロー ド が 完了 し た 時 点 で 、HTML の 内 容 を リッ チ テ キス ト ボ ッ 
クス コン トロ ー ル に 表示 する よう に し ます か ら 、 す べ て の デー タ が 受信 完了 し た か 
どう か (すなわち 「State」 が 「icResponseCompleted」 の と き ) を 調べ ます 。 


ェ エ F State = ioResponseComp1eted Then 


引数 「State」 に 格納 され る 定数 に つい て は 、 以 下 の 「Column| を 参照 し て くだ 
きい 。 








StateChanged イベ ント プロ シー ジャ の 引数 State に 格納 され る 定数 


| 症 還 | 


eee | 状態 に つい て の 報告 は あり ませ ん 。 


icResolvingHost コン トロ ー ル は 、 指 定 さ れ た ホス トコ ンピュータ の IP アド レス を 調 
べ て いま す 。 


icHostResolved コン トロ ー ル は 、 指 定 さ れ た ホス トコ ンピュータ の IP アド レス を 見 
つけ まし た 。 


icConnecting コン トロ ー ル は 、 ホ スト コン ピュ ー タ と の 接続 処理 を 行っ て いま す 。 
icConnected コン トロ ー ル は 、 ホ スト コン ピュ ー タ と 正常 に 接続 し まし た 。 
icRequesting コン トロ ー ル は 、 ホ スト コン ピュ ー タ に 要求 を 送信 し て いま す 。 
icRequestSent コン トロ ー ル は 、 要 求 を 正常 に 送信 し まし た 。 

icHeceivingResponse コン トロ ー ル は 、 ホ スト コン ピュ ー タ か ら の 応答 を 受信 し て いま す 。 
icResponseHeceived コン トロ ー ル は 、 ホ ス トコ ンピュータ か ら の 応答 を 正常 に 受信 し まし た 。 
icDisconnecting コン トロ ー ル は 、 ホ スト コン ビュ ー タ と の 接続 を 解除 し て いま す 。 
icDisconnected 10 | コン トロ ー ル は 、 ホ スト コン ピュ ー タ と の 接続 を 正常 に 解除 し まし た 。 
icError ホス トコ ンピュータ と の 通信 中 に エラ ー が 発生 し まし た 。 
icRHesponseCompleted | 12 | 要求 処理 が 完了 し 、 す べ て の デー タ が 受信 され まし た 。 














人 朋 信 が 完了 し た ら 、 メ ッ セ ー ジ ボッ クス で 完了 し た こと を 示し ます 。 


MsgBox "Comp1eted" 
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メッ セー ジ の 表示 





そし て 、 受 信 バ ッ フ ァ に ある HTML の 内 容 を 変数 に 格納 し ます 。HTTP プロ トコ 
ル の GET コマ ンド で 取得 し て きた HTML フ ァイル の 内 容 は 、 い っ た ん バッ ファ に 
格納 され ます 。 そ こ で 、「GetChunk| メソ ッ ド を 使用 し て 、 バ ッ フ ァ か ら 内 容 を 取 
り 出 し ます 。「GetChunk] メソ ッ ド は 、 引 数 に バッ ファ か ら 取 り 出 す デ ー タ の サイ 
ズ と 、 文 字 列 で 取得 する の か 、 バ イト 配列 で 取り 出す の か を 指定 し ます 。 

Execute メ ソ ッ ド で ダウ ン ロ ー ド を 指定 し た HTML フ ァイル は 、 約 5KB の サイ ズ 
な の で 、 こ こ で は デー タ サ イズ を 「5000]」 に し 、 文 字 列 で 取り 出し て いま す 。 


GetData = Tnet1 .GetChunk(5000, 1cCSt ェ ing) 


ROOTILIKKKKKKIIEEKLKERKIRREKIRRRIIRRLLKKKKRKEKKEEKKEEKKKKEKKLLKKLKEKLKKKTYLKEKKEKEEKEKK さ KK ミミ こよ 


【GetChunk メソ ッ ド の 書式 】 
Object . GetChunk(s1ze [,datatype] ) 


objeot オブ ジェ クト を 指定 し ます 。 

Size 取得 する チャ ンク (ひと まとまり の デー タ ) の サイ ズ を 長 整 数 で 指定 
し ます 。 

datatype 取得 する チャ ンク の デー タ 型 を 整数 で 指定 し ます 。 

く datatype の 定数 > 


定数 呈 は | 
| icString | 0 | デー タ を 文字 列 と し て 取得 し ます 。 既 定 値 で す 。 


| icByteAray | 1| デー タ を バイ ト 配 列 と し て 取得 し ます 。 





受信 バッ ファ の 内 容 を 変数 に 格納 し た ら 、 こ れ を リッ チ テ キス ト ボ ックス コン ト 
ロー ル の [Text] プロ パテ ィ に 代入 し ます 。 ま た 、「Run]| と 表示 させ て いた ステ 
ー タ スバ ー コ ント ロー ル の 文字 列 を 削除 し ます 。 


RichTmexBoxx1 . meGx ヒ 上 = GetDa モ a 
StatusBar1 .Pane1s(1) .TexE = "『 
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これ で 、HTML フ ァイル の ダウ ン ロ ー ド 処理 が 完了 し まし た 。 


| HTML の 内 容 が 表示 され る 


6 | 
ドド meta name= GENERATOR 2 Microsoft FrontPage 4P> 
ile>formation</ttle> 


抱 
| |Pody becolor="#DABADA > 
"> く center> 


dv allen="center 
ee beder 2 ダッ > 
. 
M pc color=" 00080* size="6">jnformation</font や く /td> 
. 


用 slen=Tcener" > SC 
epicane? 
| <center 


<① ュ he hoyder="2" ccllnsddinz! 





( [Save] ボタ ン が クリ ッ ク さ れ た と き は 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル 
の 内 容 を ファ イル に 書き 出し ます 。 こ の 処理 は 、 独 自 の ユー ザー 定義 プロ シー ジャ 
「SaveHtmll を 作成 し 、 こ れ を 呼び 出し ます 。 


Private Sub Savebtn C1ick( ) 
Ca11 SaveHtm1 
End Sub 


ユー ザー 定義 プロ シー ジャ 「SaveHtmll は 、 最 初 に 「Open]l メソ ッ ド で 
「c:\temp.htm] と いう テン ポラ リフ ァイル を 、 シ ー ケ ン シ ャ ル の テキ スト モー ド で 
作成 し ます 。 そ し て 、 こ こ に 「Print #] ステ ー ト メン ト で 書き 込み ます 。 こ れ で 、 
原文 どおり に HTML フ ァイル を 再現 し て 保存 で きま す 。 書き込ん だ ら 、Close メソ 
ッ ド で ファ イル を 閉じ ます 。 


private Sub SaveHtm1 ( ) 
Open "CEemp .htm" Fo Output As 1 
Pin 韻 1。 RiochTmexEBox1 . mex セ 
C1ose #1 

End Sub 


[View] ボタ ン は 、Shell 関数 を 使用 し て 、 イ ンタ ーネット エク スプ ロー ラ を 起動 
し ます 。 こ の と き 、 最 新 の HTML を 表示 する た め に 、 一 度 リ ッ チ テキ スト ボッ クス 
コン トロ ー ル の 内 容 を テン ポラ リフ ァイル に 保存 する た め に 、 ユ ー ザ ー 定 義 プ ロ シ 
ー ジ ャ 「SaveHtmll を 呼び 出し 、 実 行 し ます 。 
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Shell 関数 は 、 引 数 に 起動 する プロ グラ ム 名 を フル パス で 指定 し 、 起 動 時 の ファ イ 
ル が あれ ば 2 番目 の 引数 に 指定 し ます 。 ま た 、 プ ログ ラム 起動 時 の ウィ ンド ウ 表 示 
状態 を 3 番目 に 定数 で 指定 し ます 。 こ こ で は 、 イ ンタ ーネット エク スプ ロー ラ を 起 
動 プ ログ ラム に 指定 し 、 保 存 し た テン ポラ リフ ァイル を 起動 時 の ファ イル 指定 に し 
て 、 ウ ィ ン ド ウ は 標準 の 表示 状態 で Shell 関 数 を 実行 し て いま す 。 


Erivate Sub ViewBEn C1iock( ) 
Ca11 SaveHm1 
She1 1] "『C: 半 PrOgram Fi1eS 半 エロ 上 Grne Exxp1Orer 半 EXPLORE.EXE" を 
"= 芋 Eemp .hm" 。 YbNoO ェ ma1FOCu5 


CYCLEEKKKKLKEKKKKEEKKRRRREERRRKREELKKRKKRRKEKLKRLERRRLRLRLRLERRA 


【Shell 関数 の 書式 】 
She11 (pathname [ , windows モ 1e] ) 


pathname 実行 する プロ グラ ム 名 を バリ アン ト 型 の 値 で 指定 し ます 。 
windovwsty1e 実行 する プロ グラ ム の ウィ ンド ウ の 形式 を 定数 で 指定 し ます 。 省 略す 
る と 、 プ ログ ラム は フォ ー カ ス を 持っ た 状態 で 最小 化 表示 され ます 。 


く windowstyle の 定数 > 
定数 内 容 


| 
vbHide | 0 | 非 表 示 に な る ウィ ンド ウ (フォ ー カ ス 有 り ) 
VbNormalFocus 1 通常 の ウィ ンド ウ (フォ ー カ ス 有 り ) 
vbMinimizedFocus 。 | 2 | 最小 化 表 示さ れる ウィ ンド ウ (フォ ー カ ス 有 り ) 


vVbMaximizedFocus 3 | 最大 化 表示 され る ウィ ンド ウ (フォ ー カ ス 有 しり) 
VDNormalNoFocus 了 フォ ー カ ス を 持た な い ウ ィ ン ド ウ 。 現在 アク ティ ブ 


な ウィ ンド ウ は その まま で す 。 


最小 化 表示 で フォ ー カ ス を 持た な い ウ ィ ン ド ウ 。 現 
在 ア クティ ブ な ウィ ンド ウ は その まま で す 。 


VDbMinimizedNoFocus 





「 フ ォ ー カ ス 」 と いう の は 、 ユ ー ザ ー が マウ ス や キー ボー ド を 使っ て 、 イ ベン ト が 起 
こっ た と き に 、 オ ブ ジ ェクト が その イベ ント を 受け 取れ る 状態 に ちあ る こと を 指し ます 。 
つま り 、 テ キス ト を 入力 し た りす る と き に は その コン トロール が ユー ザー に と っ て 入力 
可能 状態 で お ある こと を 、「 フ ォ ー カ ス を 持っ て いる 」 と いい ます 。 ウィンド ウ が フォ ー 
カス を 持っ た 場合 、 そ の ウィ ンド ウ は 再 前 面 に め る と いう こと に な り ま す 。 





第 6 日 1 時 限 上 日 イン ター ネッ ト プ ロ グラ ム の 作 










アイ ル ED 編集 5 表示 の お 条 に 入 nQ) ウー ル D へ 1 ブ G⑩ 
9 ココ き 尋 ヨゴ ョ 3 
ご 玉生 ンク を ]hedMai の 枝 料 サー ビス Maoson 叶 


2 寺 iEOI5 IVE 寺 語 8668 語頭 証 l 「 プン ーッ ト エク スプ ロー ラ が 起 
動 し 「temp.htm」 が 表示 され る 。 











10 日 で お ぼ え る Excsl VBA 入門 教室 2000 対 応 定価 *200 閉 涼 1 





Excel の 関数 を 覚え る に は 、 こ の 一 冊 ! Exel2000 対 応 ! 
10 日 で お ぼ え る Exosl 関 数 & マク ロ 入門 教室 。 定価 \2800 逆 泳社 拓 





Macintosh 版 Excel98 で 使え る 決定 版 、 Excel98 VBA の 入門 書 - 他 の 書 多 に 
な い 、 充実 し た 内 容 で 新 登 場 ! 





19 昌 で 天 え swew6 VeA 入間 和室 cm 人 vS40 馬 きせ 刊 


大 好評 「10 日 で お ぼ え る 」 に 、 最新 Visual Basic6 0 対応 版 入門 教室 が 
発売 





1mB で まえ る Vewsl Base 入 癌 琶 。 定価 Y2609 末 き 刊 





最後 に [Exit] ボタ ン で 、 プ ログ ラム の 終了 処理 を 行い ます 。 


P ェ ュ i で ae Sub ExitBEn C13iok( ) 
Un1oad Me 
nd 

End Sub 


また 、 フ ォ ー ム の サイ ズ が ユー ザー に よっ て 変更 され た 時 は 、 自 動 的 に リッ チ テ 
キス ト ボ ックス コン トロ ー ル の サイ ズ も 変更 する よう に 、 サ イズ 調整 の 処理 を フォ 
ー ム の 「Resize| イベ ント プロ シー ジャ に 作成 し て 完了 で す 。 


Private Sub Form Resize() 
エ F WindowState <> vbMinimized Then 
With RichmextBoxx1 
・Width = Form1.Width - 500 
・Heigh = Form1.Height - 1500 
End With 
End エモ 
End Su ち 


っ 50 
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イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル で HTTP プロ トコ ル に よる 非同期 受信 
を 行っ た 場合 は 、「StateChanged]」 イベ ント 内 で 「GetChunk」 メソ ッ ド を 実行 し 
て 、 受 信 バ ッ フ ァ か ら ダ ウン ロー ド し た 内 容 を 取得 し て くだ さい 。 た だ し 、 こ の レッ 
スン の プロ グラ ム で は テキ スト (HTML ファ イル ) だ け を ダウ ン ロ ー ド し て いま すか 
ら 、 ホ ー ム ペー ジ に リン ク さ れ て いる 画像 デー タ 等 は ダウ ン ロ ー ド され て いま せん 。 

イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル の 機能 を 使っ た この プロ グラ ム を 発展 
させ て 、 例 えば Web の 自動 巡回 プロ グラ ム な ど を 作成 し て みる の も いい で し ょ う 。 

この プロ グラ ム で は 、HTML ファ イル の ダウ ン ロ ー ド を 行い まし た が 、 イ メー ジフ 
ァイル な ど は 次 の レッ スン で 紹介 する FTP プロ トコ ル に よる 転送 を 使用 し て くだ さ 
い 。 

また 、 こ の プロ グラ ム を 実行 する と 、 作 業 用 の 一 時 ファ イル と し て C ドラ イブ の ル 
ー ト ディ レク トリ に 「temp.htm」 を 作成 し ます 。 必 要 な けれ ば プロ グラ ム 終 了 後 削 
除 し て お きま し ょ う 。 


フォ ー ム に テキ スト ボッ クス コン トロ ー ル を 組み 込み 、 ダ ウン ロー ド 
する HTML ファ イル を 自由 に 指定 で きる よう に し て くだ さい 。 


解答 は 巻末 に 一 





者 馬 ワン ポイ ント アド バイ ス 





イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル を 使っ て 、HTTP プロ トコ ル で 通信 す 
る 場合 は 、Execute メソ ッ ド 以外 に 「OpenURL」 メソ ッ ド を 使用 で きま す 。 た だ し 、 
この メソ ッ ド は 、 同 期 転送 を 行う た め 、 サ ー バ へ の 接続 を 開始 する と 、 他 の 操作 が で き 
ませ ん 。 ま た 、 トラフィック の 混雑 な ど で 転 送 に 時 間 が か か る 場合 は 、 す べ て の ドキ ュ 
メン ト を 受信 し な いま ま リ ッ チ テキ スト ボッ クス コン トロ ー ル へ の 表示 が 行わ れ て し ま 
う 場 合 が あり ます 。 で きれ ば 、 非 同期 で 動作 する Execute メソ ッ ド を 使う こと を お 勧 
めし ます 。 

その 他 、 イ ント ラ ネ ッ ト で プロ キシ サー バー 経由 で イン ター ネッ ト へ 常時 接続 し て い 
る 場合 、 プ ログ ラム の 実行 は 問題 あり ませ ん が 、 プ ログ ラム の 終了 に 1 分 ぐら い 待 た 
され る こと が ある の で ご 注意 くだ さい 。 モ デム で 、 イ ンタ ーネット プロ バイ ダ に 直接 接 
続 し て いる 場合 は 、 問 題 な くす ぐに 終了 し ます 。 





第 6 日 1 時 限 目 イン ター ネッ ト プ ロ グラ ム の 作 
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FTP プロ トコ ル を 使う 


今度 は 、 イ ンタ ーネット トラ ンス ファ コン トロ ー ル を 使っ て 、FTP プ 
ロト コル を 操作 し ます 。FTP プロ トコ ル は 、 イ ンタ ーネット の ファ イ 
ル を 転送 する プロ トコ ル で 、 サ ー バ の ディ レク トリ 操作 や ファ イル の 操 
作 を 行う コマ ンド を 持っ て いま す 。 こ の レッ スン で は 、FTP プロ トコ 
ル を 使っ て 、Web サー バ の ディ レク トリ 情報 を 取得 する プロ グラ ム を 
作成 し ます 。 








今回 作成 する プロ グラ ム 
記 ui 当 放 Fn 
| URL の 入力 : 例 fipmicrosoftcom URL を 指定 し .… 
| lf microsoft.com <] IGet Dr Exit | 
と を リッ タダ 


する と .… 


ここ に ディ レク トリ 
一 覧 が 表示 され る 


イン ター ネッ トト ラン ス フ ァ コン トロ ー ル の 、FTP プロ トコ ル 転 
送 機能 を 使っ て 、 指 定 し た アノ ニ マ ス FTP サー バ に 匿名 で ログ イン 
し て ディ レク トリ 情報 を 取得 し ます 。 取 得 し た ディ レク トリ は 、 リ 
ッ チ テキ スト ボッ クス コン トロール に 表示 し ます 。 

また 、FTP サ イト へ の アク セス は 、 コ ン ボ ボッ クス コン トロール 
を 使用 し て 、 リ スト 選択 と 入力 の 両方 が で きる よう に し ます 。 


LessSon 19 FTP プロ トコ ル を 使う 


計ら 明 塊 コ 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


上 ツー ル パ レ ッ ト に 次 の コン トロ ー ル を 組み 込む 


念 Microsoft Internet Transfer Control 6.0 
人 @ Microsoft Rich Textbox Control 6.0 


ツー ル パ レ ッ ト に 


コン ポー ネン ト が 
追加 され る 








フォ ー ム を 広げ 、 フ ォ ー ム の [Caption] プロ パテ 
ィ を 「Mini FTP Cliant」 に 変更 する 






| Farm1 
| PPpearanCe 1 - 3D 
False 
目 &H8n00n0OF& 


2- 可変 
Mini FTP Cliant ゴイ ーーー 一重 ここ を 変更 
True 


True 








フォ ー ム に ラベ ルコ ント ロー ル を 配置 し 、[Caption] 
プロ パテ ィ を 変更 する 





[Caption] プロ バ パティ を 「URL 
の 入力 : 例 ftp.microsoft.com」 
に 変更 し た ラベ ルコ ント ロー ル 





第 B 日 2 時 限 目 イン ター ネッ トブ ログ ラム の 作成 








コン ポー ネン ト を 
* 追加 する 
コン ポー ネン ト を 追加 す 
る 方 法 に つい て は 、 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 


ラベ ルコ ント ロー 
ダル を 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Label] | 嶋 | を 使 
いま す 。 6 


うろ 





の [List] プロ パテ 
ぐ 《⑯2 イィ の 項目 


[List] プロ パテ ィ に 設定 
し た 項目 は 、 コ ン ボ ボッ 
クス の ドロ ッ プ ダウ ン リ 
スト と し て 一 覧 表示 され 
ます 


25 人 








ツー ル パ レ ッ ト の [ComboBox] 還 を 使っ て 、 コ 
ン ボ ボッ クス コン トロール を 配置 する 







URL の 入力 : 倒 pmiresofteom 


[Text] プロ パテ ィ を 「ftp.microsoft.com」 に 変更 
する 





上 デ 
ICombo1 ComboBox ェ ] 
全体 | 項目 別 | 








0- な し 
Right ToLeft False 
ISorted False 
Style 0- ト nz タウ ウッ ヤ ポ 
Tablndex 4 

TabStop True 








Text ftp.microsaftcom 


54 ロ 






[List] プロ パテ ィ の リス ト に 項目 を 設定 する ( 例 : 
ftp.microsoft.Com、ftp.Dorland.Com) 


Di bo | 


Combo1 CombhaBax < 








ftp.microsaft.com 
ftpborlandcom 
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ツー ル パ レ ッ ト の [RichTextBox] 細 を 使っ て 、 
E リッ チ テ キス ト ボ ックス コン トロ ー ル を 配置 する 


斜め に ドラ ッ グ 
し て 配置 


8> リッ チ テ キス ト ボ ックス の [ScrolIBars] プロ パテ 


ィ を 「3ーrtfBoth」 に 設定 する 


ご ご な を な クリック 





ー rtfNone 
ー rtfHorizantal 


ー- rtfVertical 
3 - rtfBoth ここ を クリ ッ ク 
RICI 
1 





ツー ル パ レ ッ ト の Inet] 弄 を 使っ て 、 イ ンタ ー 
ネッ トト ラン MM YS 





の 2 人 全 fpmaosotcom 還 錠 CCGHEE 


| frcosofc om | 


RchText 


斜め に ドラ ッ グ 
し て 配置 








255 
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コマ ンド ボタ ン を 四 時 滅 ー 和 mi 
中 置 する 』《) フォ ー ム に コマ ンド ボタ ン を ら つ 配置 し 、 各 ボ 


タン の プロ パテ ィ を 次 の よう に 設定 する 
コマ ンド ボタ ン を 配置 す 
こ は 、 ツ ー ル パレ ッ ー 有 
の 四 前 3 と た た シン 4 - 但 還 還 TT 
を 使い ます 。 


Command 1 GetBtn 


Get Dir List 
Commanda | ExitBtn | Exit 





ミル 


設定 し た コマ ンド 
ボタ ンコ ント ロー ル 








屋 』 コ ー ド の 記述 





紳 Form1:GetBtn-Click 






| [GetBtn <] [Ciick | | 


Private Sub GetBtn C1iock() は 3 
Dim GetU エ 1 As S モ ェ ing 


Ge モ U エ 1 = Combo1 . Tex 


GetU エ 1 『 下 モ D://" と GetU エ 1 ユ 
エ ne て 1 . 正 xxeCu モ e Ge モ U エ 1 , "DTR" 
End Sub 
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川 








Form1:Inet1-StateChanged 








EL Lesson19 - Form1 ロー トド) 


、 pet 回 [StateChaneed <| 


衝 Sub Tnet1 St 上 ateChanged ( ByVa1] St 上 ae AS TnEeder ) ep: 間 


Dim GetDa モ a AS Va エ ュ an モ 





エ E State = ioResponseComp1eted Then 
GetData = Tne1 .GetChunkk (2048, CS モエ ng) 
RichTmextBox1 . mexE = GeDa モ a 
MsgBox "ダウ ン ロ ー ド 完了 " 
忌 1se エ F SG 上 a@ = CE エエ o エ Then 
MsgBox "ダウ ン ロ ー ド で きま せん 
| End エモ 
| End Sub 


目 Form1:ExitBtn-Click 





に Es 
間 tBm [Ciick 本 目 





| P エ vate Sub 互 xx ふ 上 Btn C1iock( ) 
| On 下 エ エ Or ReSume Nex セ 
| エ net1 .EzxeCute , "CLOSE" 
| Un1oad Me 

End 
mna Sub 


プロ ジェ クト を 起動 し て その まま 終了 し よう と する と 、 下 図 の よう な エラ ー が で ます 。 
これ は リモ ー ト コン ピュ ー タ へ の 接続 が 確立 され て いな い に も 関わ ら ず 、「CLOSE」 コ 
マン ド を 実行 し た た めで す 。 こ の エラ ー を 防ぐ た め に 、「ExitBtn_Click」 プロ シー ジャ 
の 1 行 目 に 「On Error Resume Next]」 ステ ー ト メン ト を 組み 込ん で お きま す 。 


エラ ー が 表示 され る 










| 実行 時 ラー 35755: 
モー ト エー が 指定 され て いま せん 。 





第 6 日 2 時 限 目 イン ター ネッ ト プ ロ グラ ム の 作 





計 この プロ グラ ム は 、 前 の レッ スン と ほじ 同様 の 方 法 で 、FTP プ ロト コル を 使っ て 、 
指定 し た FTP サ ー バ の ディ レク トリ 情報 を 取得 する も の で す 。 プ ログ ラム の 動作 そ 
の も の は いた っ て 簡単 で 、FTP プロ トコ ル の 「DIR] コマ ンド で サー バ の ディ レク 
トリ 情報 を 取得 し 、 そ の 内 容 を リッ チ テ キス ト ボ ックス コン トロ ー ル に 表示 し ます 。 


① コ ンピュータ を イン ター ネッ ト に モデ ム で 直接 接続 し 、 プ ログ ラム を 起動 し ます 。 


② コ ン ボ ボッ クス コン トロ ー ル の リス ト か ら URL を 選ぶ か 、 直 接 入力 し て [Get 
Dir List] ボタ ン を クリ ッ ク し ます 。 サ ー バ に 接続 し て 、FTP プ ロト コル の 
「DIR] コマ ンド を 実行 し ます 。 








③FTP プ ロト コル の コマ ンド が 実行 され て 、 ダ ウン ロー ド が 完了 する と 、 メ ッ セ ー 
ジ ボ ッ クス が 表示 され 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に ディ レク トリ の 
一 覧 が 表示 され ます 。 





を て だ 光り ッ 錠 
する と .… 





イン ター ネッ トト ラン ス フ ァ コン トロ ー ル で は 、 プ ロキ シ サ ー バ ー を 経由 し て イン タ 
ーネット に 接続 し て いる 場合 、 プ ロキ シ が 「CERN プロ キシ サー バー」 だ と 
Execute メソ ッ ド で ダイ レク ト に FTP 接続 する こと は で きま せん (前 レッ スン の よう 
に HTTP プ ロト コル は 可能 で す が )。「0penURL」 メソ ッ ド を 使え ます が 、 イ ンタ ー ネ 
ッ ト で この コン トロ ー ル を 使っ た 同期 接続 に は 安定 性 に 問題 が ある の で 、 基 本 的 に は ブ 
ロキ シ 経 由 で の FTP の ダイ レク ト 接 続 は で き な い と 認識 し て お いた 方 が よい で し ょ う 。 
















Lesson 19 FTP プロ トコ ル を 使 


う で は 、 コ ー ド を 作成 し ます 。Execute メ ソ ッ ド の 実行 は 、[Get Dir List] ボタ ン 
の Click イ ベン ト プ ロ シー ジャ に 作成 し ます 。 
まず 、URL を 格納 する 変数 「GetUrl] を 、 文 字 列 型 で 宣言 し ます 。URL は 、 コ ン 
ボボ ックス コン トロ ー ル の [Text] プロ パテ ィ か ら 取 得 し ます 。 


P ェ ュ ゞ ate Sub GetBtn C1iock( ) 
Dim GetU エ 1 AS 8 上 ing 
Ge モ U ェ 1 = Combo1 . Tex 


また 、FTP プロ トコ ル の 場合 は 、URL の 先頭 に プロ トコ ル の 記号 「ftp://」 が 付 
きま すか ら 、 こ の 文字 列 と 結合 し て Execute メ ソ ッ ド を 実行 し ます 。 サ ー バ の ディ 
レク トリ を 取得 する 、FTP プ ロト コル の コマ ンド は 、「DIR」 に な り ま す の で 、 こ 
の 文字 を Execute メ ソ ッ ド の 引数 に 指定 し ます 。 


GetU エ 1 = "FEDp://" を GetU エ 1 
エ ne1 .EzxeCu も e _ GetU エ 1 , "DTR" 


イン ター ネッ トト ラン ス フ ァ コン トロ ー ル と サー バ 問 の 転送 が 始ま る と 、 
[StateChanged] イベ ント が 発生 し ます 。 転送 が 無事 完了 すれ ば 、 こ の イベ ント プ 
ロ シ ー ジ ャ の 引数 「State」 に 、 受 信和 完了 の 定数 「icResponseCompleted」 が 格納 さ 
れ ま すか ら 、 バ ッ フ ァ の 内 容 を 「GetChunk| メソ ッ ド で 取り 出し 、 リ ッ チ テキ ス 
ト ボ ックス コン トロ ー ル に 転送 し ます 。 そ し て 、 転 送 完 了 の メッ セー ジ ボ ッ クス を 
表示 し ます 。 こ の 処理 は 、 前 の レッ スン で 行っ た 方 法 と 同じ で す 。 


P ェ ivate Sub Tnet1 StateChanged ( ByVa1 State As Tnteger ) 
Dim GetData AS Var エ ian セ 


ェ エ F State = icoResponseComp1eted Then 
GetData = Tnet1 .GetChunk (2048, 1CS エ nd) 
RichTmexBoxx1 . Tex ヒ = GetDa モ a 
MsgBox "ダウ ン ロ ー ド 完了 " 


転送 に 失敗 すれ ば 、「State」 に は 「icError| が 格納 され ます か ら 、 受 信和 失敗 の メ 
ッ セ ー ジ を 表示 し て 、 こ の プロ シー ジャ を 終了 し ます 。 


芯 1 se エエ Sa モ @ = CE エエ or Then 
MsgBox "ダウ ン ロ ー ド で きま せん 
End TE 


作 最後 に 、[ 終 了 ] ボタ ン の 処理 を 作成 し ます 。FTP の 場合 は 、Execute メ ソ ッ ド 
で 「CLOSE」 コマ ンド を 実行 し 、FTP サ ー バ へ の 接続 を 切っ て お きま す 。 あ と は 、 
通常 の ブロ グラ ム 終 了 処 理 を 記述 し ます 。 
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P ェ ュ エマ a モ e Sub Ex1EBEn C1iok( ) 
On E エ or Resume Nexx 
エ ne て 1 .EzxeCute , "CLOSE" 
Un1oad Me 
EnQd 

End Su 


Execute メ ソ ッ ド で URL を 切り 替え た 場合 は 、 自 動 的 に 先 に 接続 され て いた FTP 
サー バ を 切断 し て か ら 再 接続 きれ る の で 、「CLOSE」 コマ ンド は 必要 あり ませ ん 。 





| MI 


Execute メゾ ソ ッ ド を FTP プロ トコ ル で 使う 場合 に 使用 で きる コマ ンド 


file 1 ディ レク トリ を 変更 し ます 。file 1 に 指定 され た ディ レク トリ に 移動 し ます 。 
CDUP 親 デ ィ レ クト リ に 移動 し ます 。 "CD." を 実行 し た 場合 と 同じ 結果 と な り ま す 。 
CLOSE | 現在 の FTP 接続 を 閉じ ます 。 
DELETE file1 | fle1 に 指定 され た ファ イル を 削除 し ます 。 


DIR file 1 file 1 に 指定 され た ディ レク トリ 内 を 調べ ます (Directory)。 ワ イル ドカ ー ド も 
指定 で きま す が 、 構文 を 解釈 する の は リモ ー ト ホス ト で す 。file ] を 指定 し な いと 、 
現在 の ディ レク トリ 内 の すべ て の ファ イル と ディ レク トリ の 一 覧 が 返さ れ ま す 。 
この 一 覧 デー タ を 取得 する に は 、GetChunk メソ ッ ド を 使用 し ます 。 


GET file 1 file2 | file1 に 指定 され た リモ ー ト ファ イル を 取得 し 、file2 に 指定 され た 名 前 の ロー カル 
ファ イル を 作成 し ます 。 


LS file 1 file1 に 指定 され た ディ レク トリ 内 を 調べ ます (List)。 ワ イル ドカ ー ド も 指定 で き 
ます が 、 構 文 を 解釈 する の は リモ ー ト ホス ト で す 。 フ ァイル の 一 覧 デー タ を 取得 す 
る に は 、GetChunk メソ ッ ド を 使用 し ます 。 


MKDIR file 1 file 1 に 指定 され た ディ レク トリ を 作成 し ます (Make Directory)。 こ の 操作 が 成 
功 す る か どう か は 、 ユ ー ザ ー が 持っ て いる リモ ー ト ホス ト 上 で の ユー ザー 特権 に 依 
存 し ます 。 

PUT file 1 file ら file 1 に 指定 され た ロー カル ファ イル を リモ ー ト ホス ト に コピ ー し て 、file2 に 指定 
され た 名 前 の リモ ー ト ファ イル を 作成 し ます 。 
現在 の ディ レク トリ の 名 前 を 返し ます (Print Working Directory)。 返 べ され た デ 
ー タ を 取得 する に は 、GetChunk メソ ッ ド を 使用 し ます 。 
現在 の ユー ザー で の 処理 を 終了 し ます 。 


RECV file1 file2 | file 1 に 指定 され た リモ ー ト ファ イル を 取得 し 、file2 に 指定 され た 名 前 の ロー カル 
ファ イル を 作成 し ます 。GET と 同じ で す 。 

RENAME file1 file2 | file 1 に 指定 され た リモ ー ト ファ イル の 名 前 を fileo で 指定 され た 新しい 名 前 に 変更 
し ます 。 こ の 操作 が 成功 する か どう か は 、 ユ ー ザ ー が 持っ て いる リモ ー ト ホス ト 上 
で の ユー ザー 特権 に 依存 し ます 。 

RMDIR file 1 file 1 に 指定 され た リモ ー ト ディ レク トリ を 削除 し ます (Remove Directory)。 
この 操作 が 成功 する か どう か は 、 ユ ー ザ ー が 持っ て いる リモ ー ト ホス ト 上 で の ユー 
ザー 特権 に 依存 し ます 。 

SEND file1 file2 | file 1 に 指定 され た ロー カル ファ イル を リモ ー ト ホス ト に コピ ー し て 、file2 に 指定 
され た 名 前 の リモ ー ト ファ イル を 作成 し ます 。PUT と 同じ で す 。 


SIZE file 1 file 1 に 指定 され た ディ レク トリ の サイ ズ を 返し ます 。 
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イン ター ネッ トト ラン ス フ ァ コン トロ ー ル を 使う と 、 特 に プロ トコ ル を 設定 する こ 
と も な く 、 自 動 的 に 必要 な プロ トコ ル が 実行 され 、 そ の まま コマ ンド を 使用 で きま す 。 
コマ ンド の 使い 方 も いた っ て 簡単 で すか ら 、 容 易 に FTP や HTTP プロ トコ ル で サー 
バ と 通信 が で きま す 。 

この プロ グラ ム で は 、「DIR]」 コマ ンド し か 使い ませ ん で し た が 、 コ マン ド を うま く 
組み 合わ せれ ば 、 フ リー ソフ ト で よく ある よう な も っ と 高 機能 な も の や 、 自 分 の 用 途 
に 特 化し た FTP ク ライ アン ト ソ フト も 作成 で きる で し ょ う 。 


る ec 練習 問題 
〇 1 プロ グラ ム に プロ グレ スバ ー を 追加 し 、 ダ ウン ロー ド 中 で ある こと を 
表 


示し て くだ さい 。 


隔 ーー 2 | | フロ グレ スバ ー で 
ーー 受信 中 を 表示 する 


RichText 





解答 は 巻末 に 一 


ここ で は 、 匿 名 (anonymous) に よる FTP サー バ へ の ログ イン を 行い まし た が 、 
アカ ウン ト と パス ワー ド か が 必要 な プラ イベ ー ト サー バ に ログ イン する 場合 は 、 イ ンタ ー 
ネッ トト ラン ス フ ァ コン トロ ー ル の 次 の プロ パテ ィ を 設定 し て か ら 、Execute メソ ッ 
ド を 実行 し こく だ さい 。 


プロ パテ ィ に | 











ュー ツー 名 。。 | 
(ワード | 


第 6 日 2 時限 目 イン ター ネッ ト プ ロ グラ ム の 作 
































ca Lesson20.vhp 
⑯) V86cD2 
ヨコ Lesson20 








リス トビ ピュー コン トロ ー ル を 使う 


3 時 限 目 の レッ スン は 、 次 の レッ スン で 作成 する FTP クラ イア ント プ 
ログ ラム に 使用 する 、 リ スト ビュ ー コ ント ロー ル の 使い 方 を 覚え ます 。 
リス トビ ュー コン トロ ー ル は 、 複 数 の 項目 を リス ト 表 示す る コン トロ ー 
ル で す が 、Windows の フォ ル ダ の よう に 、4 つの 表示 形態 を 持っ て い 
ます 。 ま た 、 リ スト 項目 に アイ コン を 組み 込む こと が で きる の で 、 フ ァ 
イル の 一 覧 表示 な ど で は と て も 役に立つ 便利 な コン トロ ー ル で す 。 し か 
し 、 多 機能 な 分 設定 が 少し 複雑 な の で 、 こ の レッ スン で リス トビ ュー コ 
ント ロー ル の 使い 方 を マス ター し て 、 他 の アプ リケーション に 応用 で き 
る よう に し ます 。 


今回 作成 する プロ グラ ム 











Ii 








計時 リス トピ ュー 表示 二 Report 表示 


コー ド を 使用 し て 、 リ スト ビュ ー コ ント ロー ル に 50 個 の 項目 を 
設定 し ます 。 そ れ ぞ れ の モー ド に 合わ せ て 、 大 きい アイ コン と 小さ 
い ア イコ ン を リス ト 項 目 に 組み 込み ます 。 ま た 、 ツ ー ル バー コン ト 
ロー ル で 、4 つの 表示 形態 を 切り 替え られ る よう に し ます 。 リ スト 
ビュ ー コ ント ロー ル 内 の アイ コン を クリ ッ ク す る と 、 ラ ベル コン ト 
ー ル に その 項目 名 が 表示 され ます 。 





























Lesson ら 0 


5 大 に こと 朱 " 本 人 5 に に 作り - 二 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


ツー ル パ レ ッ ト に 「Microsoft Windows Common 
Controls 6.0」 コン ポー ネン ト を 追加 する 









ツー ル パ レ ッ ト に 
コン ポー ネン ト が 
追加 され る 






フォ ー ム を 広げ 、 ツ ー ル バ パレット の [mageuist] 還 
を 使っ て 、 イ メー ジリ スト コン トロ ー ル を 配置 する 


終 め に ドラ ッ グ 
し て 配置 








プロ ルディ ベ ページ 1 fm タプ な [ビク 
チャ の 挿入 ] を 使っ て イメ ー ジ を 追加 する 


ファ イル 名 イン デック ス キー 











54.ICO 
ら 46.ICO 
SPOT.ICO 
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リス トビ ュー コン トロール を 使う 


コン ポー ネン ト を 
* ン 追加 する 
コン ポー ネン ト を 追加 す 
る 方 決 に つら. いぶ て は 、 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 


ZEN の = 
2 ジ ダン 172 回 2 の: 
ロカ イペ ー ジ 柏 人 ダ イ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し 、 プロ パテ ィ ウ ィ 
ンド ウ の [( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [..] ボタ ン を クリ ッ 
タ し ます 。 


ぎえ ビ ピク チャ の 挿入 


[イメ ー ジ ] タブ を クリ ッ 
ク し 、[ ピ クチ ャ の 挿入 ] 
ポタ ン を クリ ッ ク し ます 。 
[ 図 の 選択 ] ダイ アロ グ ボ 
ックス が 表示 され る の で 、 
挿入 する ピク チャ を 選択 
し 、[ 開 く ] ボタ ン を クリ 
プッ グ ) じ まま おら 


6 ろ 





回 228 志 
ぐ プ 騙 タイ アロ ク 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し 、 プロ パテ ィ ウ ィ 
ンド ウ の [( プ ロ パ ティ ペ 
デジ 9 を 劉 ッ クレ 大 
欄 の 「[..] ボタン を クリ ッ 
必修 ま お 8 


ボタ ン を 追加 する 
辻 寺 


ボタ ン を 追加 する 方 法 の 
詳細 に つい て は 、「Lesson 
5 ツー ル バ ー コ ント ロー 
ル の 組み 込み | を 参照 し 
で (だき Ms 
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四 回 圏 較 つ | - 
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の 六 入 @- ] CoW 除 @⑤ | な > 茹 5 








旧 加 し た イメ ー ジ 


" 
| 
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ツー ル パ レ ッ ト の [Toolbar] 」 國 を 使っ て 、 
バー コン トロ ー ル を 配置 する 


ツー 此 


斜め に ドラ ッ グ 
し て 配置 


[プロ バディ ペー ジ ] で 、 [イメ ー ジ リス トト ] と 【 共 
界 線 ] を 設定 する 





















人 ま 半 |* 1 
の 2 ポイ ME 5 cnetsut ヨ 
上 請 還 寺 寺 Reh <ouEoo。  、 こ 当 ここ を 
な ゲト 「ImageList1] 
県 22zNGh 0  、 当 Se 
KsC  、 、  、、 秘 と 下 自 


人 夏 292O 上 
」 NM2" ヤ メト 番号 ⑩。 P A& フ (> 「 


| 9 の 條 % FRE07 | 表示 6 の 人 l 三 


| 舞 X% あ P た な C 夫 線 @ cdFixedSingle」 
| 斑 の 配置 ⑩ Se | に 設定 


25 ル 0⑰ Ip-wesecsdg 。 。  、 記 Ip-wesecsdg 。 。  、 記 


= ほ 5 基 "| 


[ボタ ン ] タブ を クリ ッ ク し 、[ ボ タン の 挿入 ] を ク 
リッ ク し て ボタ ン を 4 つ 組 み 込 む 


イン デック ス 
1 lcon 





Smalllcon 
List 








Report 








LesSon GO リス トビ ュー コン トロ ー ル を 使う 


| 20 F 直 | *yoW 昧 @ | | 
| Hsw@G TO OO)0 ハ 0 つつ べべ へ 
No |  、 、、 計 DSuocou 当 
| 2 。 [Ccocun 引 議 Vc2A0WIWNNNN 
| ケト: 「ーーーーーーーー 敵 還 | 
| 訪 
レ 表示 レ 「 外 - 表 示 ⑯ | 


ボボ 多 た ュー 


で ァ 2 ェ トー 上 | た ュー の 挿 AD 提 | 
玉 寺 トー 生み で 





IoID 
IPIP 
IO 


ノ ツー ル パ レ ッ ト の [ListView] 琉 を 使っ て 、 リ ス 


トビ ュー コン トロール を 配置 する 





ト プ ロ パ デ ィ ペ ー ジ ] の 【 イ メー ジリ スト 」] タブ で 、 
イメ ー ジ リス トコ ント ロー ル を 設定 する 





全 計 イー ゲ 92 ト | 壮 べ 替 え 計 定 | 列 見 出し | 色 | フト 1 
7 イヤ イネ デ | ー ー 




















[プロ パテ ィ ペ ー 
ぐ ぽ タイ アロ グ 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し し プロパティ ウィ 
ンド ウ の [( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [.…] ボタ ン を クリ ッ 
ク i ま 消 
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ラベ ルコ ント ロー ラベ ルコ ント ロー ル を 配置 し 、[BorderStyle] プロ 
パプ ル な 配置 する パテ ィ を 「1 一 実線 」 に 設定 する 


ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Label] 内 を 使 
いま す 。 






ILstvewi = 


目 完成 し た ユー ザー 
| イン ター フェ イス 











Form1:Form-Load 








Prtvate Sub Form Load( ) 
Dim Litem As Ob]eo 
Dim Co1Head As Ob]jeot 


ListView1 .View = 1YwToon 


For i = 1 mo 50 
Se Litem = ListView1 . エエ 5 上 エモ 上 ems .AdQ | 
With Litem | 
・Sma11 エ Con = "Spo も " | 
・ エ con mE1aqd" | 
いっ コ "NO " を エ を "Po51 モ 上 ュ ion" 


End With | 





LesSon GO リス トビ ュー コン トロ ー ル を 使 


For ュ =1 mo4 | 
Set Co1Head = エ ListView1 .Co1umnHeaders .Aqd ( ) | 
Co1Head . mext 上 = "Fie1d " を 
Co1Head .W1dth = ListView1 .W1dth / 5 

Ne 


With ListView1 . is ヒエ Ems (1 ) 
・Sub エ tems(1) = "He11o" 
-Sub エ tems(2) = "Boy!" 
・Sub エ tems(3) = " エ am spot" 

| End With 
End Sub 


Form1:ListView1-ltemClick 


EE E 志 dil 還 a 





[Estview1 | [iemclick | 





Private Sub ListView1 エ temC1iok(ByVa1 エ Ttem AS 
MSComot1 エ 1b . 5 ヒエ 上 @m ) 
Labe1 1 .Cap モ on = エ Tem. Tex 
End Sub 


ョ Form1 :Toolbar1-ButtonClick 


EE で 雪 siEI y」 


| Teelpar1 | [ButtonClick ] | 
トー 


、 Private Sub Too1ba ェ 1 ButtonC1ioikk (ByVa1 Button AS 
| MSComct1 エ 1b . Bu 上 On ) 
Dim ViewSty1e As Tnteger 








Se1eot Case Bu モ on .Ke マ Y 
Case TS = "ToCon" 
ViewSty1e = 1vw エ oon 


Case Ts = "Sma11Tcon" 
ViewSty1e = 1vwSma11Toon 


Case Ts = "Lis" 
VievwSty1e = 1VwLis 


Case TS = "Repor セ 上 " 
ViewS ヒ 1e = 1 ゞ wRepo ェ ヒ 
End Se1ec 


エエ is 上 View1 . び iew = ViewSt モ 1e 
End Sub 
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』 





リス トビ ュー コン トロ ー ル は 、「Icon」 「Smallcon」「List」 「ReportLl と いう 、4 
つの 表示 形態 で 項目 を 表示 する コン トロ ー ル で す 。 こ れ ら は 、 リ スト ビュ ー コ ント 

ロー ル の [View] プロ パテ ィ の 値 を 変え 0 る こと で 、 表 示 形 態 を 切り 替え ます 。 

リス トビ ュー コン トロ ー ル に 設定 で きる 項目 は 2 つ あ り ま す 。1 つ は 文字 列 ( 
スト ) で 、 も う 1 つ は アイ コン で す 。 ま た 、 ア イコ ン は 表示 形態 が 「Icon] 6 
は 大 きい アイ コン (32 x 32) で 表示 され 、 そ れ 以 外 で は 小さ きい ア イコ ン (16 x 16) 
で 表示 され ます 。 

リス トビ ュー コン トロ ー ル の 項目 は 、ListIttem オプ ジェ クト と し て 扱わ れ ま す 。 
し た が っ て 、 リ スト ビュ ー コ ント ロー ル に 項目 を 設定 する に は 、 こ の オブ ジェ クト 
を Add メソ ッ ド で 追加 し ます 。 ま た 、 テ キス ト や アイ コン は 、ListItem オブ ジェ ク 
ト の プロ パテ ィ を 操作 し て 設定 し ます 。 


この よう な コン トロ ー ル の 特徴 を 踏ま を え を 、 フ ォ ー ム の Load イベ ント プロ シー ジャ 
で 、 リ スト ビュ ー コ ント ロー ル の 初期 設定 を 行い ます 。 

まず 、 リ スト ビュ ー コ ント ロー ル の [View] プロ パテ ィ で 、 プ ログ ラム 起動 時 の 
表示 形態 を 「Icon」 に 設定 し ます 。[View] プロ パテ ィ は 、4 つ の 定数 を 値 に 持ち 、 
使用 し た い 表 示 形 態 を この 定数 で 設定 し ます 。 こ の プロ グラ ム で は 、 標 準 の 大 きい 
アイ コン で 表示 する た め 、「lvwIcon」 を 値 と し て 設定 し ます 。 


Private Sub Form Load ( ) 
Dim item AS Ob]ject 
Dim Co1Head As Objeo 


ListView1 . び 1ew = 1vw エ oon 


く View] プロ パテ ィ の 値 > 


むさ っ 1 


値 内 容 


(既定 値 ) 大 きい アイ コン で 表示 。 各 Listltem オブ ジェ クト は 、 ア イコ 
ン お よび テキ ス トラ ベル で 表示 され ます 。 


小さ い ア イコ ン で 表示 。 各 ListIltem オブ ジェ クト は 、 小 さい アイ コン お 
よび アイ コン の 右側 の テキ ス トラ ベル で 表示 され ます 。 項目 は 左右 に 並ん 
で 表示 され ます 。 


一 覧 表示 。 各 ListIltem オブ ジェ クト は 、 小 さい アイ コン お よび アイ コン 
の 右側 の テキ ス トラ ベル で 表示 され ます 。 各 Listltem オブ ジェ クト は 上 
下 に 並ん で 、 各 行 に 配置 され 、 情 報 が 列 方 向 に 表示 され ます 。 


"ーー ド 
IvwReport 詳細 表示 。 各 Listltem オブ ジェ クト は 、 小 さい アイ コン お よび テキ スト 
ラベ ル で 表示 され ます 。 各 ListIltem オブ ジェ クト の 追加 情報 を 、 サ ブ ア 
イ テ ム に 設定 で きま す 。 ア イコ ン 、 テ キス トラ ベル 、 お よび 情報 が 列 方 向 
に 表示 され 、 左 端 の 列 に は 小さ い ア イコ ン に 続け て テキ ス トラ ベル が 表示 
され ます 。 追 加 し た 列 に は 、 項 目 の 各 サブ アイ テム の テキ スト が 表示 され 


ます 。 





LesSon GO リス トビ ュー コン トロ ー ル を 使 


人 炎 に 、 リ スト ビ ピュー 内 に 項目 を 設定 し ます 。 こ こ で は 、For..Next ルー プ を 使っ 
て 、 一 気 に 50 個 の 項目 を 組み 込み ます 。 リ スト ビュ ー コ ント ロー ル に 項目 を 追加 す 
る に は 、「ListItems] コレ クシ ョ ン オ ブ ジ ェクト を 対象 と し て 、Add メ ソ ッ ド を 実 
行 し ます 。 


For ュ =1 "mo50 
Set エ Litem = ListView1 . 3 ヒエ tems .AqQ 


追加 し た 「ListItems] コレ クシ ョ ン オ ブ ジ ェクト は 、Set ス テー トメ ント で 
「Litem] と いう オブ ジェ クト 変数 に 格納 し て お きま す 。 

次 に 、 こ の オブ ジェ クト 名 を 使っ て 、 ア イコ ン の 設定 を 行い ます 。 [Icon] プロ パ 
ティ は 大 きい アイ コン を 設定 し 、[SmallIcon] が 1 
する プロ パテ ィ で す 。 ど ちら も 、 直 接 ア イコ ン フ ァイル を 指定 する の で は な く 、 
人 0 
る 、 ピ クチ ャ の イン デック ス 番 号 ま た は キー の 値 を 設定 し ます 。 

4 つの ビュ ー で 同じ アイ コン を 使い た い 場 合 は 、 ど ちら も 同じ ピク チャ を 設定 し 
ます が 、 こ こ で は 、 大 小 そ れ ぞ れ 別 々 の ピク チャ を 、「 キ ー」 を 使っ て 指定 し て いま 
す 。 


With Titem 

・Sma11Tcon = "Spot" 

・ エ con = "E1ag" 

・Text = "No " & 中 を "Pogiion" 
End With 


項目 名 の テキ スト は 、[Text] プロ パテ ィ に 文字 列 を 設定 し ます 。 こ こ で は 、 
[No1Position] と いう よう に 、 項 目 順に 連 番 で 文字 列 を 作成 し て 設定 し て いま す 。 


設定 し た 大 きい アイ コン 
と テキ スト 


| No 6Positon 抽 識 縮 呈 肌 信 No 8Fosition No 9Position No 10Position 


No 11Fosition No 12Position No 13Position No 14Position No 15Position 
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修 。。 項目 の テキ スト と アイ コン の 設定 が で きた ら 、 今 度 は Report 表 示 時 に ビュ ー の 最 
上 部 に 設定 する サブ プア イ テ ム の 見 出し を 組み 込み ます 。Report ビ ュー の と きだ け 、 
項目 名 は いく つか の 情報 を 表示 さき せる こと が で きま す 。 こ の 情報 の こと を 「 サ ブ ア 
イ テ ム 」 と いい ます 。 そ し て 、 サ プア イ テ ム の 見 出し に な る 部 分 を 「 コ ラム ヘッ ダ ] 
と いい ます 。 画面 の 「Field1] 「Field2| と いう の が コラ ム ヘ ッ ダ で 、 こ れ は Report 
表示 の み に 表 示さ れ ま す 。 





Report ビュ ー。 項目 名 の 次 に 
サブ アイ テム が 並び 、 サ ブ ア イ 
テム の 見 出し を コラ ム ヘ ッ ダ で 
表示 し て いる 


コラ ム ヘ ッ ダ を 組み 込む に は 、Add メ ソ ッ ド で リス トビ ュー コン トロ ー ル に 
「ColumnHeaders] コレ クシ ョ ン オ ブ ジ ェクト を 追加 し ます 。 コ ラム ヘッ ダ は いく 
つ で も 追加 挿 人 で きま す が 、 必 ず 項 目 各 か ら 追 加 さ れ ま す の で 、 次 に 作成 する サブ 
アイ テム より も 1 つ 多 く 追 加 し て お く 必 要 が あり ます 。 

「ColumnHeaders| コレ クシ ョ ン オ ブ ジ ェクト を 追加 し た ら 、 そ の オブ ジェ クト 
名 を Set ス テー トメ ント で オブ ジェ クト 変数 「ColHead」 に 格納 し て お きま す 。 


For 1 = 1 mo 4 
Set Co1Head = ListView1 .Co1umnHeaders .Aqd ( ) 


追加 し た 「ColumnHeaders] コレ クシ ョ ン オ プ ジ ェ クト に 文字 列 を 表示 さき せる に 
は 、 こ の オプ ジェ クト の [Text] プロ パテ ィ を 使い ます 。 こ こ で は 、 組 み 込 ん だ 
「ColumnHeaders| コレ クシ ョ ン オ ブ ジ ェクト を 順番 に 番号 を 付け て いま す 。 

また 、[Width] プロ パテ ィ を 使う と 、「ColumnHeaders| コレ クシ ョ ン オ ブ ジ ェ 
クト の 幅 を 指定 で きま す 。 こ こ で は 、 リ スト ビュ ー コ ント ロー ル の 幅 を 5 等 分 し た 
幅 に 設定 し て いま す 。 


Co1Head.Text = "Fie1d "を 
Co1Head .Width = エ ListView1 .Width / 5 





ぅ 


6G 


Lesson 60 リス トビ ュー コン トロ ー ル を 使 


コラ ムペ ヘッ ダ が 設定 で きた ら 、 サ プア イ テ ム を 組み 込み ます 。 サ プア イ テ ム は 、 
項目 1 つ 1 つ に 設定 で き 、「ListItem]」 オプ ジェ クト の [SubItems] プロ パテ ィ を 使 
用 し ます 。 

まず 、[ListItems] プロ パテ ィ で 、 サ ブ ア イ テム を 設定 し た い 項 目 を 指定 し ます 。 
次 に 、[SubItems] プロ パテ ィ に 文字 列 を 設定 し ます 。 サ ブ プア イ テム は 、 項 目 名 の 
次 か ら 順 番 に 「SubItems(1)」 「SubItems(2②)」 と 指定 し て いき ます 。 


With ListView1 . 世 15 モエ モ ems (1 ) 
・Sub エ tems(1) = "He11o" 
・Sub エ tems(2) = "Boy!" 
・Sub エ tems(3) = " エ am spot" 

End With 


この プロ グラ ム で は 、 最 初 の 項目 だ け に サブ アイ テム を し 秋 選 だ 8 


江 
計 


Tam spot 


定 さ れ た サブ アイ テム 


に 





リス トビ ュー コン トロ ー ル の 初期 設定 が 終わ っ た ら 、 今 度 は リス トビ ュー コン ト 
ロー ル 内 の 項目 が 、 ユ ー ザ ー に よっ て クリ ッ ク さ れ た と き の 処 理 を 作成 し ます 。 

ユー ザー が 項目 名 を クリ ッ ク す る と 、 リ スト ビュ ー コ ント ロー ル に は 「ItemClick」 
イベ ント が 発生 し ます 。 こ の イベ ント プロ シー ジャ で は 引数 「Item] に 、 ク リッ ク 
され た 項目 の オブ ジェ クト 名 が 格納 され ます 。 こ の オプ ジェ クト の [Text] プロ パ 
ティ を 参照 すれ ば 、 ク リッ ク さ れ た 項目 名 が 把握 で きま す の で 、 こ れ を ラベ ルコ ン 
トロ ー ル の [Caption] プロ パテ ィ に 代入 し て 表示 し て いま す 。 


P ェ ivate Sub ListEView1 エ temC1ick(ByVa1 TEtem As 
MSComot1 エ ュ b . エエ 5 上 エモ mm ) 
riabe1 1 .Cap モ ion = エ Eem. Tex セ も 
End Sub 
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呈 No 1Position No 2Position No3Position No4Position No5Position 


| No 6Position No 7Position No 8Position No9Position No 10Position 











ラベ ルコ ント ロー ル に 
クリ ッ ク し た 項目 名 が 
表示 され る 










選 


ブ 最後 に 、 ツ ー ル バー コン トロ ー ル の ボタ ン が クリ ッ ク さ れ た と き に 、 リ スト ビュ 
ー コ ント ロー ル の 表示 形態 を 変更 する 処理 を 作成 し ます 。 
ツー ル バ ー コ ント ロー ル の 「ButtonClick| イベ ント プロ シー ジャ で 、 引 数 
「Button」 に 格納 され た Button オプ ジェ クト の [Key] プロ パテ ィ の 値 を 使っ て 、 
Select Case ス テー トメ ント で 処理 を 分 岐 し て いま す 。 そ し て 、 そ れ ぞ れ の ボタ ン が 
クリ ッ ク さ れ た と き 、 変 数 「ViewStyle]」 に [View] プロ パテ ィ の 定数 を 格納 し 、 
[View] プロ パテ ィ に 渡し て いま す 。 こ れ で 、 ツ ー ル バー の ボタ ン を クリ ッ ク す れ 
ば 、 リ スト ビュ ー コ ント ロー ル は それ ぞ れ の ビュ ー に 切り 奉 えて 表示 する よう に な 
り ま す 。 


P ェ ivate Sub Too1bar1 Bu も onC1iok (ByVa1 Button AS 
MSComot1 エ iD . Bu モモ On ) 
Dim ViewSty1e As Tnteger 


Se1eo Case Buton .Key 
Case Ts = "Toon" 
ViewS モ 1e = 1vw エ con 


Case Ts = "Sma11Toon" 
ViewS モ 1e = 1vwSma11T エ oon 


Case エ TS = "エセ 
ViewSty1e = 1YwLiigs 


CaSse エ TS = "Repo ェ モ 上" 
ViewSty1e = 1vwRepor セ 上 
End Se1eot 


ListView1 .V1ev = ViewS モ y1e 
End Sub 





Lesson GO リス トビ ュー コン トロ ー ル を 使 


リス トビ ュー コン トロ ー ル は 4 つの 違う 表示 形態 を 持っ て いる た め 、 プ ロ パ ティ の 
操作 が 多く な っ て いま す 。 ま た 、 項 目 や サ ブ ア イ テム な ど 、 い くつ か の オブ ジェ クト 
(また は コレ クシ ョ ン オ ブ ジ ェクト ) で 構成 され て いま す の で 、 ど の 部 分 を 変更 する と 
き は どの オブ ジェ クト の プロ パテ ィ を 使う の か を よく 把握 し て お く 必 要 が あり ます 。 


る c ぁ 練習 問題 


っ て いま す 。 そ こ で 、 ユ ー ザ ー が 項目 名 を 変更 し よう と し た ら 、 メ ッ セ 
ー ジ ボッ クス を 表示 し 、[OK] ボタ ン が クリ ッ ク さ れれ ば 変更 し 、[ キ ャ 
ン セ ル ] ボタ ン が クリ ッ ク さ れれ ば 変更 を 取り 消す よう に 、 プ ログ ラム 
を 修正 し て くだ さい 。 


〇 1 リス トビ ュー コン トロール の 項目 名 は 、 そ の 場 で 変更 で きる よう に な 


に S メ な に GA 
jon No 2Poston No3Positon No4Positon No5Positon 


ion ho 7Fosion [名 前 を 更 | No gPositon No 10Postn 


2 


メッ セー ジ ボ ッ クス 
で 変更 を 確認 する 


解答 は 巻末 に 一 





「lcon]」 お よび 「Smalllcon] の ビュ ー で は 、 ユ ー ザ ー が マウ ス で アイ コン を 移動 さ 
せる こと が で きま す 。 ま た 、 項 目 名 の 変更 は すべ て の ビュ ー で 行え ます 。 






アイ コン を 移動 で きる 
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ー イ ーーー 簡単 FTP クラ イア ント プロ グラ ム の 作成 
軒 H 由 思 リス トビ ュー コン トロール の 使い 方 が わか っ た と ころ で 、Lesson19 











で 作成 し た FTP プロ トコ ル を 操作 する プロ グラ ム に 、 こ の リス トビ ュ 
ー コ ント ロー ル を 組み 込み 、 サ ー バ の ディ レク トリ 一覧 を リス トビ ュー 
コン トロ ー ル で 表示 する よう に し ます 。 ま た 、 リ スト ビュ ー 内 の アイ コ 
ン を 選択 し て FTP プロ トコ ル を 使い 、 サ ー バ の ファ イル を 自分 の コン 
ピュ ー タ に 転送 する 機能 も 組み 込み ます 。 


今回 作成 する プロ グラ ム 


URL の 入力 : 例 ftpmicrosoftcom 1| 
rcrosottco Get Dr List Ei | 
5 ニー ーー | サー バー の ディ レク トリ 


















| 
) の 一 覧 を アイ コン 付き で 
第 日 表示 し .… 
4 時限 目 
5 
] 
| 
| アル) 編 要 ⑤ 表示 移動 お 気 に 和 O@) 人 ルプ 1 
相 P95cv 〇 、  、 要 認 Mhml 
暫 トラ 円 症 還 = 
還 叶 e 5 Ide-boot Commandc Confe dos Confiesys  Dblspacebm 
Lesson21.vhp 目 分 の コン ピュ ー タ (⑥) 
ee に 転送 で きる よう に ネー 征  | 
《⑨ VB6CD2 する BY bx Delspacemi Detioeod Detcett 証 還 IIH ] 
白 ぺ ココ Lesson21 rg 因 較 計 | 
サイ ズ 710 パイ ト dtx ほ Dosime sys Dreamdr Dryspacebm 1 
| 
| 
ディ 





225hSSeUiGESGE2 ヨ ・]「 」 い 


イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル の FTP プロ トコ ル 転 
送 で 、 サ ー バ の ディ レク トリ 一覧 を 取得 し 、 リ スト ビュ ー コ ント ロ 
ー ル に 表示 し ます 。 リ スト ビュ ー コ ント ロー ル は 、 表 示 形 態 を 
「List」 表示 に し て 、 フ ァイル と ディ レク トリ で 別々 の アイ コン を 組 
み 込 み ま す 。 ま た 、 ク リッ ク し た アイ コン を 、FTP プロ トコ ル で ダ 
ウン ロー ド で きる よう に し ます 。 








ラス 7 生 
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コン トロ ー ル と プロ バ パテ ィ の 設定 


※「QSA-19.vDp] の プロ ジェ クト ファ イル を 開い て くだ さい 。 こ の 
プロ グラ ム は 、「QS&A-19.vbp」 に コン トロ ー ル と 機能 を 追加 し て 
作成 し ます 。 










| -URL の 入力 : 例 tipmicrosoftcom 。 - 必 箇 上 生生 邊 目 
1 ftp microsoftcom <| Getpr tst | ER | ] 


[プロ パテ ィ ペ ー ジ ] の 【 全 般 ] タブ で 、「16 X16] 
サイ ズ を 指定 する 


| 
| 代 l み yle 1 


で R6⑳ 
r 32x32⑨③ 









ここ を クリ ッ ク 


拓本 








QAA-19.vDbp 
ジフ ァイル 


「Q&A-19.vybp] ファ イル 
は 、 付 録 CD-ROM の 
「Q&A] フォ ル ダ に も 収録 
され て いま す 。 


フーム を 拡げ る 


フォ ー ム の サイ ズ を 拡げ 
て お いて くだ さい 。 


Height : 約 6300 
Width : 約 6800 


[プロ パテ ィ ペ ー 
ぐ / 過 タイ ァ ロ グ 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し 、 プロ パテ ィ ウ イィ 
ンド ウ の 「[( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [.…] ボタ ン を クリ ッ 
ク し ます 。 


ハハ へ ハハ へ へ へ へ つつ へ nm へ mm つつ mnm つ O つ 4m つ mnm つ 44〈4〈4〈4〈4〈t{t{〒##  、 時 
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[イメ ー ジ ] タブ を クリ ッ ク し 、[ ピ クチ ャ の 挿入 ] 
バダ ピク チャ の 押入 を 使っ て アイ コン ファ イル を 追加 する 


[イメ ー ジ ] タプ を クリ ッ 
ク し 、[ ピ クチ ャ の 挿入 ] 













ボタ ン を クリ ッ ク し ます 。 ファ イル 名 イン デック ス キー 
「R の 半 所 恒 チア 本 FILECBO9.ICO 1 folder 
ックス が 表示 され る の で 、 

挿入 する ビク チャ を 選択 DOC12.CO 8 doc 


し 、[ 開 く ] ボタ ン を クリ 
タク じじ ます 。 LU 
、 人 和 0 | 


2 ク FE ee ピーーーーー……… 


| 名 523 
四 同一 
ヨ 


PrmA-| ao 只 @ | な >wkP 










追加 し た イメ ー ジ 






各 ツー ル パ レ ッ ト の [ListView] 加計 を 使っ て 、 リ ス 
トビ ュー コン トロール を 配置 する 








斜め に ドラ ッ グ 
し て 配置 
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2 
[小さ い ア イコ ン ] に 「ImageList1」 を 指定 する 


| 





人 座 半 人 aimeeeierioori mi 
| 、 ウ の な アト ーーーーー 3 
ee ニー 


[ImageList1」 
を 設定 





コア ド ボ タ ン を 配置 し 、 プロ バテ ィ を 変更 する 


プロ パテ ィ 


オブ ジェ クト 名 





ERR 2 較 語形 琉 2 
舞 』 | ボタ ンコ ント ロー ル 





















ト プ ロ グラ ム の 作成 


[プロ バテ ィ ペ ー 
ぐ W 妨 タイ アロ グ 


[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し 、 プロ パテ ィ ウ ィ 
ンド ウ の 「[( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [..] ボタ ン を クリ ッ 
ク し ま 。 


複数 項目 の 選択 を 
グ 可能 に する 


リス トビ ュー 内 の 項目 を 
複数 選択 で きる よう に し 
だ た だい とき は 、 コ ント ロー 
ル の MultiSelect プロ パテ 
ィ を True に 設定 し ます 。 


[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス か ら は 
[全般 ] タプ で [複数 校 目 
の 選択 ] を チェ ッ ク し て 
お け ば 自動 的 に その リス 
ト 内 の 項目 を Ctrl キー や 
Shift キー な ど で 和 複数 選択 
で きる よう に な り ま す 。 


> ト 1E ウ | | 


に - 肖 
加 「 列 見 出し を 非 表示 
回 じ eta 





ェ | 
ヨ 層 2 基 更 を 
「 な め ボ ポッ 269 
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(General) 

























Dim GetU ェ 1 As St ェ ing 
Dim GetFi1e As String 
pim Flag As Boo1ean 


1 
| 
は ュ 1 As Tnteqger | 
] 






(General) 


」 Private Sub Listup( ) 
| Dim Di エエ tem AS5 S ェ ng 
Dim MarkS エ As S モ ェ ing 


Open "C: 壮 Lemp . モ x 上 " FoO エ Tnpu As 音 1 | 
Do Whi1e Not EOF(1) | 
Set Litem = ListView1 . エ 1 ヒエ tems .Add | 


| 
| 
| Line Tnput #1, Di ェ エ tem 
MarfkS ェ = Right (DirTtem, 1) 
エモ Di エエ tem <> "" mhen 
エ F MarjkSt 上 ェ = "/" mhen 
| エ ュ item . Sma11Tcon = "Eo1der" 





1se 
| エ item .Sma11Toon = "doo" 
| End TE 
End エモ | 
エ 上 item . TexE = DirTtem | 
Toop 
C1ose #1 





End Sub 
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Private Sub DownBtn C1iock( ) 


Flag = Fa1se 
| エ net1 .ExxeCu モ eG GeU エ 1 , GetF ュ 1e 
| End Sub 





Form1:Form-Load 


| IForm | [reaa 回 | | 
Private Sub Form Load( ) 

ListView1 .V1ew = 1YwLis 

馬 2 間 下 





く 修正 し た プロ シー ジャ ッ 





ョ Form1:GetBtn-Click 


ES 還 間 iil 思 ay) 


、IGetBtm <| [iick _ 引 


Pr エ ュ ate Sub GetBtn C11icK( ) 
エ F ListView1 .1S ヒ エ tems .Coun モ >= 1 Then 
ListView1 . 1 s 上 エモ ems .C1ea エ 
End エモ 
GetU ェ 1 = Combo1 . mext 
GeU エ 1 = "FEp://" を Ge ヒ EU エ 1 ユ 





エ ne1 .ExxeCu モ 上 eG GetUr1 , "DTR" 
| F1ag = TruG 
| End Sub 


引 Form1:Inet1-StateChanged 






1 二 m」 





| 
| [me <| [Sstehaneed - 恒 目 


| Eivate Sub Tnet1 StateChanged ( ByVa1 Sate AS TnEegd@r ) 
| Dim GetData AS Va エ 1an セ 


Se1ec Case Sat@ 
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Case icResponseComp1eted 

エ F Flag = True Then 
GetData = Tnet1.GetChunk (2048, 1cS ェ ing ) 
RiochTmextBoxx1 . ex ヒ = GetData 

End エモ 

MsgBox "ダウ ン ロ ー ド 完了 

ProgressBar1 .Va1ue = 0 

閣 5 RA 硬 0 


Case 1cRecei ゞ ingResponse 
ミキ = ョ ミエ + ォ 1 ユ 
エ E i = 10 mhen 
ュ = 0 
End TE 
ProgresSsBar1 .Va1ue = 





Case CE エエ Oo 
MsgBox "ダウ ン ロ ー ド で きま せん 
エ net1 .ExxeCute , "CLOSE" 

| ProgressBar1 .Va1ue = 0 
ミュ = 0 

End Se1eo 


End gub 





く 変 更 し な い コ ー ド > 

















ョ Form1:RichTextBox1-Change 





Private Sub RichmextBox1 Change( ) 
RichmextBox1 . SaYeFi1e "で : 壮 Lemp . モ xxE", 1 | 
Ca11 Listup 

| End Sub 


Form1:ListView1-ltemClick 









MSComo1 エ ュ D . エモ エモ mm ) 


GetFi1e = "GET " を TEem.Text & " " を "os 将 " を TEtem.Texx 上 





Private Sub LisEView1 エモ emC1iok(ByVa1 エ tem As | 
| 
] 
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』 


この プロ グラ ム は 、Lesson19 の 練習 問題 で 作成 し た イン ター ネッ トト ラン ス フ ァ 
ー コ ント ロー ル の FTP プ ロト コル 機能 を 使っ て 、FTP サ ー バ の ディ レク トリ を 取 
得する プロ グラ ム に 、 リ スト ビュ ー コ ント ロー ル と プロ グレ スバ ー を 組み 込み ます 。 

サー バ か ら 取 得 し た ディ レク トリ 一 覧 は リッ チ テ キス ト ボ ックス コン トロ ー 
表示 され る と 同時 に 、 リ スト ビュ ー コ ント ロー ル に 、 フ ァイル と ディ レク トリ の ア 
イコ ン を 区 別して 表示 し ます 。 

また 、 サ ー バ か ら 転 送 中 は 、 プ ログ レス バー コン トロ ー ル に 、 転 送 中 の 状況 を 表 
訳 選 ま 憲 。 


ig 証 [jalxl 問 Linixj 
、 URI の 入力 : 例 fpmicrosoftcom 1 URL の 入力 : 例 ftp mrosoftcom Eco 1 
eo 同 ee mw | 『rmcrstcen =lllGeEnesm gw | | 
叶 RchText | | 胃 フ ア イル と フォ ル ダ の 

イコ 4 伯 和 て 革 6 

Ir 

disc 


| 
に 
主 
8 
を 


KB 


| 
プロ グレ スバ ー で | 
転送 中 を 表示 。 司 | 





アイ コン 表示 され た リス トビ ュー コン トロ ー ル の ファ イル 名 を クリ ッ ク し て 、 
[Download] ボタ ン を クリ ッ ク す る と 、 フ ァイル を サー バ か ら 自 分 の コン ピュ ー タ 
に 転送 し ます 。 


」 アイ ル (P 編集) 表示 移動 ⑬ お 気 に 和 D@⑯ へ ルプ ⑪ 











Ide-boot Commandc Confie dos Confgsys  Dblspacebm 
(⑥) う 
ー ロ 信 
Pot 3 txt Dekpace mi Detloeod Detioett 回 還 RIH 
品 o 。 画 団 還 還 
サイ ズ 710 バイ ト dstxls Dosimesys Dreamdr Drvshcebn 
| 国 sctip/ | | 才 R 
] 還 outions/ ffastunffa ffastunfl ffsstnffo ffastWn0fhx 
1 
| まで 5 区 ST デート 2 5590 日 ] 
ファ イル 名 を ここ を クリ ッ ク ロー カル の ハバ ハードディスク 
選択 し て .… する と .… に ファ イル が 転送 され る 
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ス 


で は 、 コ ー ド を 作成 し て いき まし ょ う 。 ま ず 、 フ ォ ー ム の 定 言 セク ショ ン に 、4 
つの 変数 を モジ ュー ルレ ベル 変数 で 家斉 し ます 。 

「GetUrll は 、 コ ン ボ ボッ クス コン トロ ー ル か ら 取 得 し た 、FTP サ ー バ の URL を 
格納 し ます 。「GetFile] は 、 リ スト ビュ ー コ ント ロー ル で クリ ッ ク さ れ た ファ イル 
名 を 格納 する 変数 で 、 文 字 列 で 宣言 し ます 。 変 数 「Flag] は 、 デ ィ レ クト リ 情 報 の 
転送 な の か 、 フ ァイル の 転送 な の か を 区 別 す る た め に 使用 し ます 。 論理 型 で 宜 言 し 、 
値 が 「Truel で ディ レク トリ 情報 の 転送 、「False] で ファ イル の 転送 に し ます 。 変 
数 ii は 、 プ ログ レス バー の 進行 状況 を 設定 する の に 使用 する 変数 で す 。 


Dim GetU エ 1 As St ェ ing 
Dim GetFi1e As String 
Dim Fl1ag As Boo1ean 
Dim 1 As TnEteger 


フォ ー ム の Load イ ベン ト プ ロ シー ジャ で 、 リ スト ビュ ー コ ント ロー ル を 「List」 
表示 に 設定 し ます 。 こ の プロ グラ ム で は 、1 つ の ビュ ー だ け を 使う よう に し て いま 
す 。 ま た 、 変 数 [i| を 初期 化し て お きま す 。 


Private Sub Form Load ( ) 
ListView1 .V1ew = 1vwLis 
ミ = ニ 1 ユ 

End Sub 


次 に 、[Get Dir Listl ボタ ン の Click イ ベン ト プ ロ シー ジャ を 修正 し ます 。 こ こ で 
は 、 ま ず リ スト ビュ ー コ ント ロー ル に リス ト 項 目 が 設定 され て いる か どう か を チェ 
ッ ク し ます 。 す で に リス トト 項目 が ある の に 、Add メ ソ ッ ド で 新た に 項目 を 追加 し て 
し まう と 、 複 数 の FTP サ ー バ の ディ レク トリ 情報 が 混ざっ て し まい ます 。 そ こ で 、 
すでに リス ト 表 示 が あれ ば 、 そ れ を 消し て お く 必 要 が あり ます 。 

リス トビ ュー コン トロ ー ル の [Count] プロ パテ ィ の 値 を 調べ る と 、 現 在 リ スト 
ビュ ー コ ント ロー ル に 項目 の 表示 が ある か どう か が わか り ま す 。 も し あれ ば 、 
「Clear] メソ ッ ド を 使用 し て 項目 を すべ て 消し ます 。 


P ェ ュ ivate Sub GetBEn C11ok( ) 
Dim GetU エ 1 As S モ ェ ュ ing 


エ F ListView1 . エ 5 ヒエ tems .CounE >= 1 Then 
ListView1 . エ is ヒエ 上 ems . ご 1ea エ 
End エモ 


そし て 、Lesson19 で 作成 し た ディ レク トリ 情報 の 取得 を 、 イ ンタ ーネット トラ ン 
ス フ ァ ー コ ント ロー ル の Execute メ ソ ッ ド で 行い ます 。 


Lesson ら 1 簡単 FTP ク ライ アン ト プ ロ グラ ム の 作 


GetU ェ 1 = Combo1 ."mexcE 
GetU エ 1 = "Ep://" & GeEU ェ 1 


エ ne1 . 正 zxeCu モ 上 @G Ge モ U エ 1 , "DTER" 


各 最後 に 、 変 数 「Flag] に 「True」 を 代入 し て 、 デ ィ レ クト リ 情 報 の 取得 を 行っ た 
こと を 記録 し て お きま す 。 


Flag = True 


[Get Dir List] ボタ ン で サー バ か ら の 転送 を 開始 する と 、 イ ンタ ーネット トラ ン 
ス フ ァ ー コ ント ロー ル の 「StateChanged] イベ ント が 発生 し ます 。 引 数 「State」 
の 値 を Select Case ス テー トメ ント で 調べ ます 。 

転送 が 完了 し た 「icResponseCompleted」 が 格納 され て いれ ば 、 し か も それ が デ 
ィ レ クト リ 情 報 の 取得 で あれ ば (Flag = True で あれ ば ) 、「GetChunk] メソ ッ ド を 
実行 し て 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル に ディ レク トリ の 内 容 を 転送 し ま 
す 。 そ し て 、 ダ ウン ロー ド 完 了 の メッ セー ジ ボ ッ クス を 表示 し 、 プ ログ レス バー の 
表示 と 変数 [il を リセ ッ ト し ます 。 


P ェ ュ ivate Sub Tnet1 StateChanged ( ByVa1 State As Tnteger ) 
Dim GetData AS Varian モ 


Se1ect Case Sae 
Case icResponseComp1eted 

エ F F1ag = True Then 
GetData = Tne1 .GetChunk (2048, 1oCS ェ nd) 
RichTmextBoxx1 . meGx = GeEDa モ a 

下 nd TE 

MsgBox "ダウ ン ロ ー ド 完了 " 

ProgressBar1.Va1ue = 0 

ュ ミ = 0 


サー バ か ら の 転送 中 は 、 引 数 「State」 に は 「icReceivingResponse」 が 格納 され 
て いる の で 、 こ の と き に プロ グレ スバ ー コ ント ロー ル の [Value] プロ パテ ィ に 値 
を 設定 し て 、 転 送 中 の 表示 を 行い ます (Q&A-19 を 参照) 。 


Case 1CReCe ふ YingReGSponSG 
2 
エ E i = 10 Then 
も ミ = 0 
End TE 
ProgreSSBar1.Va1lue = ュ 
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また 、 転 送 中 に エラ ー が 発生 し た 場合 は 、「State」 に は 「icError| が 格納 され る 
の で 、 そ の と き は エラ ー の メッ セー ジ ボ ッ クス を 表示 し 、FTP サ ー バ と の 接続 を 切 
断 し ます 。 そ し て 、 プ ログ レス バー の 表示 と 変数 [i] を リセ ッ ト し 、 プ ロ シ ー ジ ャ 
を 終了 し ます 。 


Case iC 到 エ エ O エ 
MsgBox "ダウ ン ロ ー ド で きま せん 
エ ne1 .ExrxeCu モ oe , "CLOSE" 
ProgressBar1 .Va1ue = 0 
=0 


リッ チ テ キス ト ボ ックス コン トロ ー ル に 、 デ ィ レ クト リ 情 報 が 格納 され る と 、 リ 
ッ チ テキ スト ボッ クス コン トロ ー ル に は 「Change」 イベ ント が 発生 し ます 。 そ こ で 、 
この イベ ント プロ シー ジャ で 、 リ ッ チ テキ スト ボッ クス コン トロ ー ル の 内 容 を テン 
ポラ リフ ァイル 「c:\temp.txt」 に 格納 し ます 。 同時 に 、 リ ッ チ テキ スト ボッ クス コ 
ント ロー ル の 内 容 を 使っ て 、 リ スト ビュ ー コ ント ロー ル の 項目 表示 を 実行 し ます 。 
これ は 、 ユ ー ザ ー 定 義 の プロ シー ジャ 「[Listup」 に 作成 し 、 こ れ を 呼び 出し ます 。 


Pivate Sub RichTmexxtBox1 Change( ) 
RichmexxEBox1 . SaveFi1e "Cs 至 Eemp . モ xx モ "。 1 
Ca11 Listup 

End Sub 


リス トビ ュー コン トロ ー ル の 設定 を 行う プロ シー ジャ 「Listup] を 、 新 し く 作 成 
し ます 。 こ の プロ シー ジャ は 、 テ ン ポ ラリ ファ イル に 格納 し て ある ディ レク トリ 情 
報 を 1 行 ずつ 解析 し 、 項 目 名 を 作成 レア イコ ン と いっ し ょ に リス トビ ュー コン トロ 
ー ル に 追加 し ます 。 ア イコ ン の 設定 は 、 項 目 名 が ディ レク トリ で あれ ば 、 デ ィ レ ク 
トリ 用 の アイ コン を 、 そ う で な い 場 合 は ファ イル 用 の アイ コン を 組み 込み 、 ア イコ 
ン で 区 別 が 付け られ る よう に し ます 。 


ファ イル と ディ レク トリ を 
項目 名 に 設定 し 、 ア イコ ン 
を 変え て 表示 する 
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まず 、 変 数 を 3 つ 官 言 し ます 。 変 数 「DirIttem] は 、 デ ィ レ クト リ 情 報 を 格納 し て 
いる テン ポラ リフ ァイル か ら 取 り 出 し た 、 デ ィ レ クト リ ま た は ファ イル 名 を 格納 し 
ます 。 ま た 、 変 数 「MarkStrr] は 、 取 り 出 し た ディ レク トリ 名 の 未 尾 に 「/」 (ディ 
レク トリ で ある こと の 記号 ) が 付い て いる か どう か を 判別 する の に 使用 し ます 。 


P ェ ュ で ae Sub Listup( ) 
Dim DirT エ tem As Sring 
Dim MarkS モ ヒエ AS St エ ingd 


続い て 、Open メソッド で 、 テ ン ポ ラリ ファ イル を 開き ます 。 
Open "の : 壮 Lemp . 上 x ヒ 上" Fo エ エ Tnput As #1 


そし て 、Do..While Loop ス テー トメ ント で 、 フ ァイル の 終端 に くる まで ルー プ を 
まわ し ます 。 ル ー プ の 中 で は 、Add メ ソ ッ ド を 使っ て リス トビ ュー コン トロ ー ル に 
項目 を 設定 し ます 。 追加 し た 項目 は 、Set ス テー トメ ント で オプ ジェ クト 変数 
「Litem] に 、 オ プ ジ ェ クト 名 を 格納 し ます 。 


Do Whi1e Not EOF(1) 
Set エ Litem = ListView1 . エ is 上 エ Eems .AqdQ 


次 に 、「Line Input #| ステ ー ト メン ト で 、 フ ァイル の 中 身 を 1 行 だ け 取 り 出 し ま 
す 。 取り 出し た 1 行 は 、「Right」 関数 で 、 未 尾 の 1 文字 を 取り 出し 、 変 数 「MarkStr」 
に 格納 し ます 。 


エミ 1ne Tnpu 七 提 1,。 Di エエ tem 
MarkS エ = Righ モ (D ュ エエ tem, 1) 


IIf ステー トメ ント を 使っ て 、 変 数 「DirItem] が 空 で な いか どう か を チェ ッ ク し ま 
す 。 通信 の 状態 で "の デー タ が 転送 され る 場合 が ある か ら で す 。 

変数 の 中 身 が ディ レク トリ 名 また は ファ イル 名 で あれ ば 、 今 度 は 、 未 尾 の 文字 が 
「/] で な いか どう か を 調べ ます 。 変 数 「MarkStr」 の 値 が 「/|] で あれ ば 、 そ れ は デ 
ィ レ クト リ 名 な の で 、 項 目 の ア イコ ン を 表示 する [Smalllcon] プロ パテ ィ に 
「folder」 を 設定 し ます 。 こ の 名 前 は 、 イ メー ジリ スト コン トロ ー ル に 追加 し た フォ 
ル ダ 用 の アイ コン の キー の 値 で す 。「/] で な けれ ば それ は ファ イル な の で 、 
[Smalllcon] プロ パテ ィ に キー 「doc」 を 設定 し ます 。 
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イメ ー ジ リス トコ ント ロー 
ル の キー を [Smalllcon] 
プロ パテ ィ に 設定 する 





エ F DirTtem <> "m mhen 
TE MarkSt ェ = "/" mhen 電 


エ Litem .Sma11Tcon = 


下 1se 
エ Litem .Sma11Tcon = "doo" 
End TE 


アイ コン を 設定 し た ら 、 今 度 は [Text] プロ パテ ィ に ディ レク トリ 名 また は ファ 
イル 名 を 設定 し ます 。 こ れ ら の 処理 は 、 デ ィ レ クト リ 情 報 が 格納 され て いる ファ イ 
ル の 終端 まで 行わ れ ま す 。 そ し て 、 サ ー バ か ら 取 得 し た ディ レク トリ 情報 を すべ て 、 
リッ チ テ キス ト ボ ックス コン トロ ー ル と リス トビ ュー コン トロ ー ル に 表示 し ます 。 


エ ュ tom . mexxE = D ュ ェ エ Eem 
Loop 
C1ose #1 
End Sub 


そし て 、「Close] ステ ー ト メン ト で 、 開 いて いた ファ イル を 閉じ ます 。 


今度 は 、 リ スト ビュ ー コ ント ロー ル に 表示 され た ファ イル を ダウ ン ロ ー ド する 処 
理 を 作成 し まし ょ う 。 

リス トビ ュー コン トロ ー ル の 項目 が ユー ザー に よっ て クリ ッ ク さ れる と 、 
「ItemClick] イベ ント が 発生 し ます 。 こ の イベ ント プロ シー ジャ は 引数 [Item」 を 
持ち 、 ク リッ ク さ れ た 「ListIttem] オプ ジェ クト を 返し て きま す 。 そ こ で 、 こ の 
「ListIttem]」 オプ ジェ クト の [Text] プロ パテ ィ か ら 、 ク リッ ク さ れ た 項目 名 を 取 
得 し ます 。 

イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル の FExecute メ ソ ッ ド は 、FTP プ ロト 
コル を 使う 場合 は 、「GET」 コマ ンド を 実行 する と 、 サ ー バ に ある ファ イル を 接続 
し て いる コン ピュ ー タ に 転送 で きま す 。 こ の 場合 は 、「GET」 コマ ンド の あと に 、 
転送 する ファ イル 名 と 転送 先 の ドラ イブ ・ フ ァイル 名 を 指定 し ます 。 そ こ で 、 取 得 
し た 項目 名 を 使っ て 、 転 送 す る ファ イル 名 と 、 転 送 先 の ファ イル 名 を フル パス で 作 
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成 し 、「GET」 コマ ンド を 実行 し ます 。 こ こ で は C ド ライ ブ プ の ルー トディ レク トリ 
に ファ イル を 転送 し ます 。 

そこ で 、 こ の プロ シー ジャ で は 、「GET」 コマ ンド の 記述 を 作成 し て 、 モ ジュ ー 
ルレ ベル の 変数 「GetFile」 に 格納 し て いま す 。 


Priyate Sub ListView1 エ temC1iok(ByVa1 エ tem As 
MSComot1 エ ュ b . エエ 5 ヒエ em ) 
GetFi1e = "GET " g& エ Ttem.Tmext & "の "の & "Cs 笠 "  Ttem.Tex セ 
End Sub 


一 方 、[DownLoad] ボタ ン が クリ ッ ク さ れる と 、 ダ ウン ロー ド 操 作 が ディ レク ト 
リ の 取得 で は な く フ ァイル の 取得 な の で 、 変 数 「Flag] に 「False」 を 設定 し 、 
「Execute] コマ ンド を 実行 し ます 。 


Private Sub DownBtn C1iok( ) 

Flag = Fa1se 

エ ne 七 1 . 正 zzGCu 上 G GeU エ 1 , GetFi1e 
End Sub 


これ で 、 リ スト ビュ ー コ ント ロー ル で クリ ッ ク し た ファ イル は 、 コ ンピュータ に 
転送 きれ ます 。 転送 中 は 、 イ ンタ ーネット トラ ンス ファ ー コ ント ロー ル の 
[StateChanged| イベ ント が 発生 し ます 。 

変数 「Flag] を 「False」 に 設定 し て いる の で 、 リ ッ チ テキ スト ボッ クス コン トロ 
ー ル へ の ディ レク トリ 表示 は 実行 きれ ず 、 転 送 中 を あら わす プロ グレ スバ ー の 表示 
が 実行 きれ 、 ダ ウン ロー ド が 終了 する と メッ セー ジ ボ ッ クス が 表示 され ます (プロ 
シー ジャ 「Imnetl_StateChanged(ByVal State As Integer)| を 参 


すでに ダウ ン ロ ー ド し た ファ イル が コン ピュ ー タ に 存在 する に も 関わ ら ず 、 も う 一 度 
ダウ ン ロ ー ド し よう と する と 、 イ ンタ ーネット トラ ンス ファ ー コ ント ロー ル は エラ ー を 
起こ し ます 。 エラ ー 処 理 の 定数 は 次 ペー ジ に 表 に し て いる の で 、 これ を 参考 に し な が ら 、 
必要 な ら エ ラー 処理 を 組み 込ん で お きま し ょ う 。 

また 、 こ の プロ グラ ム は サー バ の ルー トディ レク トリ の 情報 を 取得 し て いま す が 、 サ 
一 條 内 の 各 デ ィ レ クト リ の 情報 を 取得 する に は 、「CD」 コマ ンド な ど を 使用 し ます 。 
Execute メソ ッ ド で 実行 で きる FTP コマ ンド に つい て は Lesson19 を 参照 し て くだ 
さい 。 
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ーー ドー た ーー テー 」 


以上 で 、 プ ログ ラム が 完成 で す 。 イ ンタ ーネット に 接続 し て 、FTP サー バ を 指定 し 
て 、 デ ィ レ クト リ の 取得 と ファ イル の ダウ ン ロ ー ド を 実行 し て くだ さい 。 

イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル の FTP プロ トコ ル は 、 ま だ まだ た くさ 
ん の コマ ンド を 用 意 し て いま すか ら 、 フ リー ソフ ト や 市 販 の FTP クラ イア ント ソフ ト 
の よう に 、 デ ィ レ クト リ の 作成 や 変更 、 ド ラッ グ S ドロ ッ プ の 採用 な どい ろ い ろ な 機 
能 を 組み 込ん だ ソフ ト に 仕上 げ る こと が で きま す 。 


ii べべ 


上 この プロ グラ ム で は 、 フ ァイル の 転送 先 を 「C:\] に 固定 し て 転送 し ま 
し た 。 こ れ を 、 コ モン ダイ アロ グ ボ ックス を 使っ て 、 フ ァイル 名 を 変え 
ず に 好き な フォ ル ダ を 指定 し て ダウ ン ロ ー ド で きる よう に 修正 し て くだ 


さい 。 


解答 は 巻末 に 一 


ーー シー ドニ ーー ニ リ 


この プロ グラ ム は サン ブル な の で 、 充 分 な エラ ー 処 理 を 組み 込ん で いま せん 。 実際 に 
ソフ ト を 開発 する 場合 は 、 以 下 の 表 を 参考 に し て エラ ー 処 理 を 組み 立て て くだ さい 。 


く イ ンタ ーネット トラ ンス ファ コン トロ ー ル の トラ ッ プ で きる エラ ー お よび その 定数 の 一 覧 > 








4 
icOutOfMemory | 7 メモ リ が 不足 し て いま す 。 
icTypeMismatch 13 型 が 一 致し ませ ん 。 
icInvalidPropertyValue 380 プロ パテ ィ の 値 が 不正 で す 。 











iclInetOpenFailed 35750 イン ター ネッ ト ハ ンド ル を 開け ませ ん 。 
icOpenFailed 35751 URL を 開け ませ ん 。 








icBadUrlL 3575 ら URL が 不正 で す 。 

icProtMismatch 35753 この メソ ッ ド で サポ ー ト され て いな い プ ロト コル で す 。 
icConnectFailed 35754 リモ ー ト ホス ト に 接続 で きま せん 。 

icNoRemoteHost 35755 リモ ー ト コン ピュ ー タ が 指定 され て いま せん 。 

icRHequestFailed 35756 要求 を 完了 で きま せん 。 

icNoExecute 35757 デー タ を 抽出 する 前 に 、 任 意 の 操作 を 実行 し て お く 必要 が あり ます 。 
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i 
に 


| 内 容 


icBlewChunk 35758 デー タ を 抽出 で きま せん 。 












icFtpCommandFailed 35759 FTP コマ ンド に 失敗 し まし た 。 


icUnsupportedType タイ プ は 強制 的 に は 指定 で きま せん 。 
icTimeOut 3576 1 要求 が タイ ム ア ウ ト に な り ま し た 。 





iclInvalidURL 35771 不正 な URL で す 。 
icUnrecognizedScheme | 3577 ら 認識 され な い ス キー ム で す 。 


icOptionNotSettable オプ ショ ン を 設定 で きま せん 。 
icShutDown シャ ッ ト ダ ウン し ます 。 
icLoginFailure ログ オン に 失敗 し まし た 。 


icNotProxyHequest プロ キシ で は あり ませ ん 。 
icRegistryValueNotFound レジ スト リ の 値 が 見 つか り ま せん 。 
icbadRegistryParameter レジ スト リ の パラ メー タ に 問題 が あり ます 。 
icNoDirectAcoess ダイ レク ト ア クセ ス は あり ませ ん 。 
iclIncorrectPassword パス ワー ド が 正しく あり ませ ん 。 
icNoContext コン テク スト が あり ませ ん 。 
icRequestPending 要求 は 保留 され まし た 。 
icIncorrectFormat 形式 が 正しく あり ませ ん 。 


icltemNotFound アイ テム が 見 つか り ませ ん 。 


icCannotConnect 357985 接続 で きま せん 。 
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icConnectionAborted 


接続 が 中 断 さ れ ま し た 。 





icConnectionRHeset 


接続 が リセ ッ ト さ れ ま し た 。 





icForceHetry 


再 試行 し ます 。 





icInvalidProxyHequest 


不正 な プロ キシ 要求 で す 。 





icWouldBlock 


ブロ ッ ク 化 を 行い ます 。 





icHandleExists 


ハン ドル が 存在 し ます 。 





icSecCertDatelnvalid 


セキ ュ リ ティ 保証 の 日 付 が 無効 で す 。 





icSecCertCnInvalid 


セキ ュ リ ティ 保証 の 数 値 が 不正 で す 。 





icHttpsToHttpOnRedir 


HTTPS か ら HTTP へ の リダイレクト で す 。 





icMixedSecurity 


セキ ュ リ ティ が 混在 し て いま す 。 





icChgPostlSNonSecure 


投稿 の 変更 は セキ ュ リ ティ 上 問題 が ある 可能 性 が あり ます 。 





icHttpToHttpsOnRHedir 


HTTP か ら HTTPS へ の リダイレクト で す 。 





icPostlSNonSecure 


投稿 は セキ ュ リ ティ 上 問題 が ある 可能 性 が あり ます 。 





icClientAuthCertNeeded 


クラ イア ント を 認証 する 必要 が あり ます 。 





iclInvalidCa 


クラ イア ント の 認証 が 不正 で す 。 





icClientAuthNotSetup 


クラ イア ント の 認証 が 設定 アッ プ さ れ て いま せん 。 





icAsyncThreadFailed 


非同期 スレ ッ ド に 失敗 し まし た 。 








icRedirectSchemeChange 





スキ ー ム の 変更 を リダイレクト し ます 。 





icFtpTransferlnProgress 


FTP - 転送 中 で す 。 





icFtpDropped 


FTP - 接続 に 失敗 し まし た 。 





icGopherProtocolError 


Gopher - プロ トコ ル エ ラー で す 。 





icGopherNotFile 





Gopher - ファ イル で は あり ませ ん 。 





icGopherDataError 





Gopher - デー タ エラ ー が 発生 し まし た 。 





icGopherEndOfData 


Gopher - これ 以上 デー タ は あり ませ ん 。 





icGopherlnvalidLocator 


Gopher - 不正 な ロケ ー タ で す 。 





icGopherlncorrectLocatorType 


Gopher - ロケ ー タ の 種類 が 正しく あり ませ ん 。 





icGopherNotGopherPlus 


Gopher - Gopher Plus で は あり ませ ん 。 





icGopherAttributeNotFound 


Gopher - 属性 が 見 つか り ま せん 。 





icGopherUnknownLocator 


Gopher - 不明 な ロケ ー タ で す 。 





icHeaderNotFound 


HTTP - ヘッ ダー が 見 つか り ま せん 。 





icHttpDownlevelServer 


HTTP - ダウ ン レ ベル の サー バー で す 。 





icHttpInvalidServerResponse 


HTTP - サー バー の 応答 が 不正 で す 。 





icHttpInvalidHeader 


HTTP - 不正 な ヘッ ダ で す 。 





icHttplnvalidQueryHequest 


HTTP - 不正 な クエ リー 要求 で す 。 





icHttpHeaderAlreadyExists 


HTTP - ヘッ ダ が 既に 存在 し ます 。 





icHttpHedirectFailed 


HTTP - リダイレクト に 失敗 し まし た 。 





icSecurityChannelError 


セキ ュ リ ティ チャ ネル エラ ー で す 。 





icUnableToCacheFile 


キャ ッシュ ファ イル が 使用 で きま せん 。 











詩 アノ = (Lesson2 ら ~ Lesson ら 4) 
カス タム Web 

















フラ ウサ の 作成 







コン ピュ ー タ に 、Microsoft の WWW ブラ ウザ 「 イ ンタ ーネット エク スプ ロー ラ 」 
を イン スト ー ル し て いる と 、 こ の オブ ジェ クト の イン スタ ンス を Visual Basic で 
作成 し て 操作 で きま す 。 ま た 、 イ ンタ ーネット エク スプ ロー ラ を 構成 し て いる オブ 
ジェ クト の 1 つ に 、「WebBrowser」 コン トロ ー ル が あり ます 。 イ ンタ ーネット 
エク スプ ロー ラジ ラ 自身 の ブラ ウザ 機能 よ ま 、 こ の コン トロ ー ル を ベー ス に 組み 立て られ 
て お り 、ActiveX コン トロ ー ル と し て コン ピュ ー タ に イン ス トー ル さ れ て いま す 。 
その た め 、 こ の 「WebBrowser」 コン トロ ー ル を フォ ー ム に 組み 込む こと で 、 独 
自 の ブラ ウザ を 作成 する こと が で きま す 。 

今日 の レッ スン で は 、Visual Basic で 作成 し た フォ ー ム か ら 、 イ ンタ ーネット エ 
クス プロ ー ラ を 起動 し て 操作 する プロ グラ ム の 作成 と 、WebBrowser コン トロ ー 
ル を フォ ー ム に 組み 込ん で 、 オ リ ジ ナ ル の Web ブラ ウザ を 作成 し ます 。 

今日 の レッ スン で 解説 する 項目 

ロ CreateObject 関数 に よる ActiveX オブ ジェ クト の イン スタ ンス の 作成 

URL の 設定 と ペー ジ の 表示 

ロイ ンタ ーネット エク スプ ロー ラ の 表示 を 設定 する プロ パテ ィ 

品 Internet Client SDK に つい て 

ロロ Web ナビ ゲー ショ ン 用 メソ ッ ド の 使い 方 

ロロ WebBrowser コン トロ ー ル の 機能 と 特徴 

ロロ WebBrowser コン トロ ー ル の プロ パテ ィ を 使う 

ロロ フォー ム 上 の 他 の コン トロ ー ル と の 連携 操作 

ロロ WebBrowser コン トロ ー ル の イベ ント を 使っ た 処理 

口 転送 バイ ト 数 の 把握 
ロロ 表 示し て いる HTML ドキ ュ メ ント の 保存 方 法 


ーー 
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イン ター ネッ ト エ クス プロ ー ラ を 操作 する 

コン ピュ ー タ に 、 イ ンタ ーネット エク スプ ロー ラ の バー ジョ ン 「3.0x」 
また は 「4.0x」 以降 が 組み 込ま れ て いれ ば 、 こ れ ら を Visual Basic の 
プロ グラ ム か ら 、 リ モー トコ ント ロー ル で 操作 する こと が で きま す 。 そ 
こ で 、 こ の レッ スン で は 、 プ ログ ラム か ら イ ンタ ーネット エク スプ ロー 
ラ の イン スタ ンス を 作成 し て 、 コ ン ボ ボッ クス コン トロ ー ル に 設定 し た 
HTML ファ イル や ホー ムペ ー ジ を 表示 する プロ グラ ム を 作成 し ます 。 


今回 作成 する プロ グラ ム 


ボタ ン を クリ ッ ク 
する だ け で .… 


イン ター ネッ ト 
エク スプ ロー ラ 
を 起動 で きる 








フォ ー ム に 配置 し た コン ボボ ックス コン トロ ー ル か ら 、HTML フ 
ァイル 名 や UHL を 選び 、「 新 し い ブ ラウ ザ 」 ボタ ン を 押す と 、 イ ン 
ター ネッ ト エ クス プロ ー ラ の イン スタ ンス を 生成 し て 、HTML コン 
テン ツ を 表示 し ます 。 プ ログ ラム は 、 イ ンタ ーネット エク スプ ロー 
ラ の イン スタ ンス を 毎回 生成 し て HTML を 表示 する 方 法 と 、1 つの 
イン スタ ンス で 表示 する HTML を 切り 替え る 方 法 の 、 ら 通り の テク 
ニッ ク を 使用 し ます 。 





※ こ の 日 の レッ スン で は 、 操 作 す る WWW ブラ ウザ と し て イン ター ネッ ト 
エク スプ ロー ラ 5.0 を 使用 し た プロ グラ ム 作成 を 解説 し て いま す (メソ ッ 
ド の 変更 で 3.xx に も 応用 で きま す ) 。 イ ンタ ーネット エク スプ ロー ラ 
ら .xx お よび Netscape Navigator は 、 操 作 す る こと が で きま せん 。 


LessSon ら の | イン ター ネッ ト エ クス プロ ー ラ を 操作 する 


ント ーッ ル だ こ ジ 。 晶 / 70 天 508 の らら 二 と 志 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 ま た 、 
[materiall フォ ル ダ 内 の 「ie.htm」「ie2.htm」 「alert.htm]」 を C 
ドラ イブ に コピ ー し て お いて くだ さい 。 


フォ ー ム の [Caption] プロ パテ ィ を 「Internet 
Explorer Control Pad」 に 変更 する 


Form1 Form 





False 
BackColor 四 &H8000nOF& 


BorderStyle JE 
Cantion jnternet Explorer Contral Pad 
ClinCantrnls True 


フラ ッ ツール バ パレット の [ComboBox] 軸 を 合っ て 、 コ 
ン ボ ボッ クス コン トロ ー ル を 配置 する 





斜め に ドラ ッ グ 
し て 配置 











Combo1 CombaBox | 
全体 | 項目 串 | | 





C:\je.htm 


c\alerthtm C:\je ら .htm 


http://wwwb "seto/ 
2 c:\alert.htm 


http://WwwW.Dig.0r.jD/ SetoO/ 
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コマ ンド ボタ ン を 
で 昌 置 す る 


コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 

の [CommandButton] 時 
を 使い ます 。 = 





竹 [Text] プロ パテ ィ を 「c:\ie.htm」 に 変更 する 





ICombo1 ComboBox ェ ] 


全体 | 項目 別 | | 





フォ ー ム 上 に コマ ンド ボタ ン を 3 つ 配 置 し 、 各 ボタ 
ン の プロ パテ ィ を 次 の よう に 設定 する 


エル オブ ジェ クト 名 Caption Enabled 
Command 1 RunBtn 新しい ブラ ウザ の 起動 

Command ら 2 ViewBtn | ブラ ウザ の 表示 切り 替え 
Command3 CloseBtn ブラ ウザ を 閉じ る 











画 、 jnternet Explorer Control Pad 


配置 し て プロ パテ ィ 
設定 し た コマ ンド 





ボタ ン 
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Lesson ら つ の イン ター ネッ ト エ クス プロ ー ラ を 操作 する 


[新しい ブラ ウザ の 起動 ] ボタ ン の [TabIndex] プロ 
パテ ィ を 「0」 に 変更 する 


プロ パティ - RunBtn 








RunBtn CommandButton ェ 


全体 | 項目 | 





TaalTipText 

Top 36I 明 
UseMaskColar False 

visihle Trug | 


7 完成 し た フォ ー ム 





| Il 人 き 1 に 











[TabIndex] 

フロ ティ 

フォ ー ム に 如 置 し た コン 
トロ ー ル の [TabIndex] 
プロ パテ ィ を 「0] に 設定 
する と 、 フ ォ ー ム 表示 時 
に その コン トロ ー ル が フ 
ォ ー カ ス を 持ち ます 。 プ 
ログ ラム 起動 時 に 、 最 初 
に 操作 する コン トロ ー ル 
に 対し 、 こ の [TabIndex] 
プロ パテ ィ を 「0] に 設定 
し て お け ば 、 ユ ー ザ ー は 
すぐ に その コン トロ ー ル 
を 操作 で きる よう に な り 
ます 
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ョ Form1:(General)-(Declarations) 










My] 回 回 四 


(General) マ | (Declarations) - 選 


ye エ e As Ob]ject 






Form1:RunBtn-Click 


1 還 1 























Private Sub RunBtn C1iok( ) 
| Set Te = CreateOb]jeot ( " エ n ヒ @G エ ne 芯 xD1O エ @ エ . app11Cation" ) 


エ e .Navigate2 Combo1 . mex | 
エ e.Visib1e = "True | 
エ e . S モ atusText = "He11o!"m 

ViewBtn .Enab1ed = True 

C1oseBtn .Enab1ed =mTrue 















End Sub 
目 Form1:ViewBtn-Click ーー 
1。 | orml G ト ) 9 





ViewBtmn 選 ciick 





Private Sub ViewBtn C1iok( ) 
エ e .Navigate2 Combo1 . ex も 
End Sub 


Form1:Close Im-Click 































Private Sub C1oseBtn C1iok( ) 
エ e.Visib1e = Fa1se 
End Sub 


LessSon つつ イン ター ネッ ト エ クス プロ ー ラ を 操作 する 


EE 


上 Visual Basic は 、ActiveX テ クノ ロジ ー で 作成 きれ て いる アプ リケーション で あ 
れ ば 、 プ ログ ラム か ら そ の イン スタ ンス を 作成 し て 、 そ の アプ リケーション が 持つ 
オブ ジェ クト や プロ パテ ィ 、 メ ソ ッ ド な ど を 操作 する こと が で きま す 。 イ ンタ ー ネ 
ッ ト エ クス プロ ー ラ も 、ActiveX を 使っ て 作成 され た アプ リケーション な の で 、 
「ActiveX オ ブ プ ジ ェ クト | と し て Visual Basic の プロ グラ ム か ら 、 自 由 に 操作 する こ 
と が で きま す 。 

この レッ スン で は 、 イ ンタ ーネット エク スプ ロー ラ の プロ パテ ィ を 操作 し 、 リ モ 
ー ト コン トロ ー ル で HTML を 表示 きせ る プロ グラ ム を 作成 し て いき ます 。 で は 、 和 
単に プロ グラ ム の 動作 を 説明 し ます 。 


① コ ン ボ ボッ クス コン トロ ー ル の リス ト ボ ックス か ら 、 表 示し た い HTML の URL 
を 選び ます 。 も ちろ ん 、 コ ン ボ ボッ クス で すか ら 、 テ キス ト 入 力 エ リア に HTML 
の URL を 直接 人 力 し て も か まい ませ ん 。 


② [新しい ブラ ウザ の 起動 ] ボタ ン を クリ ッ ク す る と 、 イ ンタ ーネット エク スプ ロ 
ー ラ の イン スタ ンス を 生成 し 、 コン ボボ ックス コン トロ ー ル で 選択 され て いる 
URL を 表示 し ます 。 イ ンタ ーネット エク スプ ロー ラ の イン スタ ンス は 、 こ の ボタ 
ン を クリ ッ ク す る た びに いく つも 起動 で きま す 。 


ーー 5 こう て 
生 う コ 
EPR ーー osa 


| copwee | 













ボタ ン を クリ ッ ク 
する だ け で .… 







2 の 23 で の 人 。 いつ あの か WiA っ Xe が を 
aa うな ココ コ 
oe em っ | 


rise 


複数 の イン ター ネッ ト 
エク スプ ロー ラ を 起動 
で きる 


③ [ブラ ウザ の 表示 切り 替え ] ボタ ン を クリ ッ ク す る と 、 最 後に 生成 し た イン ター 
ネッ ト エ クス プロ ー ラ の 表示 を 、 コ ン ボ ボッ クス コン トロ ー ル で 選択 し た URL に 
入れ 共 え ます 。 


第 7 日 1 時 限 目 カス タム Web ブラ ウザ の 作 左 。 







(《④① [プラ ウザ を 閉じ る ] ボタ ン を クリ ッ ク す る と 、 最 後に 生成 し た イン ター ネッ ト 
エク スプ ロー ラ の イン スタ ンス を 非 表 示 に し ます 。 


イン ター ネッ ト エ クス プロ ー ラ の オブ ジェ クト と 付随 する プロ パテ ィ 、 メ ソ ッ ド は 
Visual Basic の ヘル プ や マニ ュ ア ル に は 記述 され て いま せん 。 こ れ ら は 、Microsoft 
が 提供 し て いる 「Internet Client SDK」 と いう 開発 キッ ト の 中 に 、 詳 し く 記 述べ れ た 
ドキ ュ メ ント が 入っ て いま す (詳し く は 、 こ の レッ スン 未 尾 の コラ ム 「Internet 
Client SDK」 を 参照 )。 


有 プ 他 の アプ リケーション の イン スタ ンス を 作成 する に は 、[CreateObject| 関数 を 
使用 し ます 。 こ の 関数 は 、 指 定 し た オブ ジェ クト の イン スタ ンス を 生成 し 、 そ の オ 
プ ブ ジ ェクト 名 を 返し て きま す 。 
この 関数 の 引数 に 、 イ ンタ ーネット エク スプ ロー ラ の 「 プ ログ ラム ID (クラ ス ) 
を 設定 し て 実行 すれ ば 、 イ ンタ ーネット エク スプ ロー ラ の イン スタ ンス が 作成 され 
ます 。「 プ ログ ラム ID」 は 、 そ の オプ ジェ クト の クラ ス を 文字 列 で 表し た も の で 、 
それ ぞ れ の アプ リケーション ご と に 独自 の 名 前 が 付け られ て いま す 。 こ の クラ ス が 
アプ リケーション で あれ ば 、「Application] クラ ス に 属し ます の で 、 ク ラス と アプ 
リケーション の 名 前 が 「 プ ログ ラム ID」 に な り ま す 。 


し ルナ トナメ エエ エエ エミ エミ ミミ エメ ミミ オオ ミド KKTIIYTIKYIKKKIEKYKKKKKKKKYYIIKYKKKKYYEEYYEKKLKLEEKKKS さ さと ここ こと 


CreateObject 関数 の 書式 
CreateObject (c1ass ) 


c1ass 引数 ctass は 「appname . objecttype」 で 指定 し ます 。 
appname オブ ジェ クト を 提供 し て いる アプ リケーション の 名 前 
を 指定 し ます 。 
objecttype 作成 する オブ ジェ クト の 種類 また は クラ ス を 指定 し ま 
(9 
ぐ く 代表 的 な プロ グラ ム ID > 


プロ グラ ム 名 プロ グラ ム ID 


Microsoft Excel Excel.application 


Microsoft Word Word.application 
イン ター ネッ ト エ クス プロ ー ラ InternetExplorer.application 








「CreateObject」 関数 の 引数 に 、 こ の 「 プ ログ ラム ID」 を 設定 し て 実行 する と 、 
オプ ジェ クト の イン スタ ンス を 作成 し て 、 オ プ ジ ェ クト 名 を 戻り 値 と し て 返し て き 



























LessSOon ら つ の イン ター ネッ ト エ クス プロ ー ラ を 操作 す 


ます 。 返っ て きた 戻り 値 は 、Set ス テー トメ ント で オブジェ クト 変数 に 格納 し ます 。 
これ で 、 イ ンス タン ス の プロ パテ ィ や メソ ッ ド に アク セス で きる よう に な り ま す 。 


で は 、 コ ー ド を 作成 し まし ょ う 。 

まず 、 フ ォ ー ム の 宣言 セク ショ ン に 、 イ ンス タン ス の オブジェ クト 名 を 格納 する 
オプ ジェ クト 変数 「Ie] を 宣言 し ます 。 オ ブ ジ ェクト 変数 な の で 、 デ ー タ 型 は 
「Object] に し ます 。 データ 型 を 「Objectl に し て お く と 、 プ ログ ラム 実行 時 に 
「CreateObjectl 関数 が 戻し て くる オブ ジェ クト の 型 に 設定 され ます 。 


Dim Te As Ob]ject 


次 に 、[ 新 し い プ ラウ ザ の 起動 ] ボタ ン の Click イ ベン ト プ ロ シー ジャ に 、 イ ンタ 
ーネット エク スプ ロー ラ の イン スタ ンス を 作成 する 処理 を 記述 し ます 。 ま ず 、 
「CreateObject」 関数 を 実行 し て 、 イ ンス タン ス を 作成 し ます 。 引数 に は 、 
「InternetExplorer.application」 を 文字 列 で 記述 し ます 。 関 数 の 戻り 値 は 、Set ステ 
ー ト メン ト で オブ ジェ クト 変数 「e」 に 格納 し ます 。 


Set Te = CreateOb] eo ( " エ n モ Grne 芯 xp] 〇 て @r . app11Ca モ ion" ) 


これ で 、 イ ンタ ーネット エク スプ ロー ラ の イン スタ ンス が 作成 で きま し た 。 た だ 
し 、 こ れ だ け で は イン スタ ンス を 作成 し た に すぎ ませ ん の で 、 表 示す る に は この オ 
プ ジ ェ クト の プロ パテ ィ を 操作 し ます 。 


イン ター ネッ ト エ クス プロ ー ラ オブ ジェ クト の 「Navigate2] メソ ッ ド は 、 引 数 
に 指定 し た URL を 、 イ ンタ ーネット エク スプ ロー ラ に 設定 する メソ ッ ド で す 。 こ こ 
に 、 コ ン ボ ボッ クス コン トロ ー ル の [Text] プロ パテ ィ の 値 を 設定 し ます 。 

コン ボボ ックス コン トロ ー ル に は 、[List]l プロ パテ ィ と [Text] プロ パテ ィ に 
HTML フ ァイル の URL を 設定 し て いま すか ら 、 ユ ー ザ ー が クリ ッ ク し た リス ト ボ 
ックス の 内 容 を 、Navigator2 メ ソ ッ ド の 引数 に 渡し て あげ ます 。 


エ e .Navigate2 Combo1 . mexx も 
Navigate ら メソ ッ ド の 書式 
Object . Navigate2 URL. [Fl1ags, ] [Target 上 FrameName , ] 
[PostData , ] [Headers] 


object コン トロ ー ル する オブ ジェ クト を 指定 し ます 。 
URL uRt ある い は ファ イル の バス を 指定 し ます 。 
〒F1ags 省略 可能 。 履 歴 に 追加 する か どう か 、 キ ャ ッシュ を 読み 書き する か 、 


な ど を 定数 で 指定 し ます 。 定 数 は ヘル プ を 参照 し て くだ さい 。 
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margetFrameName 省略 可能 。uRr の ウィ ンド ウ の 表示 位置 を 決定 し ます 。 定 数 は ヘル プ 


を 参照 し て くだ さい 。 
PostData 省略 可能 。grrp posr 処 理 中 に サー バー へ 送る デー タ を 指定 し ます 。 
Headers 省略 可能 。 サ ー バ ー に 送る grrs ヘッ ダー を 指定 し ます 。 


トト は エエ トド オト MSKTEITIIIKIIKYKNKAKKNYIKKYKKKKYEKYEKKKKYKYEKYKRKKYRKKKYRRKTKLKEEELEEEKKE た た は 





「Navigateg] メソ ッ ド は 、 イ ンタ ーネット エク スプ ロー ラ 4.0x 以降 に 有効 な メソ 
ッ ド で す 。 バ ー ジ ョ ン 3.0x を 操作 する 場合 は 、「Navigate] メソ ッ ド を 使用 し て くだ 
さい 。「Navigate] メソ ッ ド は 、Ver3.0x、4.0x、5.0x の いずれ で も 使用 可能 で す 。 


人 [visible] プロ バテ ィ は 、 イ ンタ ーネット エク スプ ロー ラ を 表示 する か どう か を 
設定 する プロ パテ ィ で す 。 値 は 論理 値 で 、「True] か 「False] を 設定 し ます 。 こ の 
[Visible] プロ パテ ィ に 「True」 を 設定 し た 時 点 で 、 イ ンタ ーネット エク スプ ロー 
ラ の イン スタ ンス が 、 画 面 に 表示 きれ ます 。 そ し て 、Navigator2 メ ソ ッ ド で 設定 き 
れ た URL の HTML フ ァイル が 、 ブ ラウ ザ に 表示 され ます 。 


エ re.Visib1e = "True 


また 、[StatusText] プロ パテ ィ に 文字 列 を 設定 する と 、 イ ンタ ーネット エク ス 
プロ ー ラ 400 で は 、 ス テー タス バー に その 文字 を 表示 で きま す 。 


エ e .StatusTexE = "He11o!" 


そし て 、[ ブ ラウ ザ の 表示 切り 禁 え ] ボタ ン と [プラ ウザ を 閉じ る ] ボタ ン を 有効 
に し ます 。 こ の 2 つの ボタ ン は 、 フ ォ ー ム デザ イン 時 に 無効 に し て いま し た 。 イ ン 
スタ ンス が 作成 きれ て 、 こ れ ら の ボタ ン が 有効 に な る よう に し ます 。 


[Visible] プロ パテ ィ に 
「True」 を 設定 する と 表 
示さ れる 





ViewBtn .Enab1ed = True 
C1oseBtn .Enab1ed = True 


Lesson つつ イン ター ネッ ト エ クス プロ ー ラ を 操作 す 


⑩⑳ [プラッ ザ の 表示 切り 替え] ボタ ン で は 、 コ ン ポ ボッ クス の 選択 項目 を 、 再 度 
「Navigate2] メソ ッ ド の 引数 に 当て て 実行 し ます 。 


PE ェ iyate Sub ViewBtn C1iok( ) 
Te .NaYigate2 Combo1 . mex モ 
End Sub 


また 、 [プラ ウザ を 閉じ る ] ボタ ン で は 、 イ ンタ ーネット エク スプ ロー ラ の 
[Visible] プロ パテ ィ に 「False」 を 設定 し 、 非 表示 に し ます 。 表 示 を 非 表示 に する 
だ け で すか ら 、 作 成 し た イン スタ ンス は その まま 保持 され ます 。 


Private Sub C1oseBtn C1iok( ) 
ェ e.Visib1e = Fa1se 
End Sub 


な お 、 こ れ ら の 処理 は 、 複 数 の イン スタ ンス を 作成 し た 場合 は 、 最 後に 作成 し た 
イン スタ ンス に 対し て の み 有 効 で す 。 な ぜ な ら 、 オ プ ブ ジ ェクト 変数 [le] に は 、 最 
後に 作成 し た イン スタ ンス の オブジェ クト 名 が 格納 ミ され る か ら で す 。 


/ 以上 で 完成 で す 。 実 際 に 動作 させ て くだ さい 。 イ ンタ ーネット エク スプ ロー ラ そ 
の も の は 、 通 常 の ブラ ウザ と 同じ よう に 、 ホ ー ム ペー ジ に アク セス で き 、 ま た 作成 
し た プロ グラ ム か ら も URL を 変更 し て 表示 で きま す 。 


イン ター ネッ ト エ クス プロ ー ラ を オブ ジェ クト と し て 、 自 分 の プロ グラ ム か ら 自 由 
に 操作 で きま す 。 こ の テク ニッ ク は 、 新 し い ブ ラウ ザ を 作成 する こと な く 、 既 存 の オ 
ブ ジ ェクト を 上 手 に 活用 する の で 、 開 発 の 手間 が 省け ます 。 

「CreateObject」 関数 の 使い 方 で 注意 する の は 、 戻 り 値 が オブ ジェ クト な の で 、 必 
ず オ ブ ジ ェクト 変数 に Set ス テー トメ ント を 使っ て 格納 する こと で す 。 
InternetExplorer オブ ジェ クト の 保有 すす る プロ パテ ィ や メソ ッ ド の 一 覧 は 、P.303 
の コラ ム に 記載 し て いま す の で 、 そ ちら を 参照 し て くだ さい 。 


く c》 練習 問題 


作成 し た プロ グラ ム を 、 イ ンス タン ス を 1 つ だ けし か 生成 で き な い よ 
うに 修正 し て くだ さい 。 


解答 は 巻末 に 一 
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Internet Client SDK 


この レッ スン で 紹介 し て いる 内 容 は 、Visual Basic の オン ライ ン ヘ ルプ に は 記載 され て いま せ 
ん 。 これら の 情報 は 、 す べ て 「MSDN」 か ら 出 され て いる ドキ ュ メ ント (すべ て 英文 ) に 記載 
され て いま す 。 こ れ ら は 、 次 の 方 法 で 入手 する こと が で きま す 。 


①Microsoft が 運営 し て いる 、 開 発 者 向け 技術 情報 サー ビス 「MSDN」 (Microsoft Developer 
Network) か ら 発行 さき れ て いる 「MSDN Library」、 ま た は Visual Studio6.0 に 付属 する 
「MSDN Library]、 ま た は Office2000 Developer Edition に 付属 する 「MSDN Library」 に 
記載 され て いま す 。 


② 最 新 情報 は イン ター ネッ ト 上 に 公開 され て いま す 。 次 の URL に WebBrowser コン トロ ー ル 
に つい て の 詳細 な ドキ ュ メ ント が あり ます の で 参照 し て くだ さい 。 


http://msdn.microsoftcom/workshop/browser/ 


※ こ れ ら の URL は 、1999 年 1 1 月 現在 確認 し た URL で す 。 こ の 日 付 以降 は URL が 変 
更 さ れ て いる 場合 も わる の で ご 了承 くだ さい 。 


MSDN の ホー ムペ ー ジ 


る midetec 飼 synctec 凍 imdex 
て weberoerer core ル WsbArowasr oneslRefere 


Me6 Workg か qp | Reowmg growzer 7ec2moooy 


ms s htorr lt that allows he user to browse forward and backward throuoh 
previoosly browsed stes, folders。 and documenis。 


The actual parsino and renderng of the HTML documents im he WebBrowser conrcl ie handled by the 








LesSon ら つ の イン ター ネッ ト エ クス プロ ー ラ を 操作 す 


「msdn Library] に 記述 され て 
いる WebBrowser Object の 
り リファレンス 


イー ネッ wlk エ クス プロ ー ラ オプ ジェ タ ド が 持っ て いる プ 還 際 記 と ど 


メソ ッ ド 、 イ ベン ト の 一 覧 
く プ ロ パ ティ > 

AddressBar、 Application、Busy、Container、Document、FullName、FullScreen、Height、 
HWND、Left、LocationName、LocationURL、MenuBar、Name、Offline、Parent、Path、 


ReadyState、RegisterAsBrowser、RegisterAsDropTarget、Resizable、Silent、StatusBar、 
StatusText、TheaterMode、ToolBar、Top、TopLevelContainer、Type、Visible、Width 


<X ソ ツ ド シ 

ClientToWindow、ExecWB、GetProperty、GoBack、GoForward、GoHome、GoSearch、 
Navigate、Navigate2、PutProperty、QueryStatusWB、Quit、Refresh、Refresh2、 
ShowBrowserBar、Stop 


ベイ ベン ト > 
BeforeNavigate2、CommandStateChange、DocumentComplete、DownloadBegin 、 
DownloadComplete、NavigateComplete2、NewWindow2、OnFullScreen、OnMenuBar、 
OnQuit、OnStatusBar、OnTheaterMode、OnToolBar、OnVisible、ProgressChange、 
PropertyChange、StatusTextChange、TitleChange 
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Internet Explorer Control Pad の 作成 


今度 は 、 イ ンタ ーネット エク スプ ロー ラ の ツー ル バ ー や メニ ュー な ど を 
非 表 示 に し 、HTML の 表示 の み を 行う 設定 を し ます 。 一 方 、 作 成 し た 
プロ グラ ム に [戻る ] 、[ 進 び ) な どの ボタ ン を 組み 込み 、 完 全 に プロ グ 
ラム か ら イ ンタ ーネット エク スプ ロー ラ の 制御 を 行う よう に し ます 。 





今回 作成 する プロ グラ ム 


WWW ブラ ウザ の 
ニュ ー と ツー テル 
バー を 非 表 示 に し .… 







1 Lesson23.vhp 


VB6CD2 


ヨコ Lesson23 














イン ター ネッ ト エ クス プロ ー ラ の 外観 を 制御 する プロ パテ ィ を 設 
定 し ます 。 ま た 、 イ ンタ ーネット エク スプ ロー ラ に ある ツー ル バ ー 
と 同じ 機能 を 持っ た ボタ ン を ブロ グラ ム に 組み 込み 、 イ ンタ ー ネ ッ 
ト エ クス プロ ー ラ の すべ て の 操作 を プロ グラ ム で 行う よう に し ます 。 


Lesson 23 


泊 コン トロ ー ル と プロ パテ ィ の 設定 
※ Lesson2 ら の QSA で 作成 し た 、「QSA-22.vbp」 を 開い て くだ さい 。 


ツー ル パ バレット の [Frame] 較 | を 使っ て 、 フ レー 
ムコ ント ロー ル を 配置 する 














斜め に ドラ ッ グ 
し て 配置 


み [Caption] プロ パテ ィ を 「Control」 に 変更 する 










なし) 


| Draglcon 
_0- 手動 


韻 edS 


Frame1 Frame ー 

| 全体 | 項目 別 | | 

EMIE3 | 

| appearance 1-3D 

BackColor 由 &H80On00UF& | 

Borderstyle 1- 実 線 | ここ を 「Control」 
| Control 「 ー が 

ClipContros True | に 変更 


フレ ー ム コン トロ ー ル の 中 に コマ ンド ボタ ン を 5 つ 
配置 し 、 プ ロ パ ティ を 設定 する 


オブ ジェ クト 名 Caption 
BkBtn Back 
StopBtn Stop 
FwdBtn Fwd 
RelBtn Reload 
HomeBtn Home 


Enabled 
False 

| False 
False 


Command 1 
Command ら 





Command3 








Command4 False 


Command5 


False 











Internet Explorer Control Pad の 作成 


ぐ ぎ GsA_ge vbp 


「Q&A-22.vybp] ファ イル 
は 、 付 録 CD-ROM の 
「Q&A」 フォ ル ダ に も 収録 
され て いま す 。 


また 、Lesson22 で 使っ た 
同じ HTML フ ァイル も 使 
用 し ます 。 


ga コマ ンド ボタ ン を 
ペン 配置 する 
コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 
の [CommandButton] 還 幸 
を 使い ます 。 選 
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還 *m 新しい ブラウ 記 | | 完成 し た フォ ー ム 























private Sub RunBtn C1iock( ) 
Se エ e = CreateObJjeot ( " エ nEe ェ neExp1orer . app1ioation" ) 


'Navigate メ ソ ッ ド は rg ver4.0、3.0 と も に 有効 
エ e .Navigate Combo1 . Tex 


' こ の レッ スン で 追加 し た コー ド 
With Te 
・Too1Bar エ = Fa1se 
・MenuBar エ = Fa1se 
・Height = 400 
・Wiqth = 400 


・Top = 100 
・LheE モ = 300 
End With 


エ e.Visib1e = True 
エ e . SEatusTexxt = "He11o!"m 


ViewBtn .Enab1ed = True 
C1oseBtn .Enab1ed = True 
RunBtn .Enab1ed = Fa1gse 
| BIkB て n Enab1ed = True 
StopB て tn .Enab1ed = True 
FwdBtn .Enab1ed = True 
Re1Btn .Enab1ed = True 
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| RiomeBtn.Enab1ed = True 
| End Sub 
に 


ョ Form1:ViewBtn-Click 














P ェ ivate Sub ViewBtn C1ioK( ) 


On 正 エ エ O エ ReSume Nexx 

Te .Na ゞ igate Combo1 . mex 
| EEnd Sub 

ョ Form1:CloseBtn-Click 


2 ) | - 1 ロ 4 | 
Private Sub C1oseBtn C1 ふ CK( ) 

On 正 エ エ o エ ReSume Nex セ 

エ e . Ou ュ 上 

ViewBtn .Enab1ed = Fa1se 

C1oseBtn .Enab1ed = Fa1se 

RunB て n .Enab1ed = "True 











BkBtn .Enab1ed = Fa1se | 
StopBtn .Enab1ed = Fa1se | 
FwdBtn .Enab1ed = Fa1se | 
Re1Btn .Enab1ed = Fa1se | 
HomeBtn .Enab1ed = Fa1se 


ョ Form1:BkBtn-Click 




















private Sub BkBtn で 1iok( ) | 
On 正 エ エ o エ ReSume Nex 
エ e .GoBacK | 
End Sub | 





| 









E ェ ivate Sub SEopBtn C1ick( ) 
| On 到 エ エ o エ ReSsume Nexx ヒ 

| エ e . S モ Op 

| End Sub 
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Private Sub FwdBtn C1sok( ) 
On エエ or Resume Nex 
エ e . GOFO エ wa エ Q 

End Sub 























川上 














Form1:RelBtn-Click 


Le Lu 人 ・ SS 回 四 


ctv 5 ※ 


P ェ ュ vate Sub Re1Btn C1iok( ) 
On E ェ ror Resume Nex 
エ e .ReEresh 

End Sub 


































Form1:HomeBtn-Click 





HomeBtn ーー eick_  、}- 


Private Sub HomeBtn C1iok( ) 
On Eror Resume Nexx も 
エ e . GoHome 

End Sub 











凡 イン ター ネッ ト エ クス プロ ー ラ オプ ジェ クト に は 、 ツ ー ル バー や メニ ュー の 表示 
と 非 表示 を 設定 する プロ パテ ィ や 、 ウ ィ ン ド ウ の サイ ズ と 位置 を 設定 する プロ パテ 
ィ を 持っ て いま す 。 ま た 、 ツ ー ル バー に ある 「 戻 る 」「 進 む 」「 中 止 」「 更 新 」 「 ホ ー 
ム 」 な どの ボタ ン と 同じ 動作 を する メソ ッ ド も 持っ て いま す 。 こ の プロ グラ ム で は 、 
イン ター ネッ ト エ クス プロ ー ラ の メニ ュー と ツー ル バ ー を 非 表 示 に し て 、 プ ログ ラ 
ム か ら 操 作 を 行う よう に し ます 。 


= 二 と ツ 計 少 准 剛 を 
非 表 示 に し ..… 


プロ グラ ム か ら 操 作 を 
行う 
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み 最初 に 、 イ ンタ ーネット エク スプ ロー ラ の イン スタ ンス を 表示 する 際 の 、 表 示 の 
形態 と 位置 を 設定 し ます 。 こ れ ら は 、 イ ンス タン ス を 作成 し て か ら 、[Visible] プ 
ロ パ ティ で 表示 する 前 に 設定 し ます 。「ToolBar」 「MenuBarl は 、 そ れ ぞ れ イ ンタ 
ーネット エク スプ ロー ラ の ツー ル バ ー と メニ ュー を 表示 する か どう か を 設定 し ます 。 
「True」 で 表示 、「False」 で 非 表示 に な り ま す 。 ま た 、「Height」 「Width] は それ ぞ 
れ プ ブラ ウザ の 高き さと 幅 、「Top」「Left] は ブラ ウザ を 表示 する 画面 の 位置 を 設定 し 
ます 。 単位 は ピク セル に な り ま す 。 


Private Sub RunBtn C1iok( ) 
Se Te = CreaeOb]@eot ( "エロ ヒ @G ェ ne も Ep]1O エ Gr . app11Ca モ ion" ) 
エ e .Navigate Combo1 . Texxt 


With Te 
・moo1Bar ェ = Fa1se 
・MenuBar = Fa1gse 
-Height = 400 
-・Width = 400 


・Tmop = 100 
-LeF モ = 300 
End With 


ェ re .Visib1e = True 


偽 炊 に 、 フ ォ ー ム に 配置 し た 、 イ ンタ ーネット エク スプ ロー ラ を 操作 する 5 つの ボ 
タン の [Enabled] プロ パテ ィ を 、「True」 に 設定 し て 有効 に し ます 。 プ ログ ラム 起 
動 時 は 、 こ れ ら の ボタ ン は 無効 に な っ て いま す が 、 イ ンス タン ス を 作成 し た 時 点 で 
操作 可能 に し ます 。 


BkB て n .Enab1ed = "True 
StopB せ tn .Enab1ed = True 
FwdBtn .Enab1ed = True 
Re1B て tn .Enab1ed = True 
HomeBtn .Enab1ed = True 


そし て 、[ プ ブラ ウザ の 表示 切り 替え ] ボタ ン に エラ ー 処 理 ス テー トメ ント 「On 
Error Resume Next| を 組み 込ん で お きま す 。 こ れ は 、 フ ォ ー ム の 「 ブ ラウ ザ を 閉 
じ る 」 ボタ ン を 使わ ず に 、 イ ンタ ーネット エク スプ ロー ラ の [閉じ る ] ボタ ン で ブ 
ラウ ザ を 閉じ て 、[ ブ ラウ ザ の 表示 切り 替え ] ボタ ン を クリ ッ ク す る と 「 オ ー ト メー 
ショ ン エ ラー」 が 発生 し て し まい ます 。 オ ブ ジ ェクト 変数 に は オプ ジェ クト が 格納 
され て いる の に 、 実 際 に は イン スタ ンス が 存在 し て いな いた め に 起こ る エラ ー で す 。 

この エラ ー を 回 避 す る た め に 、「On Error Resume Next| を 使用 し ます 。 こ れ で 、 
エラ ー が 起き て も 、 イ ンタ ーネット エク スプ ロー ラ に 対す る ペー ジ 表 示 の 処理 は せ 
ず に 、 プ ロ シ ー ジ ャ を 終了 し ます 。 
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生 


P ェ ivate Sub ViewBtn C1iok( ) 
On 正 エ エ o エ ReSsume Nex ヒ 
エ e . Navigate Combo1 . mexx 上 
End Sub 


[プラ ウザ を 閉じ る ] ボタ ン の Click イ ベン ト プ ロ シー ジャ に も 、 コ ー ド を 追加 し 
ます 。 ま ず 、[ ブ プラ ウザ の 表示 切り 替え ] ボタ ン の 処理 と 同様 、「On Error Resume 
Next] ステ ー ト メン ト を 組み 込み ます 。 や は り 、 イ ンタ ーネット エク スプ ロー ラ の 
[閉じ る ] ボタ ン で ブラ ウザ を 閉じ て し まっ た の に 、[ ブ ラウ ザ を 閉じ る ] ボタ ン を 
クリ ッ ク し て し まう と 、 同 じ よ うに エラ ー を 起こ し て し まい ます か ら 、 こ れ を 回 避 
し ます 。 


Private Sub C1oseBtn C1ick( ) 
On 下 エ エ o エ Resume Nex モ 
エ e . Oui モ 上 


ViewB て tn .Enab1ed = Fa1se 
C1oseBtn .Enab1ed = Fa1se 
RunB モ En .Enab1ed = True 


そし て 、 フ ォ ー ム に ある イン ター ネッ ト エ クス プロ ー ラ を 操作 する 5 つの ボタ ン 
を 、 無 効 に し ます 。 


BkBtn .Enab1ed = Fa1gse 

StopB て n .Enab1ed = Fa1se 
FwdBtn .Enab1ed = Fa1se 
Re1Btn .Enab1ed = Fa1se 
HomeBtn .Enab1ed = Fa1se 


最後 に 、 イ ンタ ーネット エク スプ ロー ラ を 操作 する 5 つの ボタ ン の 処理 を 作成 し 
ます 。 そ れ ぞ れ 、 専 用 の メソ ッ ド を 実行 する だ け で す 。 い ずれ も 、「On Error 
Resume Next| ステ ー ト メン ト を 組み 込み 、 エ ラー に 対処 し ます 。 た と えば 、 
[Back] ボタ ン は 、 戻 る ペー ジ が な い の に この メソ ッ ド を 実行 する と エラ ー に な っ 
て し まい ます 。 そ こ で 、 エ ラー ステ ー ト メン ト で これ を 回 避 す る よう に し ます 。 


Private Sub BkBEn C1iock( ) 
On 到 エ ェ o エ Resume Nexx も 
エ e .GoBacK 

End Sub 


それ ぞ れ の メソ ッ ド は 、 イ ンタ ーネット エク スプ ロー ラ の ツー ル バ ー に ある ボタ 
ン と 同じ 動作 を し ます 。 各 メソ ッ ド の 機能 は 、 次 の と お り で す 。 


Lesson 23 Internet Explorer Control Pad の 作成 





GoBack 現在 の ペー ジ よ り 1 つ 前 に 表示 し た ペー ジ を 表示 し ます 。 





GoForward 現在 の ペー ジ よ り 次 の ペー ジ を 表示 し た 場合 は 、 そ の ペー ジ を 
再 表示 し ます 。 





Stop 表示 中 の 処理 を 停止 し ます 。 
Hefresh | 現在 の ペー ジ を 再度 読み 込み ます 。 
GoHome ホー ム に 設定 し て いる ペー ジ を 表示 し ます 。 


ーー 」 


イン ター ネッ ト エ クス プロ ー ラ の プロ バ パティ や メソ ッ ド は 、 ま だ ほか に も いく つか 
用 意 さ れ て いま す が 、 と りあ え ず Web を ナビ ゲー ト す る に は 、 こ れ ら が 使え れ ば 十分 
で し ょ う 。 エ ラー 処理 は 、 こ こ で は 一 番 簡 単 な 方 法 を 組み 込ん で いま す 。 プ ログ ラム 
の 動作 に あわ せ て 自分 な り に 改良 し て くだ さい 。Navigate メソ ッ ド は 基本 的 に 
Navigateo メソ ッ ド と 書式 は 同じ で す が イ ンタ ーネット エク スプ ロー ラ の バー ジョ ン 
3.0x 以上 か ら 使用 で きま す 。Navigate2 は 4.0x 以上 の み サ ポー ト で す 。 

これ ら の プロ パテ ィ や メソ ッ ド は 、 イ ンタ ーネット エク スプ ロー ラ の 将来 の バー ジ 
ョ ン で 変更 され る 可能 性 が あり ます 。 開 発 に 関す る 技術 情報 は 、 つ ね に 最新 の も の を 
把握 する よう に 心がけ て お きま し ょ う 。 











ベニ 


上 作成 し た プロ グラ ム の フォ ー ム に 、 イ ンタ ーネット エク スプ ロー ラ で 
表示 し て いる 現在 の URL を 、 ラ ベル コン トロ ー ル で 表示 する よう に 修正 
し て ぐだ る さ 38 


解答 は 巻末 に 一 


6 拓 な 。 ワ ンー ボーイ ンー チー5-24 ッ スー ニーーーー デリ 


プロ グラ ム 終 了 時 に 、 自 動 的 に イン スタ ンス の イン ター ネッ ト エ クス プロ ー ラ を 閉じ 
た い 場 合 は 、 フ ォ ー ム の 「Unload」 イベ ント プロ シー ジャ に 、 イ ンタ ーネット エク ス 
プロ ー ラ オブ ジェ クト の 「Quit」 メソ ッ ド を 実行 する 処理 を 作成 し て お きま す 。 


P ェ ivate Sub Form Un1oad (Cance1 As Tnteqer ) 
On 正 エ エ ror ReSume NexxE 
エ e . Ou ユ モ 

End Sub 


第 7 日 ら 時 限 上 日 カス タム Web ブラ ウザ の 作成 に 


③ 

川 川 想 由 
軒 HHHHRH 
還 H 四 












































Se Lesson24.vhp 
⑤) VB6CD2 
= Lesson24 
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カス タム Web ブラ ウザ の 作成 


これ まで の レッ スン で は 、 イ ンタ ーネット エク スプ ロー ラ の イン スタ ン 
ス を 作成 し て 操作 する テク ニッ ク を 使用 し まし た 。 今度 は 、 フ ォ ー ム に 
Web ブラ ウザ の コン トロ ー ル を 組み 込ん で 使用 する テク ニッ ク を 紹介 
し ます 。 コ ンピュータ に イン ター ネッ ト エ クス プロ ー ラ を 組み 込む と 、 
いっ し ょ に 「WebBrowser」 コン トロ ー ル が 組み 込ま れ ま す (イン タ 
ーネット エク スプ ロー ラ も 、 こ の コン トロ ー ル を 使用 し て 組み 立て られ 
て いま す )。 こ の コン トロ ー ル を フォ ー ム に 組み 込ん で 使用 する こと が 
で きま す 。 


今回 作成 する プロ グラ ム 





記 $ | 人 上 | 人 | 更新 | ホー ム | 5 


を HTML を 表示 する 、 
ttp://www big orjp/"seto/ ェ Go 9 
ーー コル 独自 の Web ブラ ウザ 


を 作成 





フォ ー ム に WebBrowser コン トロ ー ル を 組み 込み 、HTML を 表 
示す る 独自 の Web ブラ ウザ を 作成 し ます 。 





Lesson 64 カス タム Web ブラ ウザ の 作成 


人 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


上 ツー ル パ レ ッ ト に 次 の コン ポー ネン ト を 追加 する 


@ Microsoft Internet Controls 
信 Microsoft Windows Common Controls6.0 


病 還 王 是 議 。 っ 〈《〈(( 
Oo 

有 工 
回 司 ae IE4.0/5.0 の 場合 に 
|@ き 表示 され る アイ コン 
CE 
鐘 机 た 


フォ ー ム の [Caption] プロ パテ ィ を 「My 
Browser Ver1.0」 に 変更 する 


ea Form コ 


全体 | 項目 別 | 





| 
| 1- 3D 9 


False 調 
国 8H800000OF& 量 


2 - 可 卒 
My Browser Ver1n 
True 


True 
13 - Capy Pen 
n- 実線 (中 心 線 ) | 


1 選 
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> コン ポー ネン ト を 
ぐ プ 追加 する 

コン ポー ネン ト を 追加 す 
の 5 所 MGL つ 、VCi は 県 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 


1 る 











ツー ル パ バレット の [ComboBox] 還 を 使っ て 、 コ 
ン ボ ボッ クス コン トロ ー ル を 配置 する 








Combo1 ComboBox | 
全体 | 項目 明 | 


C:\je.htm 
Cc:\ije ら .htm 


hhttp://wwwbig or.jp/ seto/ C:\galert.htm 
http://Www.Dig.Or.jp/ Seto/ 


Right ToLeft 
ISorted 





ち [Text] プロ パテ ィ を 「oc:\ie.htm」 に 設定 する 





机上 na] | 
ICombo1 ComboBox 訓 | 


全体 | 項目 別 | 





Lesson ら 4 カス タム Web ブラ ウザ の 作成 


コマ ンド ボタ ン を 配置 し 、[( オ ブ ジ ェクト 名 )] プロ 
パテ ィ と [Caption] プロ パテ ィ を 設定 する 


プロ パテ ィ 設定 








(オブ ジェ クト 名 ) GoBtn 

Caption Go 
Pe | 庭 め に ドラ ッ グ 
に し て 配置 


ツー ル バ ー コ ント ロー ル を 配置 [BorderStyle] 
プロ パテ ィ を 「1 一 実線 ] に 十 ずる 





[BorderStyle] 
を 設定 し た ツー ル 
バー コン ドロ ー ル 








プロ バディ ペー ジ ]| の [ポタ ツン] タプ で 、 
の 挿入 ] を 使っ て ボタ ン を 5 つ 配 置 する 


[ボタ ン 








イン デック ス キャ プシ ョ ン キー 













stop 
fwd 
reload 















廊 の 9 中 


9 の 区 0⑩ 
| CZ2GO ドー CHO 








コマ ンド ボタ ン を 
二 置 さる 

コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 


の Cee 
を 使い ます ゴ 


ツー ル バ ー を 配置 
する 


ツー ル バ ー を 配置 する に 
は 、 ツ ー ル パレ ッ ト の 
[Toolbar] 賠 を 使い ま 


[プロ パテ ィ ペ ー 
の タイ アロ ク 


[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し 、 プロ パテ ィ ウ イィ 
ンド ウ の [( プ ロ パ ティ ペ 
ー ジ )] を グリ ッ ク グ も 、 用 
欄 の [.…] ボタ ン を クリ ッ 
グ じ ます 


うろ 15 
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NB の 
2 ン 

[0 - vbAlignNone」 を 設 
定 す る と 、 ツ ー ル バー コ 
ント ロー ル の サイ ズ 変 更 
ハン ドル を ドラ ッ グ し て 、 
サイ ズ を 調整 で きる よう 
に な り ま す 。 


フレ ニム ヨン ポ 有 
ぐー し な 配置 する 


フレ ー ム コン トロ ー ル を 
配置 する に は 、 ツ ー ル パ 
レッ ト の 【[Frame] | 
を 使い ます 。 
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[Align] プロ パテ ィ を 「0 一 vbAlignNone」 に 設定 
し 、 サ イズ を 小さ くす る 





ここ を クリ ッ ク 
57 フ 
ここ を クリ ッ ク 


ybAlignTop 
2 - vbAlignBottam 
3 - ybignLeft 

4 - vbAlignRight 


| に の 人 Cu っ 合い 0 5 cr 区 _- _I ロ xi 
半 軸 紹 還 3 サイ ズ を 小さ くし た 
es ツー ル バ ー の ボタ ン 





1 0⑩⑪ フレ ー ム コン トロ ー ル を 配置 し 、[Caption] 
プロ パテ ィ を 「 ペ ー ジ 表示 」 に 変更 する 


門 閉 


lk*\iehtm 


斜め に ドラ ッ グ 
し て 配置 








上 上 ツー ル パ レ ッ ト の [WebBrowser] ' 豊 | を 使っ 
て 、WebBrowser コン トロ ー ル を 配置 する 





机 | 停 上 | 人 | 更新 | 


| ド E*iehtm 





ミズ [DragMode] プロ パテ ィ を 「0 - vbManual」 
に 設定 する 


( 選 な クリ RW 
WiebBrowser1 
ゃ ここ を クリ ッ ク 
の 
ここ を クリ ツ ッ ク 





1 る ツー ル バ パレ ッ ト の [Label] | を 使っ て 、 ラ ベ 


ルコ ント ロー ル を 配置 する 
し て 配置 








村上 還 Hmelmwl 人 ln 


E\iehtm 












Lesson 684 カス タム Web ブラ ウザ の 作成 


に 2 所 隊 

W っ ロティ 

ドラ ッ グ モー ド (Drag 
Mode) プロ パテ ィ が 
「1 - vbAutomatic] に な 
っ て いる と コン トロ ー ル 
を マウ ス で 操作 する こと 
が で き な く な り 、 ス クロ 
ー ル バー な ど が 使え な く 
な り ま す 
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明 [BorderStyle] プロ パテ ィ を 「1- 実 線 」 に 設 


し 、[Caption] プロ パテ ィ を 削除 する 









プロ パテ ィ を 設定 し た 
ラベ ルコ ント ロー ル 














ド の 記述 








紳 F0rm1:Form-Resize 


| private Sub Form Resize() 
| エ F WindowState <> で bMinimized Then 
| With Frame1 
・Heigh = Form1.Height - 1800 
・Width = Form1.Width - 500 
End With 





With WebB ェ owser1 
-Height = Frame1.Height - 500 
・Width = Frame1.Width - 500 
| End With 
| End TE 
End Sub 


Form1:GoBtn-Click_ 








Ta 間 22 ン ーー _ 回 回 四 | 
、IGsBm <| [ciick 引 





On 下 エ エ or ReSsume Nex ヒ 
WebB ェ owser1 .Nav1igate Combo1 . Tex も 


| Private Sub GoBtn C1iock() So ] 
End Sub 
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Form1:WehBrowser1-DownloadBegin 
| 画 | iil 還 が ) 回 回 四 


[WebBrowser1 引 [DownloadBegin 選 | 
Private Sub WebBrowser1 Down1oadBegin( ) | 

rabe11 .Caption = "転送 開始 " | 
End Sub | 

















し 





若 BMN 





di 遇 ay) 


web Browser1 






」 Private Sub WebBrowser1 Down1oadComp1e モ e( ) 
| rabe11 .Caption = "表示 完了 
End Sub 


Form1:WebBrowser1-ProgressChange 
ETCSDEETOURSSS) ンク 


| Pivate Sub WebBrovwser1 ProgressChange(ByVa1 Progress As Longz 3 
ByVa1 ProgressMaxx As Londg) 
Dim 1 As Doub1e 










エ F Progress > 0 Then 
1 = (Progress / ProgressMax) * 100 
エ F i >= 100 Then 
ュ = 100 

End エモ 

rabe11 .Caption = "現在 転送 中 :" gig" sr 
| End エモ 
End Sub 


引 Form1:ToolDar1-ButtonClick 
LOTTRGSO 証 証 康 lxl 
[reelpar1 [ButtonClick | | 
| P エ ュ マ ate Sub ToOo1ba エ 1 Bu モモ onC1iok (ByVa1 Button AS 
| MSComot1T エ 1b . Bu モモ On ) 
On 正 エエ Oo エ ReSume Nex セ 
Se1ect Case Bu ヒモ on . Ke 









Case "back" 
WebBrowSse ェ 1 . GOBaCK 

Case "stop" 
WebBrowSser1 . S モ Op 








Case 『Ewdr 
WebBrowse ェ 1 . GOFo ェ wa エ d 
Case "re1oad" 
WebB ェ ovwser1 .ReF ェ resh 
Case "home" 
WebBrowse ェ 1 .GoHome 
End Se1eo 
Sub 








WebBrowser コ ント ロー ル は 、 イ ンタ ーネット エク スプ ロー ラ と まっ た く 同 様 の 
機能 を 提供 する コン トロ ー ル で す 。 コ ント ロー ル が 保有 する プロ パテ ィ や メソ ッ ド 
は 、 イ ンタ ーネット エク スプ ロー ラ ・ オ ブ ジ ェクト と ほぼ 同様 の も の で す 。 ま た 、 
コン トロ ー ル と し て 操作 で きる た め に 、 い くつ か の イベ ント を 使っ た プロ グラ ミン 
グ が 可能 に な っ て いま す 。 

WebBrowser コ ント ロー ル を プロ グラ ム に 組み 込む に は 、Visual Basic の ツー ル 
パレ ッ ト に 、| Microsoft Internet Controls] を 追加 し ます 。 た だ し 、 こ の コン トロ 
ー ル を フォ ー ム に 配置 し て も 、 配 置 し た 時 点 で は な に も 表示 する も の が あり ませ ん 
の で 、 コ ント ロー ル は 見 え づ らく な り ま す 。 ま た 、 コ ント ロー ル な の で 、 ご く 一 部 
の プロ パテ ィ に つい て は 、 プ ロ パ ティ ウィ ンド ウ で 初期 設定 が 行え を ます 。 


WebBrowser コン トロ ー ル の 
プロ パテ ィ ウ ィ ン ド ウ 





WebBrowser コン トロ ー ル 自身 は 、 コ ンピュータ に イン ター ネッ ト エ クス プロ ー 
ラ を イン スト ー ル し た 時 点 で いっ し ょ に 組み 込ま れ ま す 。 コ ント ロー ル を イン スト 
ー ル する た め の 特 別 な 操作 は 必要 あり ませ ん 。 


この プロ グラ ム は 、 イ ンタ ーネット エク スプ ロー ラ と 同様 の 基本 機能 を 持っ た 
Web プ ラウ ザ と し て 作成 し ます 。 簡単 に プロ グラ ム の 動作 を 説明 し ます 。 
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① コ ン ボ ボッ クス コン トロ ー ル の リス ト ボ ックス か ら URL を 選択 する か 、 テ キス ト 
入力 エリ ア に URL を 入力 し 、[Go] ボタ ン を クリ ッ ク す る と 、WebBrowser コン 
トロ ー ル の 「Navigate] メソ ッ ド を 使っ て 、HTML を 表示 し ます 。 


②HTML は 、 フ ォ ー ム に 配置 し た WebBrowser コン トロ ー ル に 表示 され ます 。 コ ン 
トロ ー ル 内 に HTML ド キュ メン ト が 表示 し きれ な い 場 合 は 、WebBrowser コ ント 
ロー ル に は 自動 的 に スク ロー ル バ ー が 表示 され ます 。 


③ 指 定 し た HTML フ ァイル と その イメ ー ジ ファ イル が 転送 され 始め る と 、 ラ ベル コ 
ント ロー ル に 転送 状況 が 表示 され ます 。 


転送 状況 が 表示 され る 











(④ 転 送 が 完了 する と 、 ラ ベル コン トロ ー ル の 表示 が 「 表 示 完 了 」 に 変化 し ます 。 こ 
れ ら の 処理 は 、WebBrowser コン トロ ー ル の イベ ント を 使っ て 行い ます 。 


ラベ ルコ ン トロ ー ル の 表示 が 
「 表 示 完 了 」 に 変化 








ツー ル バ ー コ ント ロー ル に 組み 込ん だ ボタ ン は 、 そ れ ぞ れ ペ ー ジ を 表示 し た り 停 
止 き せる な どの 処理 を 行い ます 。 
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う 


で は 、 コ ー ド の 作成 を 始め まし ょ う 。 ま ず 、WebBrowser コン トロ ー ル は 、 イ ン 
ター ネッ ト エ クス プロ ー ラ の イン スタ ンス と し て 表示 する わけ で は あり ませ ん か ら 、 
HTML の 表示 サイ ズ は コン トロ ー ル の サイ ズ に よっ て 決ま っ て し まい ます 。 そこ で 、 
フォ ー ム の サイ ズ を 変え る と 自動 的 に WebBrowser コ ント ロー ル の サイ ズ も 変わ る 
よう な 処理 を 組み 込み ます 。 こ の 処理 は 、 フ ォ ー ム の 「Resize」 イベ ント に 作成 し 
束 a 


Private Sub Form Resize() 
エ F WindowState <> vbMinimized Then 
With Frame1 
・Hetgh = Form1.Height - 1800 
・Width = Form1.Width - 500 
End With 


With WebBrovwse ェ 1 
・Hegh = Frame1.Height - 500 
・Width = Frame1 .Wiqth - 500 
End With 
End TE 
End Sub 


WebBrowser コ ント ロー ル に HTML を 表示 する 処理 は 、[Go] ボタ ン で 行い ます 。 
[Go] ボタ ン の Click イ ベン ト プ ロ シー ジャ で は 、 コ ン ボ ボッ クス コン トロ ー ル の 
[Text] プロ パテ ィ か ら URL を 受け 取っ て 、[「Navigate] メソ ッ ド を 実行 し ます 。 
この と き 、 存 在 し な い URL が 入力 され る と 、「Navigate」 メソ ッ ド で エラ ー が 発生 
し ます か ら 、 こ れ を 「On Error Resume Next| ステ ー ト メン ト で トラ ッ プ し ます 。 


Private Sub GoBtn C1iok( ) 

On 正 エ ェ or Resume NexxE 

WebBrowser1 .Navigate Combo1 . Tex 上 
End Sub 


HTML の 表示 は 、 イ ンタ ーネット エク スプ ロー ラ の イン スタ ンス を 使う わけ で は 
あり ませ ん か ら 、[Visible] プロ パテ ィ の 操作 を する 必要 は な く 、[「Navigate] メソ 
ッ ド の 実行 だ け で HTML が 表示 され ます 。 


指定 し た URL か ら HTML フ ァイル や イメ ー ジ ファ イ ル の 転送 が 開始 さき れる と 、 
WebBrowser コ ント ロー ル に は 「DownloadBegin| イベ ント が 発生 し ます 。 そ こ で 、 
この イベ ント プロ シー ジャ で 、 ラ ベル コン トロ ー ル に 「 転 送 開始 」 の 文字 列 を 設定 
し ます 。 
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P ェ ュ で ate Sub WebBrowser1 Down1oadBegin( ) 
rabe11 .Caption = "転送 開始 " 


End Sub 


「 転 送 開始 」 の 文字 列 を 
設定 する 








また 、 フ ァイル の 転送 が 終了 する と 、WebBrowser コ ント ロー ル に は 
[DownloadComplete」 イベ ント が 発生 し ます 。 そ こ で 、 ラ ベル コン トロ ー ル に 「 表 
示 完 了 」 の 文字 を 設定 し ます 。 


P ェ ュ ivate Sub WebB ェ owser1 Down1oadComp1ete( ) 
rabe11 .Caption = "表示 完了 " 
End Sub 


「 表 示 完了 」 の 文字 列 を 
設定 する 





0 サー バ か ら フ ァイル が 転送 され 始め る と 、WebBrowser コ ント ロー ル に は 、 
「ProgressChange」 イベ ント が 発生 し ます 。 こ の イベ ント プロ シー ジャ を 使う と 、 
転送 中 の 状況 と フォ ー ム に 表示 で きま す 。 

「ProgressChange| イベ ント プロ シー ジャ は 、2 つ の 引数 を 持ち ます 。1 つ は 
[Progress」 で 、 転 送 さ きれ て きた デー タ の バイ ト 数 が 格納 され ます 。 も う 1 つ は 、 
「ProgressMax」 で 、「Progress] に 対す る 最大 値 を 設定 し ます 。 こ の 引数 は 、 自 分 
で 自由 に 設定 で きま す (デフ ォ ル ト で 「1.000.000] バイ ト (1MB) に な っ て いま す )。 
「ProgressChange」 イベ ント は 、 デ ー タ が サー バ か ら 転 送 き させ る た びに 発生 し 、 ト 
ー タ ル の 転送 バイ ト 数 が 引数 「Progress」 に 格納 され ます 。 そ こ で 、 こ の プロ グラ 
ム で は 、 以 下 の 式 を 作っ て 、 転 送 バ イト 数 を 「%」 で 表示 する よう に し ます 。 
「ProgressMax| の 値 は 、「1.000.000] バイ ト (1MB) の まま 使用 し ます 。 


ュ = (Progress / ProgressMax) * 100 
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すでに 転送 きれ て いる デー タ を 再度 転送 し た 場合 は 、 引 数 「Progress| に は 「-1] 
が 格納 され ます 。 こ の 場合 は 、 式 が エラ ー に な り ま す 。 ま た 、 転 送 デ ー タ の 合計 バ 
イト 数 が 「ProgressMax」 を 超え る こと が あり ます の で 、 こ れ ら の 処理 を If ステ ー 
トメ ント で 設定 し て お きま す 。 


P ェ ュ ivate Sub WebBrowse ェ 1 ProgressChange 
(ByVa1 Progress As Long, ByVa1 ProgressMaxx AS Long) 
Dim 1 As Doub1e 


ェ エ FE Progress > 0O Then 
ュ 1 = (Progress / ProgressMaxx) * 100 
エ E i >= 100 mhen 
ミ = 100 
End TE 
rabe11 .Caption = "現在 転送 中 :" gigrsw" 


End TE 
転送 バイ ト 数 が % で 
表示 され る 


End Sub 








あみ | 


MSJapan 








この イベ ント プロ シー ジャ の 処理 は 、 ロ ー カ ルコ ンピュータ の ファ イル に 対し て は 、 
デー タ 転 送 が 早 すぎ て 正常 に 動作 し な い 場 合 が あり ます 。 


た 最後 に 、 ツ ー ル バー コン トロ ー ル の ボタ ン の 処理 を 行い ます 。 こ れ は 、 イ ンタ ー 
ネッ ト エ クス プロ ー ラ オプ ジェ クト と 同じ メソ ッ ド を 使用 し ます 。 そ れ ぞ れ の ボタ 
ン に 設定 し た 「 キ ー」 を 使っ て 、Select Case ステ ー ト メン ト で 処理 を 作成 し ます 。 
「GoHome]」 メソ ッ ド は 、Windows の レジ スト リ を 使っ て 、 イ ンタ ーネット エク 
スプ ロー ラ で 設定 され て いる 、 ホ ー ム の HTML の 場所 を 探し 出し て 表示 し ます 。 
「On Error Resume Next] ステ ー ト メン ト で 、 エ ラー 処理 を 組ん で お く の を 忘れ な 
いで くだ さい 。 
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エミュ で a モ e Sub Too1ba エ 1 Bu モモ onC1iok (ByVa1 Button AS 
MSComo ヒ 1 ユエ ュ b . Bu モ On ) 
On 正 エ エ O エ RGSumne NGx セ 
Se1ect Case Bu モ on KeY 


Case "back" 

WebBrowSer1 . GoBaCK 
Case "stop" 

WebBrowSer1 . Stop 
Case "Fwd" 

WebB ェ oOwSer1 . GOFOrwWa ェ dQd 
Case "re1oad" 

WebBrowser1 .ReFresh 
Case "home" 

WebB ェ rowser1 .GoHome 

End Se1eo 
End Sub 


WebBrowser コン トロ ー ル は 、 イ ンタ ーネット エク スプ ロー ラ の 機能 を 自分 の プ 
ログ ラム に 組み 込む こと が で きま す 。 既存 の リソー ス を 使っ た プロ グラ ミン グ が で き 
る た め 、 実に 簡単 に ブラ ウザ 機能 を 実装 で きま す 。 

また 、WebBrowser コン トロ ー ル は 、AoctiveX コン トロ ー ル な の で 、Microsoft 
Excel や Word の ドキ ュ メ ント ファ イル を 表示 する こと も で きま す 。 ブ ラウ ザ に 固定 
せ ず 、 自 由 な 発想 で 楽し い プ ログ ラム を 開発 し て くだ さい 。 


イン ター ネッ ト エ クス プロ ー ラ 4.0 
の WebBrowser コン トロ ー ル で 
Excel の ワー クシ ー ト を 表示 
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(! 生じ ま 穫 ( だ 二 抹 航 あ 表 :】 


WebBrowser コン トロ ー ル の メソ ッ ド 、 プ ロ パ ティ 、 イ ベン ト の 使い 方 に つい て も 、 
「Internet Client SDK」 に 詳し い ド キュ メン ト が 用 意 さ れ て いま す (P.302 参照 )。 
WebBrowser コン トロ ー ル の 「ExecWB] メソ ッ ド を 使用 する と 、 コ ント ロー ル で 
表示 する ファ イル を 開い た り 、 表 示し て いる HTML の 保存 や 印刷 が で きる よう に な り 
ます 。 
ExecWB メソ ッ ド の 書式 
Object . ExreCWB nCmdTD, nCmdExxecOpt , [pyaTn] , [pvaOu] 


objeot 対象 と な る オブ ジェ クト を 指定 し ます 。 

nCmdTD 実行 する コマ ンド 名 か rp 番号 ( 長 整 数 ) を 指定 し ます 。 コ マン ド 名 に つ 
いて は ヘル プ を 参照 し て くだ さい 。 

nmCmdExrecOpt コマ ンド の オプ ショ ン 名 か rp 番号 ( 長 整 数 ) を 指定 し ます 。 オ プシ ョ ン 
名 に つい て は ヘル プ を 参照 し て くだ さい 。 

pYaTn 省略 可 。 コ マン ド の 入力 変数 を 指定 し ます 。 

pvaOut 省略 可 。 回 ん ド の 出力 変数 を 指定 し ます 。 









く c》 練習 問題 : 8 


ひ 現在 表示 し て いる URL を 、 フ ォ ー ム の キャ プシ ョ ン に 表示 し て くだ さ 
い 







あみ コン ボボ ックス コン トロ ー ル に URL を 入力 し て 、Enter キー を 押し た 
時 点 で 、WebBrowser コン トロ ー ル に HTML を 表示 する よう に 修正 し 
て くだ さい 。 












ら ) フォ ー ム に [SaveAs] (ファ イル に 保存 ) ボタ ン と [保存 ] ツー ル バ 
ー を 設け 、 表 示 中 の HTML ファ イル を 保存 で きる よう に し て くだ さい 。 


解答 は 巻末 に 一 












纏 ご に | (Lesson ら 5 ~ Lesson ら 7) 


Win3 ら API を 
全う 





Visual Basic の コン トロ ー ル は 、Windows の すべ て の 機能 を 網羅 し て は いま せ 
ん 。 そ こ で 、Visual Basic が 持っ て いな い オ ペレ ー テ ィング シス テム (OS) の 
機能 を 、 プ ログ ラム に 組み 込む 方 法 を 紹介 し ます 。Windows に は 、Windows の 
機能 を 自由 に 操作 する た め の 特 別 な イン ター フェ イス 「Application 
Programming Interface (AP|)」 が あり ます 。Windows の 上 で 動作 する アプ リ 
ケー ショ ンプ ログ ラム は 、 す べ て この API を 呼び 出し て 組み 立て られ て いま す 。 
今日 の レッ スン で は 、API に 関す る 基礎 的 な 知識 と 、Visual Basic の プロ グラ ム 
で API を 呼び 出す 方 法 に つい て 、 理 解 を 深め て いき ます 。 

今日 の レッ スン で 解説 する 項目 

ロロ Win32API に 関す る 初歩 的 な 知識 

API 関数 の 使い 方 の 基本 

API 関数 「GetComputerName」 の 使い 方 

品 関数 が 返し て きた 値 を コン トロール に 反映 させ る テク ニッ ク 

AP| に 関す る 情報 の 入手 方 法 

API の Visual Basic へ の 実装 方 法 

品 「Declare] ステ ー ト メン ト の 使い 方 

ロ 標準 モジ ュー ル の 使い 方 

ロロ AP|I の 引数 と Visual Basic の デー タ 型 
API ビュ ー ア の 使い 方 

口 「SetComputerName」 関数 を 使う 

ロ API の 戻り 値 と エラ ー 処 理 

品 固定 長 の 文字 列 型 変数 の 宣言 

品 API 関数 「GlopalMemoryStatus」 を 使う 
ユー ザー 定義 の デー タ 型 の 定義 と 宣言 、 値 の 取得 


博 テ 





⑤ 


| I 





























ll API の 機能 と 
lll 機能 と 特徴 
困 時 この プロ グラ ム は 、「GetComputerName」 と いう API 関数 を 呼び 出 
し 、 ラ ベル コン トロール に 現在 動作 し て いる コン ピュ ー タ の 名 前 を 表示 
する プロ グラ ム で す 。 こ の プロ グラ ム 作 成 を 通じ て 、API の 機能 と 特徴 
に つい て 理解 を し て いき ます 。 
今回 作成 する プロ グラ ム 
この ボタ ン を クリ ッ ク 
上 る と 。。 
LGC 本 避 に | 
第 8 日 還 | 
1 時 限 目 





| PCG-880 SERIES | 


Lesson25.vhp 
⑥) VB6cD2 
ョ ペコ Lesson25 

















ここ に 使用 し て いる コン ピュ ー タ の 
名 前 が 表示 され る 





API 関数 「GetComputerName」 の 使い 方 と 、 返 し て きた 値 を 
コン トロ ー ル に 反映 させ る テク ニッ ク が ポイ ント で す 。AP| その も 
の は 、 と て も 簡単 な API で 、 使 用 し て いる コン ピュ ー タ の 名 前 を 返 
す API で す 。 た だ し 、 こ の よう な メソ ッ ド や 関数 は 、Visual Basic 
に は あり ませ ん 。Visual Basic の 持っ て いな い 機 能 を プロ グラ ム に 
組み 込み た い 場 合 に AP| を 使用 し ます 。 
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Lesson ら 5 


けり: コ 3Z トド トロール と プロ パシ ミ テ イィ の 本 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


コマ ンド ボタ ン を 1 つ 配 置 し 、[Caption] プロ パテ 
ィ を 「 使 用 し て いる コン ピュ ー タ 名 」 に 変更 する 











配置 し て [Caption] 
を 変更 し た コマ ンド 
ボタ ンコ ント ロー ル 














トロ ー ル を 配置 し 、 次 の プロ パテ ィ を 設定 する 


プロ パテ ィ 
BorderStyle 





Caption 





Alignment ら 一 中 央 揃え 
Font [サイ ズ ] を 「10] 








配置 し て プロ バテ ィ 
を 設定 し た ラベ ル 








ョ コジ シド ロー ル 








API の 機能 と 特徴 


コマ ンド ボタ ン を 
イプ 配置 する 
コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 
の [CommandButton] | 4 
を 使い ます 。 過 


フォ ント の サイ ズ 
ぐ プ な 変更 する 


フォ ント の サイ ズ を 変更 
する に は 、[Font] プロ パ 
ティ の 「[.…] ボタ ン を クリ 
ッ ク し 、[ フ ォ ン ト の 指定 ] 
ダイ アロ グ ボ ックス の 
[サイ ズ ] ボッ クス で 「10] 
を 選択 し ます 。 
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標準 モジ ュー ル を 
シン ピア 


[プロ ジェ クト ] メニ ュー 
の [標準 モジ ュー ル の 追 
加 ] を 選択 し て 、 標 準 モ 
ジュ ー ル を 挿入 する こと 
も で きま す 。 


マ > ンジ エンジ 要 SF ペー 
















ここ を クリ ッ ク 


敵 設 呈 : 8 フォ ー ム モツ の 


2 MDI フォー ム モジ ュー ル ① 
| ニン 6 リン 
ツ ュ ー 
回 由 較 ユ サー ヤ hn-MU 


本 2 AR 


ここ を クリ ッ ク 


クン の ク 


ド の 記述 





時 Module1:(General)-(Declarations) 





(General) ェ | (Declarations) | 


Dec1are Funotion GetComputerName エ ュ も "jkerne132" ー 


A1ias "GetCompu も erNameA" (ByVa1 1pBuFFe ェ As 8 も tlng,。 _ 
nSize As Long) As Long 





ョ Form1:Command1-Click 






ェ 記 3 WS ロー| ) 8 全 が 問 回 中 
[Cemmanq1 加 [Ciick | | 


Private Sub Command1 C1iock( ) 
Dim name AS String * 16 


GetComputerName name, 16 
Labe11 .Caption = name 
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久 。。 まず は じ め に 、API に つい て 簡単 に 説明 し て お きま す 。 

私 た ち は 、Windows の 持っ て いる 大 変 膨大 な 機能 を 、1 つ 1 つ 呼 び 出し て 使う こ 
と が で きま す 。 こ れ ら の Windows の 機能 は 、 い くつ も の ライ ブラ リフ ァイル に 格納 
きれ て いま す 。 ラ イプ ラリ ファ イル は 拡張 子 が 「DLL」 の ファ イル で 、Windows 
(95 また は NT) の ディ レク トリ (フォ ル ダ ) に 保存 きれ て いま す 。API と は 、 こ れ 
ら の ライ ブラ リフ ァイル か ら 必 要 な 機能 を 、 外 部 ( 他 の アプ リケーション プロ グラ 
ム ) か ら 使 える よう に し た 、 関 数 の こと で す 。 代表 的 な ライ ブラ リフ ァイル と 利用 
で きる 機能 は 、 次 の も の が あり ます 。 


ライ ブラ リフ ァイル 

Kernel32.dll ファ イル シス テム や メモ り リ 管理 、 シ ステ ム 情 報 な 

(シス テム サー ビス ・ イ ンタ ー フ ェ イ ス ) | ど を 管理 する ライ ブラ リ で 、 こ れ ら の 機能 を 提供 
する API が 用 意 さ れ て いま す 。 


User32.dl| ウィ ンド ウ や ダイ アロ グ ボ ックス 、 コ ント ロー ル 
(ユー ザー サー ビス ・ イ ンタ ー フ ェ イ ス ) | な どの ユー ザー イン ター フェ イス を 担当 する ライ 
ブラ リ で す 。 


Gdi3g8.dll ペン や ブラ シ の 設定 、 ビ ッ ト マ ッ プ や 図形 の 作成 
(グラ フィ ッ ク デ バイ ス ・ イ ンタ ー フ ェ イ ス ) | な ど 、 画 面 へ の 描画 を 担当 する ライ ブラ リ で す 。 





他 に も 、 い くつ か の ライ ブラ リフ ァイル が 持っ て いる API を 使用 する こと が で き 
ます 。Win32API で は 、 合 計 1000 個 以 上 の APT を 、 プ ログ ラマ が 自由 に 使用 で きる 
よう に な っ て いま す 。 





(Windows ラ イプ ラリ ファ イル ) 


32.dll 』 Use 


っ ーーO7nci 









プロ グラ ム は API を 通し て 
ライ ブラ リ に アク セス する 


Win32API で は 、32 ビッ ト の Windows に 対応 し た API の こと で 、Windows3.1 の 
よう な 16 ビッ ト の Windows に 対応 し て いま せん 。 本 稿 で は 、Windows95/98/ 
WindowsNT を 操作 対象 に し て いま す の で 、Win32API を 使用 し ます 。 
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ス 


「C プ C++ 言語 」 を 使っ て Windows の プロ グラ ミン グ を 行っ た こと の な い 人 は 、 
いっ た い ど の よう な 種類 の APIT が あっ て 、 ど ん な と き に どの API を 使え ば いい の か 、 
きっ ぱり わか ら な いと 思い ます 。 

API に 関す る ドキ ュ メ ント は 、Windows の アプ リケーション や ドラ イ バ を 開発 す 
る キッ ト 、| Win32 Software Development Kit| (通称 Win32 SDK) に 同 梱 され て 
いま す 。 こ の 中 に ある 「Win32 SDK Help] に APIT の リフ ァ レ ンス が 掲載 され て い 
ます (た だ し すべ て 英文 で す ) 。 こ の 「Win32 SDK」 は 、 一 般 に は 市 販 さ れ て お ら 
ず 、Microsoft 社 が 提供 し て いる 技術 情報 サー ビス 「Microsoft Developer Network」 
の メン バー 向け に 配布 きれ て いる 「 ラ イブ ラリ CD-ROM」 の 中 に 収録 ミ きれ て いま 


す 。 
Win32 SDK 
オン ライ ン ヘ ルプ 


「MSDN 」 の 詳細 に つい て は 、 
「http://Wwww.microsoft.Com/ 
japan/developer/] も し く は 


「http://www.microsoft.Com/ 
msdn/」 を 参照 の こと 。 


Macwoeh wmd TieType we reeered trademats Apple Compuier inc 
Sowmd Blenier and Bood Ber Pro aww trademts of Crwatwe Techelog7, Ua 
APhe AP.OECnd VAX we tdemak 9f Deel Euemert Corporwton 
kedak we s eyered sdwmat ef Eastman od Company 





また 、「Windows95 API バ イブ ル 1] ( 小 社 刊 ) に 、 使 用 で きる Win32API が 詳し 
く 解 説き され て いま す 。 こ ちら は 日 本 語 の リフ ァ レ ンス で 、 サ ンプ ルプ ログ ラム も 付 
属し て いま す (た だ し C 言 語 用 ) の で 、 こ ちら も 利用 する と 便利 で す 。 


「Windows95 API バイ ブル 1」 ( 閉 泳 社 ) 
本 体 価格 9.600 円 
Windows95 で サポ ー ト され て いる 32 ビッ ト 


API の 関数 お よび 関連 メッ セー ジ な ど を 機能 別 
に 分 類 し て 解説 し て いる プロ グラ マ 必 携 の 書 。 





API は 、 基 本 的 に は 「C 言 語 ] で 使う よう に 作ら れ て いま す 。 た と えば 、 今 回 作 
成す る プロ グラ ム で 使用 する API 「GetComputerName」 は 、 完 全 に 「C 言 語 ] の 関 
数 と し て 作成 さき れ て いま す 。 


Lesson 55 API の 機能 と 特 


BOOL GeG 上 COmpu モ GrName 
( 
LPTSTR 1pBuFFer, // aqdqress oFE name DuFfFe ェ 
LPDWORD nSize  // aqqress ofF size oF name buFEFe ェ 
) 」 


「GetComputerName」 関数 を 実行 する と 、 引 数 「IpBuffer] に は 、 コ ンピュータ 
名 を 格納 し た メモ リ の 、 先 頭 の アド レス が 格納 され ます 。 こ の アド レス を 参照 する 
こと で 、 メ モリ に 格納 され て いる コン ピュ ー タ 名 を 取り 出す こと が で きま す 。 

し か し 、Visual Basic で は 、「C 言 語 」 の 関数 を その まま 使う こと が で きま せん 。 
関数 の 構文 が 違い ます し 、 引 数 の デー タ 型 も 違い ます 。 そ こ で 、 こ の API を Visual 
Basic で も 使え る よう に し た の が 、「Declare] ステ ー ト メン ト に よる 外部 プロ シー ジ 
ャ へ の 参照 家斉 で す 。「Declare] ステ ー ト メン ト を 使う と 、Visual Basic が 使用 す 
る API が 格納 され て いる ダイ ナミ ッ ク リ ンク ・ ラ イブ ラリ (DLL ファ イル) を 参照 
し て 、 そ の API を Visual Basic の 「Function| 形式 に 変換 し て 、 他 の プロ シー ジャ 
で 使用 で きる よう に し て くれ ます 。 

この 「GetComputerName」 関数 を 、「Declare」 ステ ー ト メン ト で 宣言 する と 次 
の よう な 構文 に な り ま す 。 


Dec1are FuncCtion GetComputerName エ ふ 3 わ "kerne132" 
① る ⑨ 
A1ias "GetCompu ヒ erNameA" (ByVa1 1pBuFFer As String, 
(③ (④* 


nSize As Long) As Long 
④: 


この 記述 を よく 見 る と 、 次 の 書式 で 書か れ て いま す (Declare ス テー トメ ント の 
書式 は P.350 を 参照 ) 。 


① 関 数 名 「GetComputerName」 は その まま で 、 頭 に 「Function]」 キー ワー ド が つ 
いて いま す 。 こ れ で 、Visual Basic の 関数 形式 の プロ シー ジャ と し て 使用 で きる 
よう に な り ま す 。 


②⑫ 関 数 名 の あと に は 、API が 格納 され て いる ダイ ナミ ッ ク リ ンク ライ ブラ リ の 名 前 
を 記述 し ます 。 こ の API は 、「kernel32.dll| の 機能 を 使う た め の イ ンタ ー フ ェ イ 
ス を 取り ます の で 、「"kernel32"| と 記述 し ます 。 


③⑬ 「Alias] は 、 こ の 関数 が ライ ブラリ の 中 で 別 の 名 前 を 持っ て いる 場合 に 使用 し ま 
す 。 こ の API は 、 ラ イブ ラリ の 中 で は 「GetComputerNameA」 と いう 名 前 で 使 
用 され て いま す 。 
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(④2 つ の 引数 は 、 そ れ ぞ れ 文 字 列 型 (String) と 長 整 数 型 (Long) に 変換 され て 宮 
言 し 直 き れ て いま す 。 こ の デー タ 型 で あれ ば 、Visual Basic で 使用 で きま す 。 


この よう に 、API を Visual Basic で 使う 場合 は 、「Declare」 ステ ー ト メン ト を 用 
いて 、 Visual Basic で 使え る 形 に 宣言 し 直し て か ら 使 用 し ます 。 


で は 、 実 際 に コー ド を 作成 し て み ま し ょ う 。 ま ず 、 プ ロジ ェクト に 挿入 し た 標準 
モジ ュー ル 「Modulel] で は 、Declare ス テー トメ ント で API 「GetComputerName」 
を 宣言 する だ け で す 。 

以下 の 宣言 を 、 大 文字 小文字 を 正確 に 入力 (ある い は コピ ー) し て くだ さい 。 


Dec1are Funoion GetComputerName Lib "kerne132" 
A1ias "GetComputerNameA" (ByVa1 1pBuFFer As St と ing。 
nSize As Long) As Long 


この API は 、 引 数 「IpBuffer]」 に 、 コ ンピュータ 名 を 格納 する 文字 列 型 の 変数 を 、 
「nSize] に この 変数 の サイ ズ (バイ ト 数 ) を 設定 し て 実行 し ます 。 


フォ ー ム の コマ ンド ボタ ン を クリ ッ ク す る と 、 ラ ベル コン トロ ー ル に コン ピュ ー 
タ 名 を 出力 する よう に する の で 、 コ マン ド ボ タ ン の Click イベ ント プロ シー ジャ で 
すべ て の 処理 を 行い ます 。 

まず 、 コ ンピュータ 名 を 格納 する 変数 を 、 文 字 列 型 の 文字 数 指定 で 宜 言 し ます 。 


Dim name As String * 16 


変数 の デー タ 型 「As String] の 後に 、[*| と 整数 を 記述 する と 、 サ イズ を 固定 し 
た 変数 を 確保 で きま す 。API 「GetComputerName」 で は 、 引 数 「nSize」 に 指定 し 
た バイ ト 数 と 、 コ ンピュータ 名 を 格納 する 変数 の サイ ズ が 同じ で な けれ ば な り ま せ 
ん 。 設 定 する 数 値 は 「 入 力 可能 な コン ピュ ー タ 名 の 最大 値 (15 バ イト ) +1 バ イト 」 
で す 。 つ まり 変数 を 「16 バ イト | の 固定 サイ ズ で 確保 し ます 。 

次 に 、API 「GetComputerName」 を 実行 し ます 。 宣言 し た 変数 [name」 を 第 一 
引数 に 指定 し 、 第 二 引 数 に は 変数 で 確保 し た サイ ズ 「16| を 記述 し ます 。 


GetCompu そ erName name, 16 


これ で 、 こ の API が 実行 きれ る と 、 変 数 「name] に 、 コ ンピュータ 名 が 格納 さき 
れ ま す 。 あ と は 、 こ の 名 前 (変数 name) を ラベ ルコ ント ロー ル の [Caption] プロ 
パテ ィ に 設定 すれ ば 、 コ ンピュータ 名 を 表示 で きま す 。 


abe11 .Caption = name 
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| ぶさ れ た コン ピュ ー タ 名 。 使 用 
加 し て いる コン ピュ ー タ 名 は 、 コ ン 

トロ ー ル パネ ル の [ネット ワー ク ] 
| を 開き 、[ ユ ー ザ ー 情 報 ] タブ で 
議 較 | 確認 し て みて くだ さい 。 


簡単 に 、API の 概要 と 特徴 、Visual Basic で 使用 する 方 法 に つい て 説明 し まし た 。 
API は 直接 オペ レー ティ ング シス テム を 操作 する た め 、 使 いこ な す に は Windows の 
構造 や 基本 的 な 動作 原理 に 対す る 理解 が 必要 に な り ま す 。 ぜ ひ 、 機 会 を 捉え て これ ら 
の 勉強 を する こと を お 勧め し ます 。 

また 、 ど の よう な 種類 の API が あっ て 、 ど うい うと き に 使用 する の か が わか ら な い 
と 使え ませ ん 。Win32 SDK や 「Windows95 API バイ ブル 1」 な ど を 使っ て 、 こ 
れ ら の 情報 を 入手 し て くだ さい 。 


る c》 ぁ 練習 問題 


フォ ー ム に コマ ンド ボタ ン を も う 1 つ 追 加 し 、API を 使っ て Windows 
が イン スト ー ル され て いる ディ レク トリ 名 を 、 取 得 し て 表示 する よう に 
修正 し て くだ さい 。 


【 ヒ ント 】 
API は 、「GetWindowsDirectory」 を 使用 し ます 。Visual Basic で 
の Declare 宣言 は 以下 の と お り で す 。 


Dec1are Func ュ on GetW1ndowSD ュ ユエ GC モ or エモ わ "kerne132" 
A1ias "GetWindowSD ユ 1 エ ら GC 上 O ェ yA" (ByVa1 1pBuFEer As 
St ェ ing, ByVa1 nSize As Long) As Long 


解答 は 巻末 に 一 
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API ビュ ー ア を 使う 


Visual Basic 6.0 の 「Professional Edition」 以上 に は 、「API ビュ 
ー ア 」 と いう プロ グラ ム が 付い て いま す 。 こ の プロ グラ ム は 、 
Win32API を リス ト 表 示し 、Visual Basic で 使用 で きる よう に 、 
「Declare」 ステ ー ト メン ト で 宣言 し 直し た 記述 を 表示 し て くれ る 、 大 
変 優 れ た ツー ル で す 。 こ こ で は 、 こ の API ビュ ー ア を 使っ て 、 前 の レ 
ッ ス ン で 作成 し た 「 コ ンピュータ 名 を 取得 する プロ グラ ム 」 に API 関 
数 を 組み 込み な が ら 、API と API ビュ ー ア の 使い 方 に つい て 理解 を 深め 
て いき ます 。 


流 回 作成 する プロ グラ ム 


村 eS 訓 ここ を クリ ッ ク す る こ 、 
| 人 用 し て いる ピュータ | 呈 | 現在 の コン ピュ ー タ 名 が 
中 表示 され る 

| 






編ん ピュ ー タ 名 の 誤 3 コン ピュ ー タ 名 の 定 
| コン ピュ ー タ 名 を PCG-880 SERIES に 設定 し まし た 。 


| EOG2RROCGERAES この 設定 は 再起 動 後に 有効 に な り ま す 。 








新しい コン ピュ ー タ 名 を 入力 再起 動 後に 有効 に な る 
し て この ボタ ン を クリ ッ ク す こと を 知ら せる メッ セ 
る と 、 名 前 を 変更 で きる ー ジ が 表示 され る 


前 レッ スン で 作成 し た 、「 コ ンピュータ 名 を 取得 する プロ グラ ム 」 
に 、 今 度 は コン ピュ ー タ 名 を 設定 する AP| 関数 を 組み 込み ます 。 現 
在 の コン ピュ ー タ 名 を 表示 する 機能 と 、 新 し く コ ンピュータ 名 を 設 
定 する 機能 を 持っ た プロ グラ ム に 仕上 げ ま す 。 
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間 コン トロ ー ル と プロ パテ ィ の 設定 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


フォ ー ム に フレ ー ム コン トロ ー ル を ら つ 配置 し 、 各 
コン トロ ー ル の 次 の プロ パテ ィ を 設定 する 








フレ ー ム コン トロ ー ル  【Caption] プロ パテ ィ 





Frame 1 現在 の コン ピュ ー タ 名 
Frame ら 新しい コン ピュ ー タ 名 の 設定 


各 フ レー ム 内 と フォ ー ム に 25 つ ずつ コマ ンド ボタ ン 
を 配置 し 、 プロパティ と オブ ジェ クト 名 を 変更 する 





















(オブ ジェ クト 名 ) 
GetBtn 
SetBtn 
OkBtn 
CxBtn 


コン トロ ー ル 
Command 1 


[Caption] プロ パテ ィ 
使用 し て いる コン ピュ ー タ 名 
コン ピュ ー タ 名 の 設定 
OK 
キャ ン セ ル 












Command ら 








Command3 
Command4 

















iil 








配置 し て プロ パテ ィ を 設定 し 
た フレ ー ム コン トロ ー ル と 
コマ ンド ボタ ンコ ント ロー ル 
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フレ ー ム を 
ぐ 本 置 する 


フレ ー ム コン トロ ー ル を 
配置 する に は 、 ツ ー ル パ 

レッ ト の [Frame] 剛 | 
を 使い ます 。 ae: 





コマ ンド ボタ ン を 
配置 する 
コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 
の [CommandButton] 情 幸 
を 使い ます ゴ 
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標準 モジ ュー ル を 
シン で の 


2 ジウ ク ェクト | メニ ラー 
の [標準 モジ ュー ル の 追 
加 ] を 選択 し て 、 標 準 モ 
ジュ ー ル を 挿入 する こと 
も で きま す 。 


[標準 モジ ュー ル の 追加 ] 
ダイ アロ グ ボ ックス が 表 
示さ れる の で 、[ 標 準 モ ジ 
ュー ル ] アイ コン を クリ 
ッ ク し て 、[ 開 く ] を クリ 
ッ メグ し ます 。 


う 38 








ファ プロ ジェ クト に 標準 モジ ュー ル を 追加 する 















」 統 ・a ト 皿 」 ここ を クリ ッ ク 
還 ムン に 
き コ MDE24cASEA orm] (Form) 
」 AN 臣 叶 ( 伺 だ 則 b み グ 
カス も > cm で 
ol "習っ が ー ャ ト n- ル ゆ D 


| k 証 和 ン 





買 DHTML Paee 


[スタ ー ト ] [ブロ グラ ム ] 一 [Microsoft Visual Basic 60] っ 
[Microsoft Visual Basic 6.0 Tools] [API ビュ ー ア ] を 選 点 


ここ を クリ ッ ク 


[API ビュ ー ア ] の [ファ イル ] メニ ュー か ら [テキ 
スト ファ イル の 読み 込み ] を 選ぶ 


40K の の 


! 
1 


選 R さ れ た 項目 
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Gr 「WIN32API.TXT| を 選び 、[ 開 く ] を クリ ッ ク す る 





ニン リリ ソン 


ニーーーーーーgmmwes | に Ee2D52 | ここ を クリ ッ ク 
アイ ル の 移 類 CD bh2 し SD 湊 ] 





デー タベース に 変換 する の で 、[ フ ァイル ] メニ ュー 
か ら [デー タベース に 変換 ] を 選 応 


cyCommon\Toosww. 問 回 












纏 2 ト 2zf ル の 読み 込み ①- 
| EZ の 1608 だ の リー 


癌 トー am = を な を あり ッ み 
| C\Program Files\Microsoft Visual StudioWCommon\Tools\WinapiWWin32apitxt 

| APIE ュ -7 の 続 了 G9 
AbortDox 


上 abortPath 
AbortPrinter 














di 可 





ファ イル 名 を 
Al 


ここ を クリ ッ ク 


| ファ イル 名 ⑩* KM 
アイル の 種類 (①D。 [MDB 7 イル で MDB) 中 町 


ウェ [種類 ] か ら 「[ 関 数 ] を 選 点 


ommon\Toos\W_ 回 = 






ここ を クリ ッ ク 
用 | ここ を クリ ッ ク 


AbortDoc 
AbortPath 











< WiNsgAPlTxT 
通常 、 こ の ファ イル は 
「C:\Program Files\Micr 
osoft Visual Studio\Com 
mon\Tools\Winapi」 フ 
ォ ル ダ の 中 に あり ます 。 


アラ ー ト が 出 な い 
プ と き は 
特に アラ ー ト の 表示 が 出 
な いと き は 、[ フ ァイル ] 
メニ ュー か ら [デー タ ベ 
ー ス に 変換 ] を 選ん で く 
だ さい 
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関数 名 し か 表示 さ 
れ な い 


[選択 きれ た 項目 ] の 欄 に 
関数 名 し か 表示 され な い 
場合 は 、[ 表 示 ] メニ ュー 
の [すべ て の テキ スト ] 
を 選び ます 。 


素早 く 項目 を 探す 
ぐに は 


リス ト か ら 素 早く 目的 の 
項目 探し 出す に は 、 関 数 
名 の 最初 の 何 文字 か を キ 
ーー ボー ド で タイ オズ じ ます と 
例え ば 、「SetComputer 
Name」 な ら 、「S」 「e」 「t」 
と 素早 く が 10202oG3 の で 
くだ きい 。 すぐ に 「Set-」 
の 項目 が 選択 表示 に な り 
ます 。 




















LR 効 な 項目 ] か ら [SetComputerName] を 
選び 、[ 追 加 ] ボ タン を クリ ッ ク す る 





ご で こ だ 2 
ご と を クリ ッ ク タク 


[選択 され た 項目 ] に 
「Declare」 ステ ー ト 
メン ト に よる 宣言 コ 
ー ド が 表示 され る 
















『Public Declre Functon SetComputerName Lb "ken 
Alss Oates が ByVal pComputerName 4 
rme) As L 













0] 





れ ま す - 





上 上 今度 は [有効 な 項目 ] か ら [GetComputerName] 
を 選び 、[ 追 加 ボタ ン を クリ ッ ク す る 


ここ を クリ ッ ク 















SetComputerName [も "kerreg 
肛 呈 、 eoompuierNane が (ByVal lpComeuterName As 

















ele Declee Faxton SR Le ems [選択 され た 項目 ] に 
lee "GeIComeuierNoneAr (ByVal pElie As Sr re を 23eioy 

お 宣言 コー ド が 追加 ご 
COMODRCAerHNe (ByVal DBMe As Srme. nSce 

ee ere れる 





















| ublc. Declye Function SetComouterName Lb "kerne2" 宙 
Allas "SetComputerNsmeA (ByVal lpComputerName As 
rme) As ore 









折れ た 項目 】 リ メ HPS の 項目 は すべ て 銀 の ネー ドー よー され まし た 








Lesson 66 _ API ビューア を 使う 


Visual Basic に 戻り 、 標 準 モ ジュ ー ル に カー ソ 
ル を 置き 、[ 貼 り 付 け ] ボタ ン を クリ ッ ク す る 


』 





ファ イル CE) 編集 E) 表示 ) フェ ト P) 書式 0) デパ が 





Se コー ル 】 時 ここ を クリ ッ ク 














e TE 
(GeneraD 選 (Declarations》 | 


Public Declare Function SetComputerName Lib "kernel32" Alies 
Public Declare Function GetComputerName Lib “kernel32" Alias 
1 


標準 モジ ュー ル に 
API の 宣言 コー ド 
が 組み 込ま れる 






ラベ ルコ ント ロー ル を 上 の フレ ー ム コン トロ ー ル 
内 に 配置 し 、 次 の プロ パテ ィ を 設定 する 


』 科 














プロ パテ ィ 値 
Alignment ら 一 中 央 揃え 
BorderStyle 1 実線 
Caption 
OU | -」I ロ | >| 
ee 
使用 ・ て いる コン ピュ ー タ 名 









配置 し て プ ロ パ ティ 
を 設定 し た ラベ ル 
コジ シト ロー ル 
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gi 修 語 ン 選 回 三 
^* プ ル を 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Label] 「 放 | を 使 
いま す 。 5 


うま 
Win32API を 使う 





テキ スト ボッ クス ー ゃ 、 8 5 ae 
テキ スト ボッ クス を 下 の フ レー ムコ ント ロー ル 内 
バダ を 居る 』$ に 配置 し 、 次 の プロ パテ ィ を 設定 する 

テキ スト ボッ クス コン ト 

ロー ル を 配置 する に は 、 
224 当 レッ ウド の 








プロ パテ ィ 


プロ パテ ィ 値 
Text (な し ) 
TabIndex 0 











配置 し て プロ パテ ィ を 
設定 し た テキ スト ボッ 
クス コン トロ ー ル 























_Modulet:(General-(Delarations) 










pm] 


(General) | |(Declarations) 


Pub1ic Dec1are Funotion SetComputerName エ ュ も mjkerne132" や 
A1ias "SetComputerNameA" 


(ByVa1 1pComputerName As String) As Long 
Pub1io Dec1are Funoion GetCompu そ erName 
A1ias "GetComputerNameA" 

(ByVa1 1pBuFFe ェ As S モ ェ ing, nSize 


エ Lib "kerne132" 


As Long) As Long 
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Form1:(General)-(Declarations) 
| Em の 回 S 
(General) ェ | (Declarations) ゃ | 


| CompName AS Stringd * 20 


























Private Sub Form Load ( ) 
| GetComputerName CompName, 20 
End Sub 


Form1:GetBtn-Click 。 


il] 





[GetBtm | [Ciick 引 


P ェ ュ ivate Sub GetBtn C1iok( ) 

| GetComputerName CompName, 20 
| Labe1 1 .Caption = CompName 
End Sub 





引 Form1:SetBtn-Click 
IST Fo il ロー| 1 剛 

ISetBtm | [Ciick <] 1 
回 ーー ュー ニーーーーーーーーーーーーーーーーー ニ ーー 一 ーー ーーーー ニ ーーー ニー ニー ニーーー ニ ーー ニー ニー ニニ ニニ ニニ ーー に 
P ェ ivate Sub SetBtn C1iok( ) 


Dim SetName As String 
Dim Ret As Longd 








SetName = Te 上 1 .Texx モ 上 
ェ EF SetName = "" Then 
MsgBoxx "設定 する 名 前 を 入力 し て くだ さい 。* 
Texx1 . Set 上 FOCu8 
到 x1 モ 上 Sub 
EE1se 
Re ヒ = SetComputerName (SetName ) 
エ F Re = Fa1se Then 
MsgBox "文字 数 が 制限 を 越え て いま す 。 再度 入 力 し 直し て くだ さい 。 
TexE1 .SetFoCug 
芯 交 ユミ Sub 
End エモ 
End エモ 


Tex 七 1 . Se 上 FOCu8 
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MsgBox "コン ピュ ー タ 名 を  g setmame g " に 設定 し まし た 。 
を Chr(13) g Chr(13) g 
"この 設定 は 再起 動 後 に 有効 に な り ま す 。 ", vbokon1y, _ 
"コン ピュ ー タ 名 の 設定 " 


End Sub 
Form1:OkBtn-Click 



























Private Sub OkBtn C1iok( ) 
Un1oad Form1 
End 

End Sub 











HForm1:CxBtm-Click 








Private Sub CxxBtn C1iok( ) 


Un1oad Form1 


| 
| SetComputerName CompName 
| 
| 





量 Win32API に は 、「Get」 で は じ ま る 名 前 の 関数 が 大 変 多く あり ます 。 こ れ ら の 
API 関 数 は 、 主 に いろ いろ な 情報 を Windows か ら 取 得 し て くる 関数 で す 。 一 方 、 
「Set] で は じ ま る 関数 も か な り の 数 が 用 意 さ れ て いま す 。 こ れ ら は 、 逆 に Windows 
に 対し て 情報 を 設定 する API 関 数 に な っ て いま す 。 

API に よっ て は 、「Get| と 「Setl の 名 前 が 同じ も の が あり ます 。 こ れ ら は 、 同 じ 
種類 の 情報 を 取り 出し 、 ま た 設定 する 関数 で す 。「GetComputerNamel も 、 同 じ 名 
前 で 対 に な っ た 「SetComputerName」 と いう API が あり ます 。 こ の API 関 数 は 、 
その 名 の と お り Windows に 対し て コン ピュ ー タ 名 を 設定 する APIT に な っ て いま す 。 

本 プロ グラ ム で は 、API 関 数 「SetComputerName」 を 使っ て 、 新 し い コ ン ピ ュ 
ー タ 名 を Windows に 設定 する プロ グラ ム を 作成 し ます 。 


みう API 関 数 「SetComputerName」 は 、 引数 に 設定 する 文字 列 を 指定 し て 実行 する 
と 、 そ の まま コン ピュ ー タ 名 を 設定 で きま す 。 た だ し 、 設 定 し た 新しい コン ピュ ー 
タ 名 は 、Windows を 再起 動 し た 後に 有効 に な り ま す 。 

この プロ グラ ム で は 、 テ キス ト ボ ックス コン トロ ー ル に 文字 を 入力 し て も らい 、 





















LesSon 56 API ビュ ー ア を 使う 


[コン ピュ ー タ 名 の 設定 ] ボ タン を クリ ッ ク し た 時 点 で 入力 され た コン ピュ ー タ 名 を 、 
「SetComputerName」 で Windows に 設定 し ます 。 


新 罰 MEB 小 5 この の 負 中 ニー ニー ーー ニニ ーーー ニー ニー | 


| | | と だ コジ ピ ョ ー タ 名 
ド FETO VaO | | を 入力 し . 


コピ ュー タ 名 の 設定 =| 詞 庶 | ここ を クリ ッ ク し て 設 
ーーーーーーーーー 還 |'? 








ee 


ネッ トワ ー5 の 設定 識別 情報 | アカ セス の 制御 | 


タ を 識 


ネッ トワ ー 人 人 | 
人 論 め 半 宮 和 a ま | 


コジ ンピュータ 名 : | ETO vi 1 | コン ピュ ー タ 名 が 変更 
| | され た 

この Worksroup | 

コン ビ ピュータ の 説明 : | 、 、〔〈】 も 01 や 1 パパ UV〔 ト 〔… | 


人 前 の レッ スン で は 、API の 「Declare」 ステ ー ト メン ト に よる 宣言 を 、 直接 手 で 入 
力 し まし た 。 し か し 、Visual Basic の プロ フェ ッ シ ョ ナル エディ ショ ン に は 、「API 
ビュ ー ア 」 と いう 便利 な ツー ル が 付属 し て いま す 。 す で に 画面 の 操作 解説 の と ころ 
で 、「API ビ ュー ア 」 の 操作 方 法 を 紹介 し まし た 。 こ の ツー ル を 使え ば 、 難 解 な API 
の 再 定 義 が 簡単 に 行え を ます 。 こ の レッ スン で は 、「SetComputerNamel| と 
「GetComputerName」 の 2 つの 関数 の 「Declare」 宣言 を 探し 出し 、 コ ー ド に 貼り 付 
け て いま す 。 

「API ビ ュー ア 」| は 、API の 「 関 数 ] [定数] 「 型 ] を 、Visual Basic で 使用 で きる 
形式 に 自動 的 に 変換 し て くれ ます 。 使 用 し た いこ れ ら の 名 前 が わか れ ば 、「API ビ ュ 
ー ア 」 を 使用 する こと で 、Visual Basic で の 再 宣言 作業 が と て も 楽に な り ま す 。 た 
と えば 、「C 言 語 ]」 で 使用 きれ る 「 構 造 体 ] を 引数 に 持つ API 関 数 で は 、 そ の 構造 体 
の 「 型 | を リス ト で 探し 出せ ば 、Visual Basic の ユー ザー 定義 の デー タ 型 に 変換 し 
て 表示 し て くれ ます 。 

た だ し 、「API ビ ュー ア 」| は あく まで も 関数 名 と その 宣言 文 を 表示 する だ け で すか 
ら 、 ど の 関数 が どう いう 機能 を 持っ て いる の か は 、「Win32 SDK」 や 「Windows95 
API バ イプ ブル 1』 な ど を 使わ な いと わか り ま せん 。 


うろ 
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生 









:TIVATE =8HG 
ETAUTOHIDEBAR = き H7 
TE = き H4 


| ER = 1 
定数 リス ト 


で は 、 実 際 に コー ド を 作成 し まし ょ う 。 標準 モ ジュ ー ル に は 、 す で に 「Declare」 
ステ ー ト メン ト に よる API 関数 「SetComputerName」 と 「GetComputerName」 が 
再 宜 言 さ れ て いま す (Declare ステ ー ト メン ト の 書式 は P.350 を 参照 ) 。 


Dec1are Funotion SetComputerName Lib "kerne132" 
A1ias "SetComputerNameA" 
(ByVa1 1pComputerName As String) As Long 


Dec1are Function GetCompu そ terName Lib "kerne132" 
A1ias "GetComputerNameA" 
(ByVa1 1pBuFFer As String, nSize As Long) As Long 


「SetComputerName」 関数 は 、 引 数 「IpBuffer」 に 新しく 設定 する コン ピュ ー タ 
名 を 、 文 字 列 ま た は String 型 の 変数 で 指定 し ます 。 コ ンピュータ 名 と し て 設定 で き 
る 最大 文字 数 は 、Windows95/98、Windows NT 4.0 と も に 半角 換算 で 15 文 字 ま で 
で す 。 ス ペー ス 以 外 の 標準 の ASCIL 文 字 と 数 字 、 そ し て 次 の 記号 が 使用 で きま す 。 


人 


「SetComputerName」 関数 は 、 成 功 す る と 「Truel を 、 失 敗 す る と 「False」 を 
返し て きま す 。 


Lesson 66 API ビュ ー ア を 使 


和 標準 モジ ュー ル で API 関 数 の 宜 言 を し た ら 、 フ ォ ー ム の コー ド に 実際 の 処理 を 作 
成 し ま す 。 
まず 、 宣 言 セ クシ ョ ン に 変数 を 宣言 し ます 。「CompName」 は 、 現 在 設定 され て 
いる コン ピュ ー タ 名 を 格納 し ます 。 余裕 を 見 て 20 バ イト の 固定 長 で 宣言 し ます 。 


Dim CompName As String * 20 


そし て 、 フ ォ ー ム の Load イ ベン ト プ ロ シー ジャ で 、API 関 数 
「GetComputerName」 を 実行 し ます 。 プ ログ ラム の [キャン セル ] ボタ ン が クリ ッ 
ク さ れ た 場合 は 、 入 力 さ れ た コン ピュ ー タ 名 を 取り 消し て 、 元 の 設定 に 戻し て お く 
た めで す 。 


P ェ ュ ivate Sub Form Load( ) 
GetComputerName CompName, 20 
End Sub 


フォ ー ム に 配置 し た [使用 し て いる コン ピュ ー タ 名 ] ボタ ン を クリ ッ ク す る と 、 
前 の レッ スン で 行っ た よう に 、Windows か ら コ ンピュータ 名 を 取得 し て 、 ラ ベル コ 
ント ロー ル に 表示 し ます 。 す で に プロ グラ ム 起 動 時 に 、 変 数 に 格納 し て いる の で 、 
この 処理 は 必要 な い の で す が 、 前 レッ スン の 復習 の 意味 で 付け て お きま し た 。 


P ェ ivate Sub GetBtn C1ick( ) 
GetComputerName CompName, 20 
abe1 1 .Capion = CompName 

End Sub 


プ 今度 は 、[ コ ンピュータ 名 の 設定 ] ボタ ン が クリ ッ ク さ れ た と き の 処理 を 作成 し ま 
す 。 こ の イベ ント プロ シー ジャ で 、 新 し い コ ンピュータ 名 の 設定 処理 を 行い ます 。 
まず 、 変 数 「SetName」 を 宮 言 し ます 。 こ の 変数 は 、 設 定 す る コン ピュ ー タ 名 を 
格納 する 変数 で 、 文 字 列 型 で 宣言 し ます 。 変数 [Ret] は 、API 
「SetComputerName」 関数 が 返し て くる 戻り 値 を 格納 する 変数 で す 。 こ の API 関 数 
は 、Long 型 で 宣言 さま れ て いま すか ら 、 同 じ デ ー タ 型 で 宮 言 し て お きま す 。 


P ェ iate Sub SetBEn C11cK( ) 
Dim SetName AS String 
Dim Ret As Tong 


次 に 、 テ キス ト ボ ックス コン トロ ー ル に 入力 され た 文字 列 を 、 変 数 に 格納 し ます 。 


SetName = Tex モ 1 .Tex ヒ 
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テキ スト ボッ クス に 何 も 入 力 さ れ て いな い の に 、 こ の ボタ ン が クリ ッ ク さ れ て 
「SetComputerName」 関数 が 実行 きれ る と 、 プ ログ ラム は エラ ー に な っ て し まい ま 
す 。 そ こ で 、 変 数 [SetName」 の 値 が "(空白 ) で あれ ば 、 メ ッ セ ー ジ ボッ クス を 
表示 し 、「Exit Sub] ステ ー ト メン ト で プロ シー ジャ を 終了 させ ます 。 こ の と き 、 直 
前 に テキ スト ボッ クス に フォ ー カ ス を 移し て 、 次 の 入力 に 備え ます 。 


ェ F SetName = "" Then 
MsgBox "設定 する 名 前 を 入力 し て くだ さい 。 
Texxt1 . Set 上 FoOoCus 
Exx ユ 上 Sub 


テキ ス ト ボ ックス が 空白 の ま 
ま ボ タン を クリ ッ ク す る と 、 
メッ セー ジ が 表示 され る 





8 丈 字 列 が 入力 され て いれ ば 、「SetComputerName」 関数 を 実行 し ます 。 こ の と き 、 
関数 の 戻り 値 を 変数 「Ret」 に 格納 し て お きま す 。 
入力 され た 文字 の 文字 数 が 、 設 定 で きる 最大 文字 数 (半角 換算 で 15 文 字 ) を 超え 
て いる と 、「SetComputerName」 関数 は 新しい コン ピュ ー タ 名 を 設定 で きず に 
「False] を 返し て きま す 。 そ こ で 、[「False」 が 返っ て きた 場合 は 、 再 度 入力 を や り 
直し て も ら う よう に 、 メ ッ セ ー ジ ボッ クス を 表示 し 、 プ ロ シ ー ジ ャ を 終了 し ます 。 


下 1se 
Re = SeComputerName ( SetName ) 
エ F Re = Fa1se Then 
msgBox "文字 数 が 制限 を 越え て いま す 。 再度 入力 し 直し て くだ さい 。 " 
Tex モ 1 .Set 上 FoOCuS 
Ex ふ モ Sub 
End エモ 
End エモ 





ウ 
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- 現在 の コン ピュ ー タ 名 ーー 
使用 し て いる コン ピュ ー タ 名 | 


1 文字 数 が 制限 を 越え て いま す 。 再度 入力 し 直し て くだ さい 。 | 再 入力 を 促す メッ セー ジ 
新 コ に | ボッ クス が 表示 され る 
CTAAAAAAAAAARAAAAAAAAAAAAAAAAAA | 





入力 され た 文字 が 、 正 し く 設 定 で きた 場合 は 、 設 定 し た コン ピュ ー タ 名 を メッ セ 
ー ジ ボッ クス で 表示 し ます 。「SetComputerName」 関数 は 、 あ くま で も コン ピュ ー 
タ 名 を 設定 する だ け で す 。 実際 に 設定 され る に は 、 コ ンピュータ を 再起 動 す る 必要 
が あり ます 。 そ こ で 、 メ ッ セ ー ジ ボッ クス に この 内 容 も 表示 する よう に し ます 。 


Texxt1 . Se 上 FoOCuS 
MsgBox "コン ピュ ー タ 名 を  g getName g " に 設定 し まし た 。" _ 
を Chr(13) & Chr(13) g 


"この 設定 は 再起 動 後に 有効 に な り ま す 。 ", vbokon1y, _ 
"コン ピュ ー タ 名 の 設定 " 


=I ロ | 








DRAGON SETO 加計 連 計 記 


エド ュー タ 名 を DRAGON SETO に 計 定 し まし た 。 | 再起 動 後 に 有効 に 
コン ト この 夫 定 は 再生 後に 有効 に な り ます 。 な る こと を 知ら せ 
ーー 己 = | | る メッ セー ジ 
OK ャ ン セル 


最後 に 、 プ ログ ラム の 終了 処理 を 作成 し ます 。 ま ず 、[OK] ボタ ン が クリ ッ ク さ 
れれ ば 、 そ の まま プロ グラ ム の 終了 処理 を 実行 し ます 。「SetComputerName」 関数 
に よる 新しい コン ピュ ー タ 名 の 設定 は 有効 の まま 、 プ ログ ラム が 終了 し ます 。 
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P ェ ュ ivate Sub OkBtn C1iok( ) 
Un1oad Form1 
End 

End Sub 


一 方 [キャンセ モル] ボタ ン が クリ ッ ク さ れ た 場合 は 、 新 し い コ ンピュータ 名 の 設 
定 を 取り 消し て 、 プ ログ ラム が 起動 する 前 に 戻し て お く 必 要 が あり ます 。 そ こ で 、 
プロ グラ ム 起 動 時 に 格納 し て いた 、 現 在 の コン ピュ ー タ 名 を 使っ て 、 再 度 
「SetComputerName」 関数 を 実行 し ます 。 こ れ で 、 一 度 別 の コン ピュ ー タ 名 に 設定 
を 変更 し て いて も 、 元 に 戻す こと が 可能 に な り ま す 。 そ し て 、 プ ログ ラム の 終了 処 
理 を 実行 し ます 。 


Private Sub CxxBtn C1iok( ) 
SetCompu そ terName CompName 
Un1oad Form1 


エル ナオト エ ミミ トミ エエ ミミ エメ ミミ ミオ ミミ オオ ミミ エメ ミミ KKKEKEKKKEKKLIKRYIRKRRRYERRLYEEKYYEKKKKKKK ミ KK ミミ ミミ ミミ ミミ ミミ 


Declare ステ ー ト メン ト の 書式 
[Pub1ic | Private] Dec1are [Sub | Function] name 
Lib "1ibname" [A1ias "a1iasname"] [([arg1igst] ) ] 


pub1ic/private 省略 可能 。 プ ロ シ ー ジ ャ の 種類 を 宣言 する と き に 指定 し ます 。 
Sub/Function Function か が sub の どちら か を 指定 し ます 。sub は プロ シー ジャ が 値 
を 返し 、runction は プロ シー ジャ が 値 を 返さ な いこ と を 示し ます 。 


name プロ シー ジャ 名 を 指定 し ます 。 大 文字 小文字 を 区 別して 指定 し ます 。 
Lib 必ず 指定 し ます 。 

1ibname prr の ファ イル 名 を 指定 し ます 。 

A1ias prr の 中 で 別 の 名 前 を 持っ て いる 場合 指定 し ます 。 省 上 略 可 能 。 
a1iasname prr の 中 の 別 の プロ シー ジャ 名 を 指定 し ます 。 省略 可 能 。 

arg1ig モ プロ シー ジャ に 渡す 引数 を 表す 変数 の リス ト を 指定 し ます 。 省 略 可 能 。 


に ルル エエ オメ ミミ エエ ミエ エエ ミミ エメ ミミ エメ オオ ミエ ナオ KKTTIIIIYINIKKAYNIKLXIKYYKKKYKKKKKKKKKKKEKKKKKKEKLKKKEKCKLLEEKLJ 





API ビュ ー ア の 操作 解説 で 、 対 象 と な る テキ スト ファ イル を 、 デ ー タ ベー ス フ ァ イル 
に 変換 し まし た 。 こ の 変換 を 行っ た 場合 は 、 次 回 API ビ ュー ア を 使用 する と き に 
「MDB」 ファ イル を 読み 込ん で 使用 する と 、 関 数 な どの 検索 が 高速 に な り ま す 。 

操作 は 、[ フ ァイル ] メニ ュー の [デー タベース ファ イル の 読み 込み ] を 選択 し て 、 
「WIN32API.MDB」 を 開く だ け で す 。 ち な み に 、 こ の ファ イル は 、Microsoft 
AccesSs の デー タベース ファ イル に な っ て いま す 。 


Lesson 56 API ビュ ー ア を 使 


「API ビュ ー ア 」 を 使う と 、API 関数 の 再 定 義 が と て も 簡単 に で きま す 。 お そら く 、 
これ ら の ツー ル が な いと 、Visual Basic に API を 組み 込む た め に 、C 言語 の 知識 も 
必要 に な り 、 大 変 な 作業 で し ょ う 。 

プロ グラ ム で は 、Windows か ら 情 報 を 取得 する API 関数 と 、 設 定 する API 関数 の 
ら つ を 組み 合わ せ て 使用 し まし た 。 

設定 を 変更 する 場合 は 、 事 前 に 変更 前 の 情報 を キ を ちん と 保存 し て お いて 、 い つ で も 
元 に 戻せ る よう に し て お きま し ょ う 。 間 違っ た 設定 に よっ て Windows が 再起 動 し な 
く な っ て し まう 、 と いう こと は 良く ある こと で す 。API は 便利 で す が 、 使 う 場 合 は 、 
十分 注意 し て 実装 し て くだ さい 。 


@c》 練習 問題 


中 作成 し た プロ グラ ム に 、 フ ォ ー ム を クリ ッ ク す る と フォ ー ム の タイ ト 
ル (ウィ ンド ウタ イト ル ) が 点滅 する 機能 を 組み 込ん で くだ さい 。 ま た 、 
点滅 を 中 止 す る [リセット ] ボタ ン も 組み 込ん で み ま し ょ う 。 





API 関数 「FlashWindow」 を 使用 し ます 。Declare ステ ー ト メン ト に 
よる 再 宣言 の 記述 は 、 次 の と お り で す 。API ビュ ー ア を お 持ち の 方 は 、 
操作 方 法 の 練習 を 兼ね ち て 、 こ の 関数 を 標準 モジ ュー ル に 組み 込ん で くだ 
さい 。 


Dec1are Func モ ion F1ashWindow Lib "user32" 


(ByVa1 hwnd As Long, 
ByVa1 b エ n で er モ 上 As Longd) As Lond 


解答 は 巻末 に 一 
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は Lesson27.vbp 
⑯) VB6cD2 
コバ ペコ Lesson27 


うろ 





メモ リ チ ェ ッ カ ー の 作成 


これ まで の レッ スン で 、Win32API の 使い 方 と API ビュ ー ア の 操作 方 


法 を 覚え まし た 。 使 用 し た API 関数 は 、 比 較 的 簡単 な 使い 方 の 関数 で 


し た 。 こ の レッ スン で は 、 も う 少 し 複雑 な デー タ 構 造 を 引数 に 持つ API 


関数 を 使用 し て 、 コ ンピュータ が 現在 使用 し て いる メモ リ の 状況 を 表示 
する プロ グラ ム を 作成 し ます 。 


今回 作成 する プロ グラ ム 


に 間 り ilg 則 Ip 





ここ を クリ ッ ク す る と .… 


総 メ モリ | 6084864 
使用 林 能 な メモ リ | 2256966 
絶 仮想 メモ リ | BRT57325 
使用 叶 能 な 仮想 メモ リ | 1815859200 





現在 使用 し て いる メモ リ の 
状況 が 表示 され る 


API 関数 「GlobalMemoryStatus」 の 使い 方 と 、 返 し て きた 値 を 
コン トロ ー ル に 反映 させ る テク ニッ ク が ポイ ント で す 。 こ の 関数 は 、 
引数 に C 言語 で 言う 「 構 造 体 ] を 持ち ます 。Visual Basic で は 、 
「 ユ ー ザ ー 定 義 型 ] と 呼ば れる デー タ 型 を 使用 し て 、 メ モリ に 関す る 
情報 を 操作 し ます 。 





Lesson 67 メモ リ チ ェ ッ カ ー の 作成 


0 EE ご ル と 。 プ レロ 。 バ ラテ イィ 。 の 本 。 だ 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


フォ ー ム の 【[Caption] プロ パテ ィ を 「Memory 
Checker」 に 変更 する 
の PFOVNG ニ ニニ ーー 
FcrmtFcom = =  。 一 | 
全体 | 項目 串 | | 
わ の > 中 る ) 
到 ppearanCE 1 - 3D 


AutoRedraw False 
目 &H800n00F& 


2- 可変 
Memory Checkerl ここ を クリ ッ ク 
True 


True 


ュ ュ ーー ム な 














Farml1 


IContralBox 


に 


コマ ンド ボタ ンコ ント ロー ル を 配置 し 、[Caption] 
プロ パテ ィ を 「Memory Check」 に 変更 する 







| s. Memory Checker 「-I ロ lx 
| 配置 し て プ ロ パ ティ 
= Memory Check | を 変更 し た コマ ンド 
ボタ ンコ ント ロー ル 


] 
| 
| 
| 
| 
| 
1 
| 


ラベ ルコ ント ロー ル を 4 つ 配 置 し 、 各 コン トロ ー ル 
の Caption] プロ パテ ィ を 変更 する 


ラベ ルコ ント ロー ル 
Label 1 


[Caption] プロ パテ ィ 





Label ら 使用 可能 な メモ リ 





Label3 
Label4 


総 仮想 メモ リ 
使用 可能 な 仮想 メモ リ 
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。 コマ ンド ボタ ン を 
ププ 二 置 する 
コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 
の [CommandButton] 晴 填 
を 使い ます 。 ー コ 


に 2 ララ 4239MM 司 涼 計 還 圭 
* プ ル を 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Label] | を 合 
いま す 。 人 で 義 
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Win32API を 使う 


ラベ ルコ ント ロー 
プル を コピ ー す る 
配置 し て プロ バテ ィ を 設 
定 し た ラベ ルコ ント ロー 
ル を クリ ッ ク し て 選択 し 、 
[標準 ] ツー ル バ ー の [ コ 
ビ ピー] ボタ ン を クリ ッ ク 
し ます 。 続 け て [貼り 付 
け ] ボタ ン を クリ ッ ク し 、 
作成 され た ラベ ルコ ント 
ロー ル を 適切 な 位置 まで 
ドラ ッ グ し て 由 置 し ます 。 


る 5 全 

















使用 可能 な メモ リ 
配置 し て プロ パテ ィ 


を 設定 し た ラベ ル 
コン トロ ー ル 













総 仮 想 メ モリ 






使用 訂 能 な 仮想 メモ リ ・ 








ラベ ルコ ント ロー ル を も う 1 つ 配 置 し て 次 の ひ プロ パテ 
ィ を 設定 し 、 コ ピー を 3 つ 作 成す る 


プロ パテ ィ 
Alignment 





BorderStyle 








Caption 











配置 し て プロ パテ ィ 
を 設定 し た ラベ ル 
コン トロ ー ル 


総 メモ リ 2 


使用 可能 な メモ リ 












記 ] ia 








Memory Check 
絶 メ モリ 
使用 可能 な メモ リ 
コピ ー し て 配置 し た 
総 伯 起 メモ リ コピ ー し て 過 軒 し た 
使用 可能 な 仮想 メモ リ 











Lesson ら 7 メモ リ チ ェ ッ カ ー の 作成 


全 プロ ジェ クト に 標準 モジ ュー ル を 挿入 する 


visual Basic サイ 















ep 間 う m ジ 2 ト ) の アグ が ⑥ 天 
|・& -3 ここ を クリ ッ ク 
ーー 届 カー ムッ SO 
MD ムジ 
se | | PP 1 v 
| ペ 人 ジー PR 





語 ! _ 置 ユ ザー ヤ N- ル ゆ 
上 1 cW 財 7 0 


= オル 5 YY 





AP| ビュ ー ア を 起動 し 、 関数 [GlobalMemoryStatus] 
を 選び [追加 ボタ ン を クリ ッ ク す る 





5 ET 
75 ID ネエ 0 や 


種類 1 

ーー 胃 5om [関数 ] を 選択 
検索 する 文字 2 の 先導 の 文字 きく つか 入力 し て くだ きい ⑰ 

ーー 







ここ を クリ ッ ク 
ここ を クリ ッ ク 


「Declare] ステ ー ト 
メン ト に よる 宣言 コ 
ー ド が 表示 され る 






テト の に 下 拓 入 力 し た 支 宇 で 検索 され ます - 


[種類 ] か ら 「[ 型 ] を 選び 、[ 有 効 な 項目 ] か ら 
[MEMORYSTATUS] を 選 点 





lias "GI yStat 
IMEMORYSTATUS) 


リス ト の 2 由 ご 上 摘 入力 し た 文字 で 松 索 され ます - ツ | 





標準 モジ ュー ル を 
の 策 入 する 


2 ジェ グロ ドス ニュ : 三 
の [標準 モジ ュー ル の 追 
加 ] を 選択 し て 、 標 準 モ 
ジュ ー ル を 挿入 する こと 
も で きま す 。 


[標準 モジ ュー ル の 追加 ] 
ダイ アロ グ ボ ックス が 表 
示さ れる の で 、[ 標 準 モジ 
ュー ル ] アイ コン を クリ 
20GS 開く を ク 20 
ッ ク タ し ます 。 


AP| ビュ ー ア を 起 
の 委 す る 


APIT ビ ュー ア を 起動 する 
に は 、 タ スク バー の 【[ ス 
ター ト ] ボタ ン 一 [プロ 
グラ ム ] 一 [Microsoft 
Visual Basic 6.0] 一 
[Microsoft Visual Basic 
6.0 Tools] 一 [API ビ ュー 
ア ] を 選択 し ます 。 
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[追加 ] ボタ ン を クリ ッ ク し 、[ コ ピー] ボタ ン を クリ 
ッ ク す る 


bub GlobalMemoryStatus Lib "kernel32" 
Alias "Global oryStatus” (jpBuffer As 


MEMORYSTA 


Public Type MEMORYSTATUS 
dwLength As Long 
dwMemoryLoad As Lone 
dwTotalPhys As Lone 
dwAvailPhys As Long 
dwTotalPageFile As Long 
dwAavailPageFile As Long 


9 カト の 2 に 謝 入 力 し た 次 手 で 検索 され ます - 








Visual Basic に 戻り 、 標 準 モ ジュ ー ル に カー ソル を 
置き 、[ 貼 り 付 け ] ボタ ン を クリ ッ ク す る 






TS) I ロ | | 


| (Generalb) ェ | (Declarations) ェ | 


Public Declare Sub GlobalMemoryStatus Lib “kernel32" 
(lpBuffer 』s MEMURYSTATUS) 














Type MEMIRYSTATUS 
dwLength 』s Long 
dwMemoryLoad 語 s Long 
dwTotalPhys 』s Lang 
dwayailPhys 上 s Lang 
dwTotalPageFile as Laong 

dwAvailPageFile as Long 

dwTotalVirtual As Lonal 
dwayailWirtual s Long 







標準 モジ ュー ル に 
API| の コー ド が 組 
み 込 まれ る 
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(Generab) マ | (Declarations} 








| Dec1are Sub G1oba1MemoryStatus iD "kerne132" 5 2 | 
| (1pBuFFer As MEMORYSTATUS ) 


Type MEMORYSTATUS 

dwLength As Long 

dvwMemoryLoad AS Lond 

dwTota1Phys AS Lond 

dwAvyai1Phys As Lond 

dwTota1PageFi1e As Long 

| dwAva11PageFi1e As Long 

| dwTo モ 上 a1V ュ tua1 As Long 

| dwAYa ユ 1 び ュ ェ tua1 As Lond | 
End Type | 


| 
] 


量 iForm1: :Command1- Click 


や Ll 軸 m 軸 





[Command [Ciick 引 
ーーーーーーーーーーーーー---ー…ーーーーーーーー ニ ーーーー-ーー ーー ツーーーーーーーーーーーーーーー 一 - 


| Private Sub Command1 C11ick( ) 
| Dim Memdata As MEMORYSTATUS 


G1oba1MemoryStatus Memdaa 


| With Memdaa 





| Labe1.5 (0 ) .Caption = .dwmota1Phys 

| Labe15(1 ) .Caption = .dwAvai1Phyg | 
rabe15 ( 2 ) .Cap モ ion = -dwTota1PageFi1e | 
Labe15 (3 ) .Caption = -dwAvat1pageFi1e | 

| End With 

End Sub 
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ーー ナー 


時 この プロ グラ ム は 、 コ マン ド ボ タ ン [Memory Check] を クリ ッ ク す る と 、 コ ン 
ピュ ー タ で 使用 し て いる 現在 の メモ リ と 仮想 メモ リ の 総 容 量 、 使 用 可能 な 容量 を 表 
示す る プロ グラ ム で す 。 

この メモ リ に 関す る 情報 は 、Visual Basic の コン トロ ー ル や 関数 な ど で は 取得 で 
きま せん 。 こ れ ら は 、API 関 数 「GlobalMemoryStatus」 を 使え ば 把握 で きま す 。 





ek | ここ を クリ ッ ク す る と .。 


絶 メモ リ | 66084864 
使用 可能 な メモ リ | 2556896 | コラ シビ ョ ニ 多 の 所 り 


| 
1 
] 
人 
』 
| 
ララ 
| | 容量 を 表示 
] 
| 
| 
| 
{ 


総理 メ モリ | T95T57f328 | 
使用 可能 な 仮想 メ モリ | | 18T5859200 | 


みう API 関 数 「GlobalMemoryStatuns] は 、 実 行 す る と メモ リ に 関す る 8 つの 情報 を 
Windows か ら 把 握 し 、 引 数 に 設定 し た 「 構 造 体 ] (ユー ザー 定義 の デー タ 型 ) に 格 
納 し ます 。 


Dec1are Sub G1oba1MemoryStatus Lib "kerne132" 
( 1pBuFFer As MEMORYSTATUS ) 


「MEMORYSTATUS」| と 定義 きれ て いる の が 、 そ の ユー ザー 定義 の デー タ 型 で 、 
この API 関 数 を 実装 する 場合 は 、「MEMORYSTATUS」 と いう デー タ 型 を 定義 し 
な く て は な り ま せん 。 その 場合 は 、API ビ ュー ア の 「 型 | リスト を 探せ ば 、 再 定義 
に 必要 な 記述 が 表示 され ます 。 


| アル 斑 芋 表示 _ SW7D ーー Tr 
種類 ⑥ 


検索 す ち 文字 2 の 先頭 の 文字 を いく つか 入力 し て くだ さい ⑰- 


有 有 幼 な 項 目 ⑪ 


型 リ スト で [MEMORYSTATUS] 
を 選択 する と .… 


再 定義 に 必要 な 記述 が 表示 され る 
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[構造 体 (ユー ザー 定義 の デー タ 型 ) 」 と は 、 複 数 の 変数 を 一 括 で 管理 で きる よう 
に 用 意 き れ て いる デー タ 型 で す 。「 文 字 列 型 (String) 」 と か 「 整 数 型 (Integer) 」 
な どの よう に 、 あ ら か じ め Visual Basic で 定め られ て いる デー タ 型 で は な く 、 ユ ー 
ザー が 既存 の デー タ 型 を 組み 合わ せ て 独自 の デー タ 型 を 作成 で きる よう に な っ て い 
ます 。 こ の 「 ユ ー ザ ー 定 義 の デー タ 型 | を 定義 する 場合 は 、 必 ず 「Type」 ステ ー ト 
メン ト で 型 の 名 前 を 宣言 し 、 組 み 込 む 変数 を 列挙 し ます 。「Type] ステ ー ト メン ト 
の 中 は 、Dim ス テー トメ ント の 記述 は 必要 な く 、 そ の まま 変数 名 と デー タ 型 を 指定 
し ます 。 こ こ で は 、8 つ の Long 型 変数 を 、 ユ ー ザ ー 定 義 の デー タ 型 の 要素 と し て 宣 
言 し て いま す 。 


Type MEMORYSTATUS 
dwLength As Long 
dvMemoryLoad As Longd 
dwTota1Phys As Long 
dvwAyai1Phys As Long 
dvwTota1PageFi1e As Longd 
dvwAvai1PageFi1e As Long 
dwTo モ a1V1r ェ tua1 As Long 
dw ぺ AYa11V ュ ェ Eua1 As Long 

End Type 


ユー ザー 定義 の デー タ 型 の 名 前 は 、 通 常 の 変数 の 名 前 付き 規則 に 従い ます 。 ま た 、 
各 要 素 の 変数 の デー タ 型 は 、 同 じ 型 で な く て も か まい ませ ん 。 次 の ユー ザー 定義 型 
「MYFRIEND] は 、 い ろ い ろ な デー タ 型 の 変数 を 要素 と し て いま す 。 


Type MYFRTEND 
Name AS St エ ing 
AgeG AS TnEege エ 
PhoneNo AS St エ ing 
B ュ rthDay As Date 
End Type 


ユー ザー 定義 の デー タ 型 は 、 必 ず 「Type」 ステ ー ト メン ト で 始ま り 、「[End Type」 
で 終了 し て くだ さい 。 


この プロ グラ ム は 、 コ マン ド ボ タ ン を クリ ッ ク す る と 、Windows か ら 現 在 の メモ 
リ の 使用 状況 を 把握 し 、 変 数 に 格納 し ます 。 そ こ で 、 コ マン ド ボ タ ン [Memory 
Check] の Click イ ベン ト プ ロ シー ジャ に 、 そ の 処理 を 作成 し ます 。 

まず 、 標 準 モ ジュ ー ル で 定義 し た ユー ザー 定義 の デー タ 型 [IMEMORYSTATUS」 
を 、 コ ー ド で 使用 で きる よう に 、Dim ス テー トメ ント で 変数 と し て 宣言 し ます 。 こ 
の と き に 、 定 義 し た ユー ザー 定義 の デー タ 型 を 指定 し ます 。 こ こ で は 、「Memdata」 
と いう 変数 を 、 定 義 し た 「MEMORYSTATUS」 で 型 指定 し て いま す 。 
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P ェ ivate Sub Command1 C1iok( ) 
Dim Memdata As MEMORYSTATUS 


人 タユ ー ザ ー 定 義 の デー タ 型 で 変数 を 宣言 し た ら 、 こ の 卒 数 を 引 到 に し て 、API 関 数 
「GlobalMemoryStatus] を 実行 し ます 。 


G1oba1Memo ェ yStatus Memdata 


実行 し た 結果 は 、 変 数 [Memdata] の 各 要 素 に 格納 され ます 。 変 数 の 各 要 素 に ア 
クセ モス する に は 、 変 数 名 の 後に 「.] を 付け て 、 ユ ー ザ ー 定 義 の デー タ 型 
「MEMORYSTATUS」 を 定義 し た と き の 、 各 要素 の 変数 名 を 指定 し ます 。 た と え 
ば 、 変 数 |dwTotalPhys」 の 値 を 把握 し た けれ ば 、 


Memdata . dwTota1Phys 


と 記述 し ます 。 こ の 方 法 で 、4 つ の 変数 の 値 も 、 ラ ベル コン トロ ー ル の [Caption] 
プロ パテ ィ に 出力 し ます 。 


With Memdata 
Labe15 (0 ) .Caption = .qdwTota1PEhys 
Labe15 ( 1 ) .Caption = .dwAvai1Phys 
rabe15 ( 2 ) .Caption = .dwTota1PageFi1e 
Labe15 (3 ) .Caption = .dwAvai1PageFi1e 
End With 


「GlobalMemoryStatus」 は 、 ど の デー タ を どの 変数 に 格納 する の か が あら か じ め 
決ま っ て お り 、 そ の 規則 に 合っ た ユー ザー 定義 の デー タ 型 を 宣言 し て お か な けれ ば な り 
ませ ん 。 そ の た め に 、 デ ー タ 型 の 定義 まで も API ビュ ー ア を 使っ て 、API 関数 の 宣言 
で 指定 し た デー タ 型 と 一 致す る デー タ 型 を 定義 し て いま す 。 





人 9 これ で 完成 で す 。 ブ ログ ラム を 起動 し て 、[Memory Check] ボタン を クリ ッ ク す 
る と 、 現 在 の メモ リ の 使用 状況 が 表示 され ます 。 
他 の アプ リケーション を 起動 し た り 終了 し た の ち に 、 プ ログ ラム の [Memory 
Check] ボタ ン を クリ ッ ク す る と 、 値 は 変化 し 常に 最新 の メモ リ 状 況 を 知る こと が 
で きま す 。 


Lesson ら 7 メモ リ チ ェ ッ カ ー の 作 


| (0 と 


ユー ザー 定義 の デー タ 型 「MEMORYSTATUS」 の 、 各 要素 の 役割 は 次 の と お り で 
す 。 





名 称 


dwLength As Long この デー タ 型 の サイ ズ ( 長 整数 型 ) 
dwTotalPhys As Long 物理 メモ リ の 総 バ イト 数 ( 長 整数 型 ) 
dwAvailPhys As Long 使用 可能 な 物理 メモ リ の バイ ト 数 ( 長 整数 型 ) 











dwTotalPageFile As Long ペー ジフ ァイル に 格納 で きる 総 バ イト 数 ( 長 整数 型 ) 
dwAvailPageFile AS Long 使用 可能 な ペー ジフ ァイル 内 の バイ ト 数 ( 長 整数 型 ) 


dwTotalVirtual As Long 呼び 出し も と の プロ セス で 使用 で きる 仮想 メモ リ の 総 
バイ ト 数 ( 長 整数 型 ) 


dwAvailVirtual As Long 使用 可能 な 仮想 メモ リ の バイ ト 数 ( 長 整数 型 ) 

















な お 、「 物 理 メ モリ 」 と は 実際 に コン ピュ ー タ に 取り 付け て いる メモ リ の こと で す 。 
また 、 コ ンピュータ が 使用 で きる 仮想 メモ リ の 量 や 使用 量 を 知る に は 、 
「dwTotalPageFile] と 「dwAvailPageFile」 を 使用 し て くだ さい 。Windows9g8 や 
Windows NT 4.0 で は 、 仮想 メモ リ を 「 ペ ー ジ ング ファ イル 」 と し て 設定 し て いま す 。 
これ ら は 、 コ ント ロー ル パ ネ ル の 「 シ ステ ム 」 アプ レッ ト で 確認 で きま す 。 ま た 、 
Windows85/98 で は 、 仮 想 メ モリ を 自動 設定 に し て いる 場合 は 、 ハ ー ド ディ スク の 


空き 容量 に 依存 し ます 。 
Windows38 の 「 シ ステ ム 
の プロ パテ ィ 」 





軒 人 THWs⑪ 


還 リード ディ スク の 0 1owT726MB の 引 目 
| 太り F ヨ 
| 最 み % 展 術 還 5 ヨコ 


| 
I 
| 昌信 更 玉 7 を ほれ な 0 所 (は 2 の CK だ で し (57 | 


| ーPzer | 
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API 関数 を 使用 する 場合 は 、 引 数 に 定め られ て いる デー タ 型 と 一 致し た デー タ 型 を 
使用 し な いと 、 関 数 の 実行 が 失敗 し ます 。 定 数 や 型 も 、API ビュ ー ア で 調べ る こと が 
で きま すか ら 、 こ の 機能 を 使っ て 定義 を し て くだ さい 。 

定義 し た ユー ザー 定義 の デー タ 型 を 使用 する 場合 は 、 使 用 する コー ド で Dim ステ ー 
トメ ント を 使っ て 変数 宣言 を する 際 に 、 デ ー タ 型 指定 を すれ ば 使用 で きま す 。 複 数 の 
デー タ を 一 元 管理 する 場合 に も 使用 で きま す の で 、 活 用 し て くだ さい 。 


@c》 練習 問題 
上 作成 し た プロ グラ ム に 、「 使 用 済み の メモ リ 量 」 を 表示 する よう に 修正 


し て くだ さい 。 こ の と き 、「40MB」 な ど と 「 メ ガバ イト 」 で 表示 する よ 
うに し て み ま し よう 。 





解答 は 巻末 に 一 












四 ウ トー (Lesson28 ~ Lesson31 ) 


API を 使 つ た アプ リ 
ケー ショ ン の 作成 





これ まで の レッ スン で 、Visual Basic の プロ グラ ム に Win32API を 組み 込む 方 
法 を 紹介 し まし た 。 今 日 の レッ スン で は 、 さ ら に いろ いろ な API を 組み 込ん で 、 
Visual Basic だ け で は 実現 で き を ない アプ リケーション を 作成 し ます 。 


Lesson58 の 「 バ ー ジ ョ ン 情 報 表 示 プ ログ ラム 」 は 、Windows の バー ジョ ン 情 
報 を 表示 し ます 。Lesson ら 9 Lesson30 で は 、 デ スク トッ プ の 壁紙 を 自由 に 
変更 で きる プロ グラ ム を ら つ 作成 し ます 。Lesson3 1 で は 、 指 定 し た ディ スク の 
使用 量 や 空き 容量 を 、 グ ラフ で 表示 する プロ グラ ム を 作成 し ます 。 い ずれ も 、API 
関数 を 呼び 出し て 組み 込ん で いま す 。 
今日 の レッ スン で 解説 する 項目 
品 API 関数 「GetVersionEx」 の 実行 

ロ API 関数 「GetSystemlnfo」 の 実行 

品 ユー ザー 定義 型 変数 の サイ ズ の 取得 

ロ Windows の バー ジョ ン 情 報 の 概要 

API 関数 「SystemParametersInfo」 の 機能 と 使用 方 法 
ロロ デスク トッ プ の 壁紙 の 変更 方 法 

ロロ プロ グラ ム 「 壁 紙 チ ェ ン ジャ ー」 の 作成 

プロ グラ ム を 時 刻 に よっ て 自動 実行 する 方 法 

ロウ ツラ と セク 

品 ドラ イブ の 種類 (タイ プ ) 

ロディ スク 容量 の 把握 

CInt 関数 に よる デー タ の 整数 変換 操作 











































ピ イ ーー バー ジョ ン 情 報 表 示 プ ログ ラム 
HH HH Win38API に は 、 オ ペレ ー テ ィング シス テム の バー ジョ ン に 関す る 情 














報 や コン ピュ ー タ の CPU に 関す る 情報 を 、Windows か ら 取り 出す 関 
数 が あり ます 。 こ の レッ スン で は 、 こ れ ら の 関数 を 使っ た プロ グラ ム を 
作成 し ます 。 


今回 作成 する プロ グラ ム 


な に] 時 mi に Meal 








C っ Gy2822 グ リツ の 
する と 。 
- Windows Versign 一 一 
第 9 日 aa 
1 時 限 目 | バー ション 410 
| BLILD : 67766222 
Windows の バー 


| Wordsws95 ジョ ン 番 号 情報 と .… 


Lessan28.vhp て の か Geesx ェ ーー 
(⑨) VB6CD2 CPI Infarmatign ーーーーーーーーーーーーーーーーーーーー| 


= コバ コ Lesson28 | GPU Type: Pentium,。 1 Pracessar CPU の 種類 と 個 
| 数 が 表示 され る 














「GetVersionEx」 と 「GetSystemlnfo] の ら つ の API 関数 を 使 
用 し て 、Windows の バー ジョ ン と コン ピュ ー タ の CPU に 関す る 情 
報 を 取得 し 、 フ ォ ー ム に 表示 する プロ グラ ム で す 。 ポ イン ト は 、 関 
数 に 渡す 構造 体 (ユー ザー 定義 の デー タ 型 ) の 使い 方 に あり ます 。 
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" 門 コン トロ ー ル と プロ パテ ィ の 設定 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


フォ ー ム の 【[Caption] プロ パテ ィ を 「System 
Information」 に 変更 する 


Form1 Form ェ 






Farm1 

1- 3D 
autoRedraw False 

| 目 &H8000O00F& 


2- 可変 
System Information ューーーー 一 劉 ここ を 変更 
True 


True 


ュ ュ ーー へ な 








ControlBox 


コマ ンド ボタ ンコ ント ロー ル を 配置 し 、[Caption] | < コマ ンド ポタ ン を 
プロ パテ ィ を 「System Information」 に 変更 する ン 配置 する 
コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 
の 「[CommandButton] 時 
争 フレ ー ム コン トロ ー ル を ら つ 配置 し 、 各 コン トロ ー を 使い ます 。 ブ 
ル の [Caption] プロ パテ ィ を 変更 する 

フレ ー ム コン トロ 

ぐー し を 配置 する 


e 5 フレ ー ム コン トロ ー ル を 
Frame 1 Windows Version 配置 する に は 、 ツ ー ル バ 
Frame ら CPU Information レッ ト の [Frame] 還 | を 


使い ます 。 


フレ ー ム コン トロ ー ル [Caption] プロ パテ ィ 











System Information 





| 配置 し て プロ パテ ィ 
| を 変更 し た コマ ンド 
に ーー | | ボタ ンコ ント ロー ル 
| | | | と フレ ー ム コン トロ 
| | ー ル 
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ラベ ルコ ント ロー 
デル を 配置 する 


ラベ ルコ ント ロー ル を 配 

置 す る に は 、 ツ ー ル パレ 
ッ ト の [Labell IA を 使 
93o0wcnem まじ っ 


コン トロ ー ル を 

司る 

プロ パテ ィ の 設定 が 同じ 
コン トロ ー ル を 複数 作成 
する 場合 は 、 コ ント ロー 
ル を 1 つ 作 成 し た ら 、 そ れ 
を コピ ー し て 貼り 付け る 
と 効率 的 に 作業 で きま す 





標準 モジ ュー ル を 
の 舌 入 する 


トゲ ゆ ジェ タダ ト コル エー 
の [標準 モジ ュー ル の 追 
加 ] を 選択 し て 、 標 準 モ 
ジュ ー ル を 挿入 する こと 
も で きま す 。 


[標準 モジ ュー ル の 追加 ] 
ダイ アロ グ ボ ックス が 表 
示さ れる の で 、[ 標 準 モジ 
ーー ル トー アオイ コン を クリ 
ッ ク し て 、[ 開 く ] を クリ 
ッ ク じ ま す 。 











各 フ レー ム 内 に ラベ ルコ ント ロー ル を 配置 し 、 各 ラ 
ベル コン トロール の 次 の プロ バテ ィ を 設定 する 


プロ パテ ィ 
Alignment 
BorderStyle 


プロ パテ ィ の 値 
ら 一 中 央 揃え 
1 一 実線 








Caption (な し ) 


に 3 mml 


配置 し て プロ パテ ィ 
を 設定 し た ラベ ル 
ョ ジ シド 回 上 ルル 























本 了 B oft Visual Basic け サ イッ] 
| アア 人 ⑥ 上 表示 の 2m72 ト ⑥ 者 区 O 2 が の 
| 育 ・ ト 起 4 ここ を クリ ッ ク 


| PS キジ aw ら 
2 コ MDI フォ ー ム セ ルツ 


ご を な グ トッ リク 





の の 和 LO 
較 記 | ュー ザー ヤ ト - ル (U) 
] 

| の 2 

| レ コラ ' フー サリ テー ドキ テー ュ ア プ N( 
| 還 ョ ”DHTML Paee 

| Data Report 

| 9 WebCsss 


2 
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API ビュ ー ア を 起動 し 、 次 の 関数 と 型 を コピ ー し 、 標 
準 モ ジュ ー ル に 貼り 付け る 


GetVersionEx 


GetSystemlnfo 


OSVERSIONINFO 
SYSTEM_INFO 








川 BE 
| 有効 な 項目 


中 SYSTEM_ALARM_ACE 
中 SYSTEM_AUDIT_ACE 


[有効 な 項目 ] 
ISYSTEM POWER_STATI を 選択 し 、[ 追 
過 STEwmwE 加 ] を クリ ッ ク 


t 
TEXTMETRIG 
| HIME_ZONE_INFORMATION 


Public Declare Function GetVersionEx Lib "kernel32" 
Alias "GetVersionExA" (lpVersionjnformation As 
SVERSIONINFO) As Long 


中 Public Declare Sub GetSysteminfo Lib "kernel32" Alias 
「 GetSysteminfo" (jpSysteminfo As SYSTEM INFO) 


Public Type OSVERSIONINFO 
dwOSVersionjnfoSize as Lone 





dwMajorVersion As Long 
dwMinorVersion As Long 


記 | 


| リス ト 本 祖 ス 内 ご 誤 入力 し た 文字 で 検索 され ます - | 











| Pub11C Dec1a エ @e FuncC モ 1on GeVerSionExx Lib "kerne132" 
| A1ias "GetVersionEzxkA" 


( 1pVersion エ nEo ェ mation AS OSVERSTONTNFO) As Long 


| 
1 
| 
| 
| Pype OSVERST エ ONTNFO 

| dwOSVersionTnFoS1ze AS Long 
| dwMajorVersion As Longd 

| dwMinorVersiton AS Long 

| dwBui1qdNumber As Longd 


第 9 日 











1 時 限 目 API を 使っ た アプ リケーション の 作成 


AP| ビュ ー ア を な を 起 
の 委 す る 


API ビ ュー ア を 起動 する 
に は 、 タ スク パー の [ ス 
ター ト ] ボタ ンー [プロ 
グラ ム ] 一 [Microsoft 
Visual Basic 6.0] 一 
[Microsoft Visual Basic 
6.0 Tools] 一 [API ビュ 
ー ア ] を 選択 し ます 。 


API の コー ド を 
ぐ の コピー す る 


API の コー ド を 標準 モジ 
ュー ル に コピ ー す る 詳し 
い 方 法 に つい て は 、 
「Lesson 26 APT ビ ュー ア を 
使う ] を 参照 し て くだ さき 


い 。 















dwyP1at モ ormTrd As _Long B 
| SzCSDVersion As String * 128 
End mype | 
] 
Pub1ic Dec1are Sub GetSystem エ nFo Lib "kerne132" 
(1pSyjstem エ nfFo As SYSTEM TNFO ) 


Type SYSTEM TNFO 

dwOemTD As Long 

dvwPageSize As Long 
1pM1nimumApp11Ca ュ onAdqdress As Long 
1pMaxx1mumApp11Ca モ ュ ionAddress As Long 
dwAciveProoessorMask As Long 
dwNumbperO ェ FEProocessors As Long 
dwProcessorType As Long 
dwA11ooCa 上 onG ェ amu1a ェ ュ ty As Long 
dwReserved As Long 








End Type 








Form1:Command1-Click 時に とう 」 
RS 













Private Sub Command1 C1iock( ) 
Dim Msg1 AS String, Msg2 As St ェ ing 
Dim TnfFo(2) As String 
Dim SysTnFo As SYSTEM TNFO 
Dim VTnFo As OSVERSTONTNFO 


V エ nfFo .dwOSVersionTnfFoSize = Len(VTnFo) 
GetVersionExx VTnFo 
With TnFo 
Msg1 = "バー ジョ ン " g .qwwajorVersion &g "." 
| を .dwMinmnorVer51on 
| Labe11(0) .Caption = Msg1 
| Labe11(1) .Caption = "BUTLD : " & .dwBui1qdNumber 
Se1ect Case .dwP1atEorm エ qd 
Case 0 
Msg2 = "Win32s on Windows3 .1" 
Case 1 
エ F .dvwMinorVersion > 0O Then 
Msg2 = "Windows98" 





E1se 
Msg2 = "Windows95" | 

End エモ 
Case 2 | 
Msg2 = "WindowsNT" | 
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End Se1eo 

Labe1 1 (2 ) .Caption = Msg2 

Labe1 1 ( 3 ) .Cap モ ion = .szCSDVe ェ sion 
End With 


Get 上 System エ TnFo Sys エ TnFo 


With SysTnEo 
エ nFo(0) = -.dwNumbperO エ EP エ OCGSSOrS を " PFOCGSSO エ " 
Se1eoct Case Sys エ nFo.dwProcessorTyDpe 
Case 586 
エ nFo(1) = "Pentium" 
End Se1eo 


エ nFo(2) = "CPU Type: " & エ nEo(1) & ",。 " を エ nEo(0) 
Labe11 (4 ) .Caption = TnFo(2) 
End With 
End Sub 








上 API 関 数 「GetVersionEx| は 、Windows の バー ジョ ン 番 号 と Windows の 種類 
(NT、95、98 な ど ) を 取得 する 関数 で す 。 
引数 に 設定 し た 構造 体 「OSVERSIONINFO」 を 指定 し て 実行 する と 、 こ こ に いく 
つか の 情報 を 格納 し ます 。 


Pub11c Dec1are Function GetVersionEx エ Lib "kerne132" 
A1ias "GetVersionExxA" 
( 1pVersion エ TnEormation AS OSVERSTONTNFO) As Long 


構造 体 「O0SVERSIONINFO」 は 、Visual Basic で は 次 の よう な ユー ザー 定義 の デ 
ー タ 型 と し て 再 定 義 し て 使用 し ます 。 


Type OSVERSTONTNFO 
dwOSVersion エ nfFoSize As Long 
dvwMajorVersion As TLong 
dwMinorVersion As TLond 
dwBui1qdNumber As Long 
QdvwP1atEormTqd As Longd 
BZCSDVerS1on AS String * 128 

End Type 
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dwOSVersionlInfoSize 


「O0SVERSIONINFO」 が 使用 する バイ ト サ イ ズ を 設定 し 
ます 。 こ の パラ メー タ は 、「GetVersionEx」 を 呼び 出す 
前 に 設定 し て お く 必 要 が あり ます 。 





dwMajorVersion 


Windows の メジ ャ ー バ ー ジ ョ ン 番 号 を 格納 し ます 。 





dwMinorVersion 


Windows の マイ ナー 番号 (メジ ャ ー バ ー ジ ョ ン の 次 の 
番号 ) を 格納 し ます 。 





dwBuildNumber 


ビル ドナ ン バ ー を 格納 し ます 。WindowsNT4.0 で は バ 
ー ジ ョ ン 番 号 の 次 に リビジョン を 表す 番号 と し て 使わ れ 
て いま す 。 





dwPlatformld 


Windows の 種類 を 格納 し ます 。 
値 種類 


Win32s on Windows 3.1 
Win32 on Windows 95、Windows98 
Windows NT 





szCSDVersion 


上 記 項 目 以外 の 、Windows に 関す る イン フォ メー ショ ン 
が 格納 され ます 。 こ の 変数 だ け 、128 バイ ト の 固定 長 の 
文字 列 型 が 与え られ て いま す 。WindowsNT4.0 な ど で は 、 
ServicePack を イン スト ー ル し て いる と 、 こ こ に その 情 
報 が 格納 され ます 。 





う API 関 数 「GetSystemInfo] は 、 コ ンピュータ に 組み 込ま れ て いる CPU に 関す る 
情報 を 取得 する 関数 で す 。 引 数 に 、 構 造 体 [SYSTEM_INFO」 を 指定 し て 実行 する 
と 、 い くつ か の 情報 を この 構造 体 に 格納 し ます 。 


Pub1ic Dec1are Sub GetSystemTnEo Lib "kerne132" 
(1pSystemTnFo As SYSTEM TNFO) 


構造 体 [SYSTEM_INFO] は 、Visual Basic で は 次 の よう な ユー ザー 定義 の デー 


タ 型 に な り ま す 。 


Type SYSTEM TNFO 


dwOemTD As Long 

dwPageSize As Long 
1pMinimumApp1ioationAqddress As Long 
1pMaxx3mumApp11oationAqdqdress As Long 
dwActiveProcessorMask As Long 
dwNumbperO ェ FEProoessor5 ABS Long 
dwProoessorType As Long 
dwA11oCa モ ュ ionG ェ anu1a エ ュ モ ty As Long 
dwReserved As Long 


End Type 
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パラ メー タ | 
製造 会 社 (OEM) ご と の 識別 が 格納 され ます 。 


シス テム の ペー ジ サ イズ を 栓 弧 し ます 。 

IpMinimumApplicationAddresS | アプ リケーション と DLL の 最小 メモ リア ドレ ス が 
格納 され ます 。 

IpMaximumApplicationAddresSs | アプ リケーション と DLL の 最大 メモ リア ドレ ス が 
格納 され ます 。 


dwActiveProcesSorMask プロ セッ サ の コン フィ ギュ レー ショ ン が 格納 され ま 
す 。 


dwNumberOrfProcessors 組み 込ま れ て いる CPU の 数 が 格納 され ます 。 


dwProcesSsorTyDe CPU の タイ プ ブ が 格納 され ます 。Windows95/98 
で は 、「INTEL_386」「INTEL_486」 
「INTEL_PENTIUM」 が 、WindowsNT4.0 で は 
「INTEL_386」「INTEL_486] 
「INTEL_PENTIUM」「ALPHA_21046」 が 格納 
され ます 。 


dwAllocationGranularity メモ リ の 割り 当て 単位 が 格納 され ます 。 
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宙 この プロ グラ ム で は 、 こ れ ら の API 関 数 を 使っ て 、Windows と CPU の 情報 を 取 
得 し ます 。 プ ログ ラム の 処理 は 、 フ ォ ー ム に 配置 し た [System Information] ボタ 
ン の Click イ ベン ト プ ロ シー ジャ で 行い ます 。 
まず 、 ラ ベル コン トロ ー ル に 表示 する メッ セー ジ を 格納 する た め の 変 数 を 2 つ 宣 
言 し ます 。 変 数 「Info] は 、 同 じ よ うな 変数 を いく つも 宣言 する の が 面倒 な の で 、3 
つの 要素 を 持つ 配列 で 宣言 し て いま す 。 
























E ェ ivyate Sub Command1 C1iocK( ) 
Dim Msg1 AS String, Msg2 AS St エ ュ ing 
Dim TnEo(2) As String 


そし て 、 再 定義 し た ユー ザー 定義 の デー タ 型 を 、 変 数 に 割り 当て て 使用 で きる よ 
うに し て いま す 。 


Dim SysTnFo As SYSTEM TNFO 
Dim VTnFo As OSVERSTONTNFO 


衝 。 火 に 、「GetVersionEx」 関数 を 実行 し ます が 、 そ の 前 に ユー ザー 定義 型 変数 
「VInfo」 の 要素 の 1 つ 、「dwOSVersionInfoSize」 に この 変数 が 使用 する 総 バ イト 数 
を 設定 し ます 。 
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Len 関数 に 変数 名 を 設定 し て 実行 すれ ば 、 そ の 変数 が 消費 する メモ リサ イズ が す 
ぐに 算出 で きま す の で 、 こ れ を 「qdwOSVersionInfoSize」 に 代入 し ます 。 


TnfFo . dwOSVersion エ TnEoS1ze = Len(VTnFo) 


そし て 、「GetVersionEx| 関数 を 実行 し ます 。 


GetVersionExx VTnFo 


人 [cetVersionEx」 関数 が 実行 きれ る と 、 ユ ー ザ ー 定 義 弄 変数 「VInfo」 の 各 要 素 に 
情報 が 格納 され ます の で 、 こ れ ら を 取り 出し て ラベ ルコ ント ロー ル に 出力 し ます 。 
まず 、 メ ジャ ー と マイ ナー の 番号 を 組み 合わ せ て 、 バ ー ジ ョ ン 番 号 を 作成 し 、 最 
初 の ラベ ルコ ント ロー ル (Label1(0)) に 設定 し ます 。 


With VTnFo 
Msg1 = "バー ジョ ン " g .qwMajorversion g "mg 
・dwMinorVersion 
abe11 ( 0 ) .Caption = Msg1 
次 に 、「wBuildNumber]」 か ら ビ ルド ナン バー を 取り 出し て 、 ラ ベル コン トロ ー ル 
(Label1(1)) に 設定 し ます 。 


tabe11 (1 ) .Caption = "BUTLD : " を .dwBui1qdNumber 
⑩ 。 今 放 ほ は 、「dwPlatformTd」 の 値 を 使っ て 、 ど の Windows な の か を 表示 し ます 。 


Select Case ス テー トメ ント で 、 値 を 使っ て 振り 分 け ま す 。 値 と それ ぞ れ の 
Windows の 種類 は 、 以 下 の と お り で す 。 


Win32s on Windows 3.1 


Win32 on Windows 95/Windows 98 
Windows NT 





この 値 を 元 に 、 文 字 列 を 作成 し て ラベ ルコ ント ロー ル (Label1(②) に 設定 し ます 。 
この と き 、 使用 し て いる コン ピュ ー タ の OS が Windows95/98 の 場合 は 、 いずれ も 
「dwPlatformld] に は 「1| が 返さ れ ま す 。 し か し 、Windows95 で は 
「dwMinorVersion] に 「0] が 、Windows98 で は 「1| が 返さ れ ま す の で 、 こ の 値 を 
使っ て Windows95 と 98 を 区 別 し ま す 。 
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Se1eoct Case -.dwP1a 上 Eo ェ m エ dQ 
Case 0 
Msg2 = "Win32s on Windows3.1 " 
Case 1 
エ E .dwMinorVersion > 0O Then 
Msg2 = "Windows98" 
E1se 
Msg2 = "Windows95" 
End エモ 
Case 2 
Msg2 = "WindowsNT" 
End Se1eo 
TLabe1 1 (2) .Caption = Msg2 


最後 に 、「szCSDVersion| の 値 を 取り 出し て 、 ラ ベル コン トロ ー ル (Label1(3)) 
に 設定 すれ ば 、 バ ー ジ ョ ン 関 係 の 情報 に 対す る 処理 は 終了 で す 。 


Labe1 1 ( 3 ) .Cap モ ion = .szCSDVers1on 





箇 。System Information 





市 時 | | 取り 申し た パー ジョ ン 
番号 情報 (Windows98 
の 場合 ) 












| _ CPUjnformation 一 ーーーーーーーーーーーーーーー」 | 





者 馬 ワン ポイ ント アド バイ ス 


「szCSDVersion]」 は 、 イ ンス トー ル し て いる Windows に よっ て は 、 意 味 の な い 
デー タ に な っ た り 、 表 示さ れ な い 場 合 が あり ます 。 
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ソノ 焼い て 、「GetSystemnfo] 関数 を 実行 し ます 。 こ の 関数 は 、 引 数 に ユー ザー 定義 
型 変数 を 設定 し て 実行 する だ け で す 。 


GetSystem エ TnFo SysTnFo 


実行 後に 変数 に 格納 され た 各 値 を 取り 出し て 加工 し ます 。「dwNumberOrf 
Processors] は 、 組 み 込ま れ て いる CPU の 数 を 格納 し て いま す の で 、 こ れ で 個数 を 
表示 し ます 。 


With SysTnfFo 
エ nEo(0) = .dwNumberOrEProocessorS & " Prooes8o エ " 


また 、「dwProcessorType」 は CPU の タイ プ を 格納 し て いる 変数 で す 。CPU が 
「Pentium| の 場合 は 、「586] と いう 値 を 返し て きま すか ら 、[「Pentium」 と いう 文 
字 に 置き 換え ます 。 

そし て 、 こ れ ら を 連結 し て 、 ラ ベル コン トロ ー ル に 設定 し ます 。 


Se1ec Case SysTnfFo .dvProcessormype 
Case 586 
エ nFo(1) = "Pen モ iumr 
End Se1eo 


Tnfo(2) = "CPU mype: " & TnEo(1) を ", " & TnFEo(0) 
Labe11 (4 ) .Caption = TnFEo(2) 





CPU の 種類 と 個数 を 表示 
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ら つの 情報 取得 の API 関数 を 使用 し まし た 。 関 数 に よっ て は 、 引 数 の 構造 体 の 使い 
方 が API ビュ ー ア の 情報 と 異な る 場合 が ある の で 、API リフ ァ レ ンス を よく 読ん で 使 
用 する よう に し て くだ さい 。 

Windows の バー ジョ ン 情 報 な ど は 、 筆 者 は Windows98 と WindowsNT4.0 の 両 
方 を 使用 し て いま す の で 、 両 方 の 動作 確認 が で きま す が 、CPU タイ プ な ど は 
Pentium し か 持っ て いな い の で 、 な か な か で きま せん 。 広く 配布 する プロ グラ ム の 場 
合 は 、 可 能 な 限り 多く の 機種 で 動作 確認 を 行っ て か ら 、 リ リー ス す る よう に し た いで 
すね 。 


@c》 ぁ 練習 問題 
O1 これ まで 作成 し た 、「 コ ンピュータ 名 の 取得 」 プ ログ ラム と 、「 メ モリ 


の 状況 ]」 プロ グラ ム を 組み 合わ せ て 、 総 合 的 な 情報 提供 プロ グラ ム を 作 
成 し て くだ さい 。 


人 | | 完 導 し た フロ グラ ム 


絶 物理 メモ リ 量 : 133MB 
使用 可能 メモ リ 量 : 40MB 
絶 仮 想 メ モリ 量 : 471MB 
利用 可能 な 仮想 メモ リ 量 : 411MB 
Windows98 
バー ジョ ン 410 
_BUILD : 67766408 
CPU Type: Pentium、1 Pracessor 





解答 は 巻末 に 一 
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壁紙 チェ ンジ ャ ー の 作成 

Visual Basic が 標準 で 装備 し て いる コン トロ ー ル や メソ ッ ド 、 関 数 な 
ど で 操 作 で き な い も の の 1 つ に 、 Windows の デス クト ッ プ が あり ます 。 
た と えば 、 デ スク トッ プ の 壁紙 を 変え る プロ グラ ム な ど は 、Visual 
Basic だ け で は 作成 で きま せん 。 そ こ で 、Win32API を 使っ て 、 簡 単 
に 壁紙 を 変え られ る プロ グラ ム を 作成 する こと に し まし た 。 こ の プロ グ 
ラム は 、 コ モン ダイ アロ グ ボ ックス を 使っ て 選択 し た ビッ トマ ッ プ ファ 
イル を 、 フ ォ ー ム に 表示 する と と も に 、 デ スク トッ プ の 壁紙 と し て 設 























し ます 。 
今回 作成 する プロ グラ ム 
第 9 日 
ら 時限 目 
=I ロ | | 
壁紙 ファ イル を 
選択 し .… 
La Lesson29.vhp と と を クタ リッ ク 
ZS する と .… 
(⑤) VB6CD2 3 
ヨコ Lesson29 ーーーー 
豆 紙 の 削除 | 終了 | 
デス クト ッ プ に 


壁紙 が 設定 され る 


Dew 


API 関数 「SystemParametersInfo] は 、 デ スク トッ プ を 構成 す 
る 加 部 の 情報 を 取得 、 設 定 する 関数 で す 。 こ の 関数 を 使う と 、 デ ス 
クト ッ プ の 壁紙 を 入れ 替え る こと が で きま す 。 

壁紙 用 の ビッ トマ ッ プ の 選択 に は コモ ンダ イア ログ ボッ クス の 
[ファ イル を 開く ] ダイ アロ グ ボ ックス を 使用 し ます 。 
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Lesson 29 壁紙 チェ ンジ ャ ー の 作成 


伯 コン トロ ー ル と プロ バ パティ の 設定 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


フォ ー ム を 広げ 、[Caption] プロ パテ ィ を 「 壁 紙 チ 
ェ ン ジャ ー」 に 変更 する 


7 が ティ ーForml 。 










Form1 Form = 
全体 | 項 上 重 | 
| は 5 外 名 ) Form = 
貞 ppearanCe 1 - 3D 






autoRedraw False 
国 8H8n0000nF& 
2 - 可変 


WE デン ャ ーー 還 旧 ここ を gm 


True | 
13 - Copy Pen | 
0 - 実線 (中 心 線 ) 
1 


| 


ツー ル パ レ ッ ト に 「Microsoft Common Dialog 
Control 6.0」 コン トロ ー ル を 追加 する 


重 @ こ 
回 販 臣 





ツー ル パ レ ッ ト に 追加 
され た コン トロ ー ル 









iammonDialog| 


フレ ー ム コン トロ ー ル を ら つ 配置 し 、 各 コン トロ ー 
ル の [Caption] プロ パテ ィ を 変更 する 


コン トロ ー ル 
Frame 1 


[Caption] プロ パテ ィ の 値 
壁紙 の 設定 





Frame ら 





(な し ) 





コン ポー ネン ト を 
ペン 追加 する 
コン ポー ネン ト を 追加 す 
る 方 法 た . つ いふ て は 、 
「Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 


ルレ ーー が だ 妥 用 民 回 
プール を 配置 する 
フレ ー ム コン トロ ー ル を 
配置 する に は 、 ツ ー ル パ 
レッ ト の [Frame] を 
使い ます 。 聞 
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コマ ンド ボタ ン を 
記 置 す る 

コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 
の [CommandButton] 還 寺 
を 使い ます 。 


ラベ ルコ ント ロー 
ダル を 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Label] 次 | を 使 
いま す 。 ーー 
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コマ ンド ボタ ン を フレ ー ム 内 に ら つ 、 外 に ら つ 配置 
し 、 プ ロ パ ティ と オブ ジェ クト 名 を 変更 する 













コン トロ ー ル 
Command 1 





オブ ジェ クト 名 
SelBtn 







[Caption] プロ バ パティ 
壁紙 の 選択 
















Command ら | SetBtn 設定 
Command3 | DelBtn 壁紙 の 削除 
Command4 ExitBtn 






配置 し て プロパ ティ 
を 変更 し た コマ ンド 


ボタ ンコ ント ロー ル 
ど ヲ プレ が 還 ド 回 
ル 








ラベ ルコ ント ロー ル を フレ ー ム 内 に 配置 し 、 次 の プ 
ロ パ ティ を 設定 する 


プロ パテ ィ 
BorderStyle 





Caption 





配置 し て プロ パテ ィ 





を 設定 し た ラベ ル 
コン トロ ー ル 











イメ ー ジ コン トロ ー ル を 内 側 の フレ ー ム に 配置 し 
設定 する 


[Strech] プロ パテ ィ を 「True」 に 





Visual Basic 










開 量 a フォ ー ム モ が 5 
| SE を . MDI フォ ー ム モ ーー 


了 の 本 ティ 2 


トク 


レ 


API ピュ ョ ュー 


「WIN32API.MDB」 を 読み 込む 












ヌキ メト ファ fM の 読み 込み (① 
や 0 軸 ル OD 読 み 込み (D). 


CIS 


APIE ュ ー7 の 続 了 0⑳⑲ 


第 日 ら 時 限 目 API を 使っ た アプ リケーション の 作成 


TSMRTPT EET 
C\Program PieoPPtoso Visual SHCYCommomWTCOENNPSDWMWGOSD 
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メニ ジ ロジ トロ 
< プル を 配置 する 


イメ ー ジ コン トロ ー ル を 
配置 する に は 、 イイ 
レッ ト の [Image] 賠 を 


使い ます 。 










配置 し て プ ロ パ ティ 
を 設定 し た イメ ー ジ 
ヨ ジ 回 一 ル 


/ 和 入 する 
[プロ ジェ クト ] メニ ュー 
肖 娘 の [標準 モジ ュー ル の 追 
加 ] を 選択 し て 、 標 準 モ 
ジュ ー ル を 挿入 する こと 
CS2022 グ 5 ツジ も で きま す 


[標準 モジ ュー ル の 追加 ] 
ダイ アロ グ ボ ックス が 表 
示さ れる の で 、[ 標 準 モジ 
ュー ル ] アイ コン を クリ 
ッ ク し て 、[ 開 く ] を クリ 
ッ ク し ます 


加 志 だ 多 り 必 多 


ア を 起動 し 、 デ ー タ ベー ス フ ァ イル < 2 ロビ ュー ア を 起 


動 す る 


API ビ ュー ア を 起動 する 
に は 、 タ スク バー の 「[ ス 
ター ト ] ボタ ン 一 [プロ 
グラ ム ] 一 [Microsoft 
Visual Basic 6.0] 
[Microsoft Visual Basic 
6.0 Tools] 一 [API ビュ ー 
ア ] を 選択 し ます 。 


ご ご な を クリック 
ご ご を クリ ッ ク 


し た ファ イ 


ーー 



























最近 使 


ル は [ファ イル ] メ 


ニュ ー の 中 に リス ト 
アッ プ さ れ て いる 








う 79 





API| の コー ド を 
< コピ ー す る 


API の コー ド を 標準 モジ 
エー テル だ コピー まる 詳 や 
ぃ 方 法 に つい て は 、 
[Lesson 26 API ビ ュー ア を 
使う ] を 参照 し て くだ さ 
い 。 






上 Elic Decle Function SystemParametersinfo し 
肝 cmr32" Alias "SystemPaametersinfoA" (ByVal uAction 








関数 と 定数 を コピ ー し 、Visual Basic に 戻っ て 標準 
モジ ュー ル に 貼り 付け る 


SystemParameterslnfo 


SPI_SETDESKWALLPAPER 
SPIF_UPDATEINIFILE 








ここ で [関数 ] 、 
[定数 ] を 選択 
[有効 な 項目 ] 


を 選択 し 、[ 追 
加 ] を クリ ッ ク 










Lone. ByVal uParam As Lone. ByRef pyParam As Amy 
uWnini As Lone) As Lone 7 むい | 
IPublic Const SPLSETDESKWALLPAPER = 20 | 
| ーー 
功 詳 gm ヨゴ ーー 匠 外 に に を クリ ッ ク 


Public Const SPIF_UPDATEINIFILE = &H1 


ヨ 





Public Declare Function SystemParameterslnfo Lib “user32* Alias “ 
Public Const SPI_SETDESKWALLPAPER = 20 
Public Const SPIF_UPDATEINIFILE = &H1 








』 ツー ル パ バレ ッ ト の [CommonDialog] 団 を 使 
っ て 、 コ モン ダイ アロ グ コ ント ロー ル を 配置 する 
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上 上 [プロ パテ ィ ペ ー ジ ] の [開く / 保 存 ] タブ で 、 次 
の 項目 を 設定 し 、[OK] ボタ ン を クリ ッ ク す る 


タイ トル 壁紙 の 選択 





初期 ディ レク トリ C:\ 
ビッ トマ ッ プ ファ イル 3! *.bmp 








| 聞 / 人 | 色 17 ト | 印 馴 | 7 | | 
| NM 
| 
| 








アカ 仙 名 び : 


ツン Me の 


1 ク 2 [設定 】 ボタ ン の [Enabled] プロ パテ ィ を 
「False」 に 設定 する 













ここ を クリ ッ ク 


(な し ) っ | 
の い ) 全 と を 多 リ ツク グ 
n- 手動 | 


Falsel 
alse 「 ここ を クリ ッ ク 


| 24n | 
MMeskColor 園 &HOOCOCOCC | 








居 / 回 テ ネ ペ 三 
ぐ プ 涼 タイ アロ ク 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し 、 プロ パテ ィ ウ イィ 
ンド ウ の 「[( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [..] ボタ ン を クリ ッ 
ク し まみ 。 
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ー ド の 記述 

















Module1:(General)-(Declarations) 





Module1 ロー ド ) 


(General) | |(Declarations) 





| A1ias "SystemParametersTnEFoA" (ByVa1 uAotion As Long, 
| ByVa1 uParam AS Long, ByVa1 1pvParam AS An ロマ ,/ | 
| ByVa1 EuWinTni As Long) As Long | 

I 


| Pub1io Dec1are Func ュ on SystemParame も eS エ TnFO Li ュ b wuser32" 。 | 


Pub1io Congs SPT SETDESKWALLPAPER = 20 
| Pujb13o Con8 SPTEF_UPDAT 正 エ N エ TFTLEE = &H1 





Form1: 1.(Generl- -(Declarations) 






<| [Declarations) ェ 






Dim Fname As 人 


SS 








Form1: SelBtn- Click 













[SelBm _ 選 MICick - 装置 
. Private Sub Se1Btn C1iock( ) 
With CommonDia1og1 


エ E Fname = "の Then 


下 x1 七 Sub 
End TE 
| エ mage1 .P1 で Cu エ て Ge = LoadP1C モ ure (Fname ) 
| SetBtn .Enab1ed = True 
| Labe11 .Caption = Fname 


End Sub 
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邊 Form1:SetBtn-Click 








P ェ ivate Sub Set 上 BEn C1iok( ) 
Dim Ret As Longd 


Re = SystemParametersTnFo(SPT SETDESKWALLPAPER, 0, 
| Fname, SPTEF UPDAT 下 NTF エ LE ) 


エ F Ret = ra1se Then 

| wsgBox "壁紙 の 設定 に 失敗 し まし た 
| End エモ 

| ma Sub 


romtiEqtmrClet_ 














II) 





| P エ ュ で ate Sub 互 x ふ 上 BEn C11oCk( ) 
Un1oad Me 


Formt: DelBtn- Click 





Private Sub De1Btn_C1iok() 5 | 
| Dim Ret As Long 

| 

| Re = SystemParameterSTnFo(SPT SETDESKWALTLJPAPER, 0, 
| "mn。 SPTF_ UPDATETNTF エ LE ) 


エ E Re = Fa1se Then 


mMsgBoxx "壁紙 の 設定 に 失敗 し まし た 。 
End エモ 


| End Sub 
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(に 


API ビュ ー ワ を 使用 し て 、API 関数 「SystemParametersInfo」 の 定義 を その まま 
標準 モジ ュー ル に コピ ー す る と 、 プ ログ ラム は 正常 に 動作 し ませ ん 。 こ れ は 、 関 数 の 定 
義 の 記述 に 間違い が ある た めで す 。 

API 関数 「SystemParametersInfo] の 引数 の ひと つ 「ByRef IpvParam As Any」 
の 記述 を 、「ByVal IpvParam As Any」 に 修正 し て くだ さい 。 


























【 修 正 前 】 

Pub1ic Dec1are Funotion SysEemParameters エ TnFo エエ ュ も "user32" 
A1ias "SystemParametersTnFoA" (ByVa1 uAotion As Long, 
ByVa1 uParam AS Lond, 

ByReF 1pvParam Ag Any, 一 この 部 分 が 記述 間違い 
ByVa1 FuWinTni As Long) As Long 


【 修 正 後 】 

Pub11o Deoc1are Funmoion SysemParame も ersTnFo エ Lib "user32" 
A1ias "SystemParametersTnEoA" (ByVa1 uAotion As Long, 
ByVa1 uParam As Lond, 

ByVa1 1pvParam As Any, 一 ByReE を syva1 に 修正 する 
ByVa1 FuWinTni As Long) As Long 


上 API 関 数 「SystemParametersInfo] は 、 デ スク トッ プ に 関す る 大 変 多 く の 項 目 を 
設定 する こと が で きる 関数 で す (巻末 の 付録 [SystemParametersInfo に つい て | を 
参照 )。 こ の API 関数 は 、4 つ の 引数 を 持ち ます 。 

主 に 「uAction] に 、 操 作 し た い 内 容 を 定数 で 設定 し 、 実 行 し ます 。 た と えば 、 
定数 「SPI_GETBEEP」 を 設定 し て 関数 を 実行 する と 、 コ ンピュータ の ビー ブ プ 音 の 
設定 が オン に な っ て いれ ば 、「lpvParam」 に 「True」 を 返し て きま す 。 

一 方 、 定 数 「SPI_SETBEEP| を 「uAction| に 設定 し 、「uParam」 に 「False」 
を 設定 し て 関数 を 実行 する と 、 コ ンピュータ の ビー プ 音 を オフ に し ます 。 

この よう に 、「Get| が 付く 定数 は 設定 値 の 取得 を 、「Set」 が 付く 定数 は 設定 を 行 
う 定 数 に な っ て いま す 。 こ れ ら の 定数 を 、 引 数 「uAction」 に 設定 し て 関数 を 実行 
する こと で 、 デ スク トッ プ の 情報 の 取得 ・ 設 定 を 行い ます 。 
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Dec1a エ e Fun ご 1on SyBtemParame も eS エ TnEo 1D "user32" 
A1ias "SystemParametersTnFEoA" (ByVa1 uAotion AS Long, 
ByVa1 uParam AS Long, ByVa1 1pvParam AS AnY, 
ByVa1 FEuWin エ ni As Long) As Long 


[「uAction| の 定数 値 「SPI_SETDESKWALLPAPER] は 、 も う 1 つ の 引数 
「lpvParam] に 、 ビ ッ ト マ ッ プ ファ イル の ファ イル 名 を フル パス で 設定 する と 、 そ 
の ファ イル を 避 紙 に 設定 し ます 。 そ し て 、 最 後 の 引 数 「fuWinIni] に 、 定 数 
[SPIEF_UPDATEINIFILE」 を 設定 する と 、Windows の 壁紙 設定 を レジ スト リ に 保 
存 し ます (引数 「uParam」 は 使用 し ませ ん の で 、「0」 を 設定 し ます ) 。 こ の 2 つの 
定数 を 使用 する 場合 は 、 こ れ ら も 標準 モジ ュー ル で 再 定義 し て お く 必 要 が あり ます 。 


Pub11o Cons SP エ SETDESKWALLPAPER = 20 
Pub11cC Cons SPTF_ UPDATETNTFTLE = &H1 


有 つろ 。 この プロ グラ ム は 、 コ モン ダイ アロ グ コ ント ロー ル の [ファ イル を 開く ] ダイ ア 
ログ ボッ クス と 組み 合わ せ て 、 選 択 し た ビッ トマ ッ プ ファ イル を 於 紙 に 設定 し ます 。 


① [ 璧 紙 の 選択 ] ボタ ン を クリ ッ ク す る と 、[ フ ァイル を 開く ] ダイ アロ グ ボ ックス 
が 表示 きれ ます 。 ダ イア ログ ボッ クス は 、 拡 張子 が 「bmp] の ファ イル だ け 表 示 
きれ る よう に 設定 し て あり ます 。 


紀 だ けが 表示 され る よう 
に 設定 





② ユ ー ザ ー が ビッ トマ ッ プ ファ イル を 選び ダイ アロ グ ボ ックス を 閉じ る と 、 ラ ベル 
コン トロ ー ル に その ファ イル 名 を フル パス で 表示 し ます 。 そ れ と 同時 に 、 イ メー 
ジコ ント ロー ル に その 画像 を 表示 し ます 。 し か し 、 こ の 時 点 で は まだ 壁紙 は 変更 
し ませ ん 。 
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③ [設定 ] ボタ ン を クリ ッ ク す る と 、 選 ん だ ファ イル を 壁紙 に 設定 し ます 。 こ こ で 
は じ め て 、API 関 数 [SystemParametersInfo」 が 実行 ミ きれ ます 。 












選択 し た ファ イル の 
フル パス こと 画像 が 表 
示さ れる 


記 選 を 多 ゆ ッッ ク 
する と .… 


壁紙 が 設定 され る 










(④「 民 紙 の 削除 ] ボタ ン を クリ ッ ク す る と 、 フ ァイル 名 を 指定 せ ず に (空白 の まま ) 
API 関 数 「SystemParametersInfo」 を 実行 し ます 。 フ ァイル 名 を 指定 し て いま せ 
ん の で 、 於 紙 は デス クト ッ プ か ら 消 去 さ れ ま す 。 


で は 、 コ ー ド を 作成 し まし ょ う 。 最初 に 、 ビ ッ ト マ ッ プ ファ イル の ファ イル 名 を 
格納 する 変数 「Fname] を 、 モ ジュ ー ル レベ ル の 変数 で 宣言 し て お きま す 。 


Dim Fname AS String 


次 に 、[ 璧 紙 の 選択 ] ボタ ン が クリ ッ ク さ れ た と き の 処 理 を 作成 し ます 。 こ の ボタ 
ン は 、 ビ ッ ト マ ッ プ ファ イル を 選択 する 処理 を 行い ます 。 ま ず 、 コ モン ダイ アロ グ 
コン トロ ー ル の 「ShowOpen] メソ ッ ド を 実行 し て 、[ フ ァイル を 開く ] ダイ アロ グ 
ボッ クス を 表示 し ます 。 そ し て 、[filename] プロ パテ ィ か ら 、 ユ ー ザ ー が 選択 し た 
ファ イル 名 を 取得 し 、 変 数 「Fname」 に 格納 し て お きま す 。 


Private Sub Se1Btn C1iok( ) 
With CommonDia1og1 
・ShowOpen 

Fname = .Fi1ename 
End With 
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そし て 、 も し ファ イル 名 が 空白 で あれ ば 、 こ の プロ シー ジャ を ここ で 終了 し ます 。 


ェ エ FE Fname = "" Then 
中 x ミ モ Sub 
End エモ 


修 ファ イル 名 が 取得 で きた ら 、 そ の ファ イル 名 を フレ ー ム 内 に 配置 し た イメ ー ジ コ 
ント ロー ル の [Picture] プロ パテ ィ に 、LoadPicture 関数 で 設定 し ます 。 こ れ で 、 
選択 し た ビッ トマ ッ プ ファ イル が 表示 され ます 。 ま た 。 こ の 時 点 で 、[ 設 定 ] ボタ ン 
を 有効 に し 、 い つ で も 壁紙 に 設定 で きる よう に し ます 。 あ わせ て 、 ラ ベル コン トロ 
ー ル の Caption] プロ パテ ィ に ファ イル 名 を 設定 し 、 選 ん だ ファ イル が わか る よう 
に し で お きま す 。 


エ mage1 . P や 1 ご 上 u エ Ge = LoadP1Cu と e (Fname ) 
SetBtn .Enab1ed = True 
Labe1 1 .Caption = Fname 


$ デス クト ッ プ の 壁紙 に 設定 で きる イメ ー ジ ファ イル は 、 ビ ッ ト マ ッ プ ファ イル だ 
け で す 。 


設定 する ビッ トマ ッ プ ファ イル を 取得 し た ら 、 今 度 は [設定 ] ボタ ン で これ を 麻 
紙 に 設定 し ます 。 こ れ は 、2 つ の 定数 と 取得 し た ファ イル 名 を 引数 に 設定 し て 、API 
関数 「SystemParametersInfo] を 実行 する だ け で す 。 

これ で 、 設定 し た ファ イル 名 の ビッ トマ ッ プ ファ イル が 、 璧 紙 に 設定 され 、 
Windows の 設定 と し て 保存 きれ ます 。 こ の と き 、[「SystemParametersInfo] は 、 設 
定 に 成功 する と 「True」 を 、 失 敗 す る と 「False] を 返し て きま す の で 、 こ れ を 変 
数 に 受け 取っ て 失敗 し た 時 は メッ セー ジ ボ ッ クス を 表示 する よう に し ます 。 


Erivate Sub SetBtn C11ok( ) 
Dim Ret As Lond 


Re = SystemParame も erSTnEFo(SP エ SETDESKWALLPAPER,。 0, 
Fname, SPTF UPDATETNTFT エ LE ) 


エ F Ret = False Then 
MsgBox "壁紙 の 設定 に 失敗 し まし た 。" 
End TE 
End Sub 
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( [ 盛 紙 の 削除 ] ボタ ン は 、[ 設 定 ] ボタ ン と 同様 に 、「SystemParametersInfo」 関 
数 を 実行 する だ け で す が 、 フ ァイル 名 の 引数 に "" (空白 ) を 設定 し ます 。 こ れ で 、 
デス クト ッ プ に は 何 の 壁 紙 も 設定 され ず 、 璧 紙 を 削除 し た こと と 同じ こと に な り ま 
すす 


Private Sub De1Btn C1iok( ) 
Dim Ret As Long 


Re = SysEemParamete エ 8 エ nFo(SPT SETDESKWALTLPAPER, 0, 
"SBP エ TE _ UPDATE エ NTEF エ LE ) 


エ F Re = Fa1se Then 


MsgBox "壁紙 の 設定 に 失敗 し まし た 。 
End TE 


End Sub 


ブ 最後 に 、[ 藤 了 ] ボタ ン の 処理 を 作成 し て 完成 で す 。 


Private Sub Exx1tBtn C1iok( ) 
Un1oad Me 
End 

End Sub 


API 関数 「SystemParametersInfo] は 、 壁 紙 だ け で な く ス クリ ー ン セー バー の 
設定 や アイ コン の 間隔 、 マ ウス の クリ ッ ク 速 度 な ど 、 コ ント ロー ル パ ネ ル ア プ レッ ト 
に 組み 込ま れ て いる 機能 の 操作 が で きる 関数 で す 。 そ れ ぞ れ 、 定 数 を 設定 する こと で 
アク セス する 項目 を 切り 替え ます の で 、 使 用 目的 に 合っ た 定数 を 標準 モジ ュー ル で 再 
定義 し て か ら 使用 し て くだ さい 。 
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ーー 


上 作成 し た プロ グラ ム を 、 壁 紙 の 選択 を リス ト ボ ックス か ら 行 える よう 
に 修正 し て くだ さい 。 


解答 は 巻末 に 一 


SFS メー ュー 


イン ター ネッ ト エ クス プロ ー ラ Ver4.0 以降 が イン ス トー ル さ れ た Windows で は 、 
「 ア クティ ブ デ スク トッ プ (Active Desktop)」 を 有効 に し て いる と 、 こ の プロ グラ ム 
を 使っ た 壁紙 の 切り 替え が で きま せん 。 必 ず 、 ア クティ ブ デ スク トッ プ を オフ に し て か 
ら 、 プ ログ ラム を 使用 し て くだ さい 。 





3 は | 


背景 | スリ ーッ セー バー | デザ イン | 効果 Web | 設定 | 
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第 9 日 
3 時限 目 


2 Lesson30.Vhp 


(⑤』 VB6CD2 
ヨコ Lesson30 
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自動 壁紙 チェ ンジ ャ ー の 作成 


この レッ スン で は 、 壁 紙 を 変更 する プロ グラ ム の 応用 プロ グラ ム を 作成 
し ます 。 使 用 する API 関数 は 、 前 の レッ スン と 同じ も の を 使用 し ます 
が 、 今 度 は タイ マー コン トロ ー ル を 使っ て 、 登 録 し た ビッ トマ ッ プ ファ 
イル を 順番 に 選び 、 一 定時 間 ご と に 壁紙 を 入れ 替え る プロ グラ ム で す 。 
テク ニッ ク 的 に は さほど 難し く な く 、 今 日 まで 学ん で きた テク ニッ ク を 
組み 合わ せれ ば 、 簡 単に で き あ が る プロ グラ ム で す 。 


今回 作成 する プロ グラ ム 



















































































過 全 間 っ トマ ッ プ 


複数 の ビッ トマ ッ プ 
ファ イル を 指定 し て 
お と.… 


一 定時 間 ご と に 壁紙 
が 変更 され る 
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壁紙 に 設定 する ビッ トマ ッ プ ファ イル 名 は 、 リ スト ボッ クス コン 
トロ ー ル に 組み 込ん で お きま す 。 そ し て 、 タ イマ ー コ ント ロー ル の 
「Timerl イベ ント で 、 リ スト ボッ クス か ら 順 番 に ファ イル 名 を 取得 
し 、API 関数 「SystemParametersInfo」 を 実行 し ます 。 
すべ て の 処理 は 、 タ イマ ー コ ント ロー ル の 「Timer」 イベ ント で 
行う の が ポイ ント で す 。 
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コン トロ ー ル と プロ パティ の 設定 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


フォ ー ム を 広げ 、[Caption] プロ パテ ィ を 「 自 動 壁 
紙 チ ェ ン ジャ ー」 に 変更 する 





Ferm Form 記 





| 全体 | 項目 串 | 














Farm1 

皮 PpearanCe 1 - 3D 

autoRedraw False 

国 SH8000000F& 

2- 可変 

自動 壁紙 チェ ンジ ャ ー 

True 

True 

13 - Copy Fen 

0 - 実線 (中 心 線 ) 

| DrawWidth 1 
Enabled True 










ラベ ルコ ント ロー ル を ら つ 配置 し 、 各 コン トロ ー ル 
の 【[Caption] プロ パテ ィ を 変更 する 


ラベ ルコ ント ロー ル [Caption] プロ パテ ィ 








Label 1 登録 ビッ トマ ッ プ 
Label ら 現在 実行 中 の 壁紙 








に 介 よ : セ の の た 









配置 し て プロ パテ ィ 
を 設定 し た ラベ ル 
コン トロ ー ル 





登録 ビッ トマ ッ ブ 


現在 実行 中 の 模 紙 





ラベ ルコ ント ロー 
プル を 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Labell 介 を 使 
いま す 。 
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ぐ リス ト 項 目 の 設 定 


リス ト ボ ックス の リス ト 
項目 を 設定 する と き 、 プ 
ロ パ ティ ウィ ンド ウ の 
[List] プロ パテ ィ に 、 自 
分 の コン ピュ ー タ の ハー 
ド デ ィ スク に ある ビッ ト 
マッ プ フ ァ イ ル を フル パ 
ス で 記述 し て くだ さい 。 


で は 例 と し で アラ ォ 
ルト で 「Windows」 フォ 
ル ダ に 存在 し て いる は ず 
の ビッ トマ ッ プ を 設定 し 
て いま す 。 


存在 し な い フ ァイル を 指 
定 す る と 、 後 で 設定 する 
「SystemParametersInfo」 
関数 が 実行 ミ れ た と き に 、 
壁紙 に 何 も 設 定 さ れ ま せ 
ん 。 フルパス は 正しく 設 
定 し て くだ さい 。 











ツー ル バ パレ ッ ト の [ListBox] 軸 を 使っ て リス ト 
ボッ クス を 配置 し 、[List] プロ バ パティ を 設定 する 


EE 






登録 ビッ トマ ッ ブ 











配置 し て プロ パテ ィ 
を 設定 し た リス ト ボ 
ツク ズ コ ジ ダ ド 回 邦 比 


cwindows\ エ ジジ 
cwindows 着 し ゃ | ん bmp 
mlc\windows\ ト ライ アン ダル bmp 
Cfwindows\ パ ンプ ブーbmp 






2 ト ア ドバイ ス 


本 書 で 使用 し て いる 、Windows に 付属 する ビッ トマ ッ プ ファ イル を リス 
ト に 組み 込む 場合 は 、 カ タカ ナ の 半角 ・ 全 角 文 字 に 注意 し て くだ さい 。 

Windows95 と Windows38 で は 、 こ れ ら の ビッ トマ ッ プ ファ イル は 同 
じ フ ァイル 名 に 見 えま す が 、 実際 は 半角 記述 と 全角 記述 の 違い が あり ます 。 


Windows ヨ 85 で の ファ イル 名 


Windows88 で の ファ イル 名 
エジプト .bmp 





ウツ ~ ルル bmp 
カ "-.bmp 


トラ イア ング ル .bmp 
バン ブー.bmp 








名 ツー ル パ レ ッ ト の [Label] 庄 を 使っ て ラベ ルコ ン 
トロ ー ル を 配置 し 、 次 の プロ パテ ィ を 設定 する 








プロ パテ ィ 


BorderStyle 
Caption 


c | まん bmp 
に \windows\ ト ライ アン ダル bmp 
lc\windows\ バ ンプ ブーbmp 


プロ パテ ィ 値 


1 一 実線 
(な し ) 


















配置 し て プロ バテ ィ 
を 設定 し た ラベ ル 
コン トロ ー ル 
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コマ ンド ポタ ン を 配置 し 、 オ ブ ジ 
[Caption] プロ パテ ィ を 変更 する 


ェクト 名 と 


コン トロ ー ル オブ ジェ クト 名 [Caption] プロ パテ ィ 


配置 し て プ ロ パ ティ 


を 設定 し た コマ ンド 
ボタ ンコ ント ロー ル 


タイ マー コン トロール を 配置 
ティ を 「5000] に 設定 する 


| 。 自動 壁紙 チェ ンジ ャ ー 


[Intervall] プロ パ 





登録 ビッ トマ ッ ブ 





c\windows\ エ ジブ ト b 
c\windows 着 し ゃ | ぼん. 玉 ffD 
c\windaws\ ト ライ アン ダル bmp 


c\windows\ キ バン プーbmp 









配置 し て プロ パテ ィ 
を 設定 し た タイ マー 
コン トロ ー ル 

















に だ - ュー ぞ -B 
国 本 較 ムジ ュ -P 
。 者 交 MD フォ ム モ ジール 
[に ち ユア た) 
回 人 ト 人 5 スッ ュー ル (G) 
[ol 暫 ュ ー ザ ー ヤ hm-LU 
レ c 回 2 の 77 ペー が 0B) 


ここ を クリ ッ ク 
ここ を クリ ッ ク 


第 日 3 時 限 目 API を 使っ た アプ リケーション の 作成 








コマ ンド ボタ ン を 
記 置 する 

コマ ンド ボタ ン を 配置 す 
本 は 、 ツ ー ル パレ ッ ト 


の 「[CommandButton]「 
を 使い ます 。 ー 


タイ マー コシ ト 眉 
ぐー ル を 配置 する 


タイ マー コン トロ ー ル を 
配置 する に は 、 ツ ー ル パ 
レッ ト の [Timer] | を 
使い ます 。 


プ 挿入 する 


[プロ ジェ クト ] メニ ュー 
の [標準 モジ ュー ル の 追 
加 ] を 選択 し て 、 標 準 モ 
ジュ ー ル を 挿入 する こと 
も で きま す 

[標準 モジ ュー ル の 追加 ] 
ダイ アロ グ ボ ックス が 表 
示さ れる の で 、[ 標 準 モジ 
メール] アイ コン を 必 2 り 
ッ ク し て 、[ 開 く ] を クリ 
ッ ク し ます 


うろ 9 る 





API ビュ ー ア を 起 
ン 人 の 


API ビ ュー ア を 起動 する 
に は 、 タ スク バー の 【[ ス 
ター ト ] ボタ ン 一 [プロ 
グラ ム ] 一 [Microsoft 
Visual Basic 6.0] 一 
[Microsoft Visual Basic 
6.0 Tools] 一 [API ビ ュー 
ア ] を 選択 し ます 。 


AP| の コー ド を 

ぐ プ コビー する 

API の コー ド を 標準 モジ 
ュー ル に コピ ー す る 詳し 
MS お MG2 つ SV3 で 和枝 
[Lesson 26 APIT ビ ュー ア を 
使う ] を 参照 し て くだ さ 
い 。 





API ビュ ー ア を 起動 し 、 次 の 関数 と 定数 を 追加 し 、 
Visual Basic に 戻っ て 標準 モジ ュー ル に 貼り 付け る 


SystemParameterslnfo 


SPI_SETDESKWALLPAPER 
SPIF_UPDATEINIFILE 





RY 誠 | ロ | x| 







[有効 な 項目 ] 
を 選択 し 、[ 追 
加 ] を クリ ッ ク 


SPLSETTOGGLEKEYS = 
ISPLSETWORKAREA = 47 
ISPTF SENDWININICHANGE = 8H2 


IPublic Declare Functian SystemParametersjnfo Lb 
user32" Alias “SystemParametersjnfoA" (ByVal uAction 
IAs Long. ByVal uParam As Long. ByRef lpyParam As Ary, 
HByVal fuWnjni As Lone) As Lone 


IPublic Const SPLSETDESKWALLPAPER = 20 
IPublic Const SPIF_UPDATEINIFILE = &H1 








Public Declare Function SystemParametersInfo Lib "user32" が 
Public Const SPI_SETDESKWALLPAPER = 20 
Public Const SPIF_UPDATEINIFILE = &H1 


電 務 ワン ポイ ント アド バイ ス 
API ビュ ー ワ で API 関数 「SystemParametersInfo」 の 定義 を 標準 モ 


ジュ ー ル に コピ ー し た ら 、 引数 の ひと つ 「ByRHef IpvParam As Any」 の 
記述 を 、「ByVal IpvParam As Any」 に 修正 し て くだ さい 。 







Pub1io Dec1are Funoion SystemParametersTnFo Lib "user32" 
A1ias "SystemParametersTnFoA" (ByVa1 uAotion As Longz 
ByVa1 uParam As Longd,。 

ByVa1 1pvParam Ag Any,。 一 ByReE を syva1 に 修正 する 
ByVa1 FuWin エ ni As Long) As Long 
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(Generab) | (Declarations} ェ 





Dec1are FunC ヒ on SystemPa エ ame ヒ ersTnFo エ ュ も ruser32" を 
A1ias "SystemParametersTnFoA" (ByVa1 uAction As Long, 
ByVa1 uParam AS TLong, ByVa1 1pvParam AS Any, 
ByVa1 FuWinTni As Long) As Long 

Pub1io Cons モ 上 SP エ T SETDESKWALTLPAPER = 20 

ebic Cons モ 上 SPTF UPDAT 下 エ NTFT エ LE = &H1 


ョ Form1: (General)- (Declarations)_ 


ED4 ii 還 a 過 





| (General) マ | (Declarations) マ 
Dim 1 As Tnteger 





Form1:Form-Load 
EE す diii 思 が) 


| 1 
| [Form 加 | lreag | | 














ーー 
Private Sub Form Load( ) 

| 中 -mw 0 

| mnd Sub 


ョ Form1 :Timer1 -Timer 


| rl 






- Form1 ロー ド ) 





| P エ ュ で a モ e Sub Timer1 呈 imer() 
| Dim Ret As Long 
Dim Fname AS String 


Fname = Lis1.Lis モ () 

ist 上 1 .Se1ected(1) = "True 

Re ヒ = SysgtemParameterSTnFo(SP エ T SETDESKWALLPAPER, 0, 
Fname, SPTF_ UPDATETNTF エ LE ) 

エ F Re モ = Fa1se Then 
mMsgBox "壁紙 の 設定 に 失敗 し まし た 。 


E 交 1 モ Sub 
End エモ 
生生 


エ E ュ = 4 Then 
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ミュ = 0 
End TE 
Labe12 .Caption = Fname 
End Sub 


Form1:ExitBtn-Click 


TE El 還 過 ) 

Pr ュ ivate Sub Ex 上 BEn C1iok( ) 
Un1oad Me 
End 

End Sub 





上 API 関 数 |[SystemParametersInfo] に つい て は 、 す で に 前 の レッ スン で 説明 し ま 
し た の で 、 プ ログ ラム の 動作 に つい て 説明 し ます 


1D) ま ず 、 壁 紙 に 設定 する ビッ トマ ッ プ ファ イル を 、 リ スト ボッ クス コン トロ ー ル の 
List] プロ パテ ィ に 設定 し ます 


次 に 、 タ イマ ー コ ント ロー ル の 「Timer」 イベ ント が 発生 する と 、 こ の リス ト 項 
目 を 1 つ 読 み 込 ん で 、「SystemParametersInfo」 関数 に 渡し ます 。 そ し て 、 こ の 
関数 を 実行 し ます 


ビッ トマ ッ プ ファ イル が 
順番 に 壁紙 に 設定 され る 


現在 実行 中 の 壁紙 


の rsF ラ イア ン ヲ rbmp 





396 年 計 
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③ そ れ と 同時 に 、 リ スト ボッ クス コン トロ ー ル の 、 同 じ フ ァイル 名 の 項目 を 選択 状 
に し 、 ラ ベル コン トロ ー ル に も 出力 し て 、 現 在 璧 紙 に 設定 され て いる ファ イル 
名 が わか る よう に し ます 。 


〈④ タ イマ ー コ ント ロー ル は 、[Intervall プロ パテ ィ を 「5000」 ミリ 秒 (5 秒 ) に 設 
定 し て あり ます の で 、5 秒 ご と に リス ト ボ ックス の ファ イル 名 が 読み 込ま れ 、 礎 
紙 が 変更 され ます 。 


で は 、 コ ー ド を 作成 し て いき まし ょ う 。 最初 に 、 フ ォ ー ム の コー ドウ ィ ン ド ウ に 、 
モジ ュー ルレ ベル の 変数 i を 宣言 し ます 。 こ の 変数 は 、 リ スト ボッ クス の リス ト 項 
目 を 参照 する イン デック ス 番 号 と し て 使用 し ます 。 


Dim 1 As Tnteger 


宣言 し た ら 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 「0] に 初期 化し ます 。 こ 
れ は リス ト ボ ックス の リス ト 項 目 の イ ン デ ックス が 「0| か ら 始 まる か ら で 、 
「Timer1_Timer()」 プロ シー ジャ に 処理 が 移っ た と き に 、 リ スト 項目 の 1 番目 か ら 
処理 を 行う た め の 準 備 で す 。 プ ログ ラム 起動 時 の 処理 は これ だ け で す 。 


Private Sub Form Load( ) 
さ ョ 0 
End Sub 


今度 は 、 タ イマ ー コ ント ロー ル の Timer イ ベン ト プ ロ シー ジャ の 処理 を 作成 し ま 
す 。 こ の プロ グラ ム の メイ ン の 処理 は 、 す べ て この プロ シー ジャ で 行い ます 。 

まず 、 変 数 を 2 つ 宣 言 し ます 。1 つ は 、API 関 数 「SystemParametersInfo」 の 戻 
り 値 を 格納 する 変数 「Ret] で 、 も う 1 つ は ファ イル 名 を 格納 する 変数 IFname」 で 
ず 。 


P ェ ュ irate Sub Timer1 呈 imer() 
Dim Ret As Long 
Dim Fname AS String 


次 に 、 リ スト ボッ クス の 先頭 の リス ト 項 目 を 、 変 数 「Fname」 に 格納 し ます 。 こ 
れ で 、 磨 紙 に する ファ イル 名 が 取得 で きま し た 。 そ し て 、 そ の 項目 を [Selected] 
プロ パテ ィ を 使用 し て 選択 状態 に し ます 。 


Fname = Lis モ 1 .Lis モ (1) 
エ Lis モ 1 .Se1ected( ュ ) = "True 
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ファ イル 名 を 取得 し 、 
1 番目 の 項目 を 選択 


状態 に し て お く 





礎 紙 に する ファ イル 名 が 決ま っ た ら 、「SystemParametersInfol| 関数 を 実行 し ま 
す 。 関 数 の 戻り 値 を 受け 取り 、 エ ラー 処理 を 組み 立て ます 。 


Ret = SysemParameer5s エ TnFo(SPT SETDESKWATLLPAPER, 0, 
Fname, SPTEF _ UPDATETNTF エ LE ) 


エ F Re = Fa1se Then 


MsgBox "壁紙 の 設定 に 失敗 し まし た 。" 
Excit Sub 
End エモ 


そし て 、 リ スト 項目 の イン デック ス 用 変数 「i] を 1 つ 増 や し ます 。 こ れ で 、 次 に 
Timer イ ベン ト が 発生 すれ ば 、2 番 目 の リ スト 項目 が 読み 込ま れ 、 璧 紙 が 変更 され 
まぁ 

変数 [i の 値 が 「4] に な っ た ら 、[il を 「0] に 初期 化し て いま す が 、 こ れ は 変 
数 ii| の 値 が 、 設 定 し た リス ト 項 目 以上 の 値 に な ら な いよ うに する た め の 処 置 で す 。 
この 例題 プロ グラ ム で は 、 リ スト ボッ クス に 4 つの 項目 し か 設定 し て いな いた め 、 
「Tfi=4 Then] と いう 式 に し て いま す が 、 項 目 数 が 多けれ ば 、 こ の 数 字 も それ に 合 
わせ て 増やし て くだ さい 。 


ミ = ュ ミ + ォ ユエ 

エ E ュ = 4 mhen 
ミュ =0 

End TE 


この 処理 で 、 リ スト ボッ クス に 設定 し た ファ イル 名 が 、 順 番 に 取り 出さ れ て 、 
「SystemParametersInfo」 関数 が 実行 され ます 。 
盛 紙 の 設定 が 成功 し た ら 、 フ ァイル 名 を ラベ ルコ ント ロー ル に 出力 し ます 。 


Labe12 .Capion = Fname 
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$ 最後 に 、[ 終 了 ] ボタ ン に 、 プ ログ ラム の 終了 処理 を 作成 し て 完成 で す 。 


エミュ ate Sub 互 x1 モ 上 Bn C11ok( ) 
Un1oad Me 
End 

End Sub 


タイ マー コン トロ ー ル の 「Timer」 イベ ント を 使う と 、 こ の よう な 自動 壁紙 チェ ン 
ジャ ー が 作成 で きま す 。 壁紙 に 使う ビッ トマ ッ プ ファ イル 名 の 設定 に 、 リ スト ボッ ク 
スコ ント ロー ル を 使用 し まし た が 、 配 列 な どの 変数 を 使っ て も か まい ませ ん 。 な お 、 
タイ マー コン トロール の [Intervall] プロ パテ ィ は 、 最 大 65.535 ミリ 秒 ま で し か 設 
定 で きま せん の で 、 注 意 し て くだ さい 。 


な 機能 に 修正 し て くだ さい 。 例 えば 、15 時 に な る と 切り 替わる よう に し 


O ひ 作成 し た プロ グラ ム を 、 指 定 し た 時 刻 に な る と 壁紙 が 切り 替わる よう 
を 交 規 裕 M。 


【 ヒ ント 】 
シス テム か ら 時 刻 を 取得 する に は 、「Time」 関数 を 使用 し ます 。 


解答 は 巻末 に 一 


プロ グラ ム の 起動 時 に 、 タ イマ ー の イン ター バル を 待た ず に 、 1 番目 の リス ト 項 目 を 
壁紙 に 設定 し た いな ら 「Private Sub Form_Load()」 プロ シー ジャ に も 、 以 下 の コ ー 
ド を 追加 する と 良い で し ょ う 。 








エエ st 上 1 .Se1ected(1) = True 

Re = SystemParameterSTnEo(SPT SETDESKWALTLPAPER, 0, 
エモ 1 . エ sg 七 ( ュ ) , SPTF _ UPDATETNTFT エ LE ) 

エ F Re モ = Fa1se Then 
MsgBox "壁紙 の 設定 に 失敗 し まし た 。" 
Ei モ 上 Sub 

End エモ 
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ディ スク の 空き 容量 を 把握 する 


今度 は 、 Windows の ファ イル シス テム を 操作 する AP| 関数 を 使用 し て 、 
マイ コン ピュ ー タ の よう な 、 デ ィ ス ク の 使用 量 や 空き 容量 を 表示 する プ 
ログ ラム を 作成 し ます 。API 関 数 「GetDiskFreeSpace」 を 使用 する 
と 、 デ ィ ス ク の 容量 に 関す る 情報 を 取得 で きま す 。 こ の 関数 を 、 
Visual Basic の ドラ イブ リス ト ボ ックス コン トロ ー ル と 組み 合わ せ て 、 
指定 し た ドラ イブ の 情報 を 表示 する よう に し ます 。 ま た 、Visual 
Basic の チャ ー ト コン トロ ー ル を 使用 し て 、 デ ィ ス ク の 使用 量 と 空き 容 
量 を 円 グラ フ で 表示 する 機能 も 組み 込み ます 。 
































今回 作成 する プロ グラ ム 


画 。 Drive Space Checker 











第 9 日 世 H [WINDOWS] | ここ を クリ ッ ク 
4 時限 目 する と .… 
Space size (Byte) 
| Total 1 13536 
| 
| Used | 928612352 
| Free 1487h11 
| Sector 
FL$ | Size | 2 
< Lesson31.vhp 
@⑯) V8ecD2 妥 中 
コ Lesson31 
ディ スク の 使用 量 と 空き 容量 が 


円 グラ フ で 表示 され る 


API 関数 「GetDiskFreeSpace」 は 、 指 定 し た ドラ イブ の 空き 容 
量 や 総 容量 を 、 ク ラス タ と セク タ の サイズ で 返し て くる 関数 で す 。 
この デー タ を 元 に 、 式 で バイ ト 数 に 変換 し 、 フ ォ ー ム に 配置 し た ラ 
ベル コン トロール で 表示 し ます 。 ま た 、 チ ャ ー ト コン トロール を 使 
つて 、 デ ー タ を グラ フ 表 示す る テク ニッ ク も 使用 し ます 。 


Lesson 31 ディ スク の 空き 容量 を 把握 する 


晶 コン トロ ー ル と プロ パテ イィ の 設定 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 
ツー ル パ レ ッ ト に 「Microsoft Chart Control」 
コン トロ ー ル を 追加 する 


ツー ル パ レ ッ ト に 追加 
され た コン トロ ー ル 








フォ ー ム を 広げ 、[Caption] プロ パテ ィ を 「Drive 
Space Checker」 に 変更 する 


Form1 Form ェ 


全体 | 項目 旨 | | 






Form1 





| 1 - 3D 
autoRedraw False 
BackCalor 還 SH800000OF& 





BorderStyle 





2- 可変 
| Drive Space Checkerl キー 明和 
ClipContros True 


IContralBox True 






人 る ツー ル パ レ ッ ト の [DriveListBox] 所 を 使っ て 、 
ドラ イブ リス ト ボ ックス コン トロ ー ル を 配置 する 


| Drive Space Ohecker 問 回 四 


< | 斜め に ドラ ッ グ 
こ し て 配置 
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コン ポー ネン ト を 
ぐ プ 追 罰 る 
コン ポー ネン ト を 追加 す 
る 方 法 に つい て は 、 
[Lesson5 ツー ル バ ー コ ン 
トロ ー ル の 組み 込み ] を 
参照 し て くだ さい 。 


本 


フレ ー ム コン トロ 
ぐー ル を 配置 する 


フレ ー ム コン トロ ー ル を 
配置 する に は 、 ツ ー ル バ 
レッ ト の [Frame] 証 を 


使い ます 。 ca 


ラベ ルコ ント ロー 
ぐ プ ダル を 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Label] | 肉 | を 使 
いま す 信 











フレ ー ム コン トロ ー ル を 配置 し 、[Caption] プロ パ 
ティ を 「Space size (Byte)」 に 変更 する 


問 Ip* 7 コ Space Checker 8 


ーー に マ 









配置 し プロパティ 
を 設定 し た フレ ー ム 
ヨシ ドロ ー ル 





"-Space 26BV08 ニ ニニ ニニ ー ニ ーー ニー 





| 
還 


フレ ー ム 内 に ラベ ルコ ント ロー ル を 4 つ 配 置 し 、 
[Caption] プロ パテ ィ を 変更 する 


フレ ー ム コン トロ ー ル  【[Caption] プロ バテ ィ 
Label 1 Total 
Label ら Used 
Label3 
Label4 











Seotor Size 





箇 、 Drive Space Checker 











配置 し プロパ ティ 
を 設定 し た ラベ ル 
コン トロ ー ル 








Lesson 31 ディ スク の 空き 容量 を 把握 する 


再度 [Label] 為 | を 使っ て 、 枠 線 付 き の ラ ベル コン コン トロ ー ル を 
トロ ー ル を 4 つ 配 置 する ジ コピ ー す る 


プロ パテ ィ の 設定 が 同じ 








デ コン トロ ー ル を 複数 作成 

る する 場合 は 、 コ ント ロー 

Alignment え ル を 1 つ 作 成 し た ら 、 そ れ 
を コピ ー し て 貼り 付け る 

BorderStyle と 効率 的 に 作業 で きま す 。 








Caption 










配置 し て プロ パテ ィ 
を 設定 し た ラベ ル 
コン シド ロー 








Sge gei | | 


ツー ル バ パレ ッ ト の [MSChart] 上 を 使っ て チャ ー 
トコ ント ロー ル を 配置 し 、 プ ロバ ティ を 設定 する 


プロ パテ ィ 

ColumnCount ら 

ChartType 14 一 VtChChartType2dPie 
Data 100 

HowCount 1 




















RowLabel Disk Space 


配置 し て プロ バテ ィ 
を 設定 し た チャ ー ト 
り 














人 0 る 
第 9 日 4 時 限 目 API を 使っ た アプ リケーション の 作成 


コマ ンド ボタ ン を 
プ 記 置 する 

コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 


の [CommandButton] 
を 使い ます 。 ゴ 


標準 モジ ュー ル を 
プア 括る 


[プロ ジェ クト] メニ ュー 
の [標準 モジ ュー ル の 追 
加 ] を 選択 し て 、 標 準 モ 
ジュ ー ル を 挿入 する こ 
も で きま す 。 


[標準 モジ ュー ル の 追加 ] 
ダイ アロ グ ボ ックス が 表 
示さ れる の で 、[ 標 準 モ ジ 
ュー ル ] アイ コン を クリ 
ッ ク し て 、[ 開 く ] を クリ 
みみ 次 ま びす : 


AP| ビュ ー ア を 起 
と 


API ビ ュー ア を 起動 する 
に は 、 タ スク バー の [ ス 
ター ト ] ボタ ン ~… [プロ 
グラ ム ] 一 [Microsoft 
Visual Basic 6.0] 一 
[Microsoft Visual Basic 
6.0 Tools] 一 [API ビュ ー 
ア ] を 選択 し ます 。 


API の コー ド を 
ぐ くそ コビー す る 


API の コー ド を 標準 モジ 
ュー ル に コピ ー す る 詳し 
MS カ 大 SS< つ 、V で は 
[Lesson 26 API ビュ ー ア を 
使う ] を 参照 し て くだ さ 
い 。 


全 0 全 








コマ ンド ボタ ンコ ント ロー ル を ら つ 配置 し 、 オ ブ ジ 
ェクト 名 と [Caption] プロ パテ ィ を 変更 する 






コン トロ ー ル 
Command 1 


オブ ジェ クト 名 
CheckBtn 
ExitBtn 


[Caption] プロ パテ ィ 
Check 
















Command ら 












配置 し て プロ パテ ィ 
を 設定 し た コマ ンド 
ボタ ンコ ント ロー ル 




















ここ を クリ ッ ク 


| カム の 


| 
| 
則 





| 1 MDI フ ォ ー ム モジ ュー ル ⑪ 
ーー EE 時 ここ を クリ ッ ク 
IO の ジス ュー ル ⑥ 


際 サー マヤ hn-MD 


上 AP| ビュ ー ア を 起動 し 、「GetDiskFreeSpace」 
関数 を 選び 、 標 準 モ ジュ ー ル に コピ ー す る 


アル 表示 へ MZ⑪ 0 | 

ED2 | ここ で [関数 ] 
関 雪 ドコ 

検索 する 芳 列 の 先天 の 文字 を LK つ か 入力 し て ください: | を 選択 

[ l 





GetDiskFreeSpac 


[有効 な 項目 ] 


で 選択 し 、[ 追 
加 ] を クリ ッ ク 





Public Declare WAN GetDiskFreeSpace Lb “kernel32" 訂 


Alias "GetDisk 人 Aa" (ByVal IpRootPathName As 


ler = Lone. IpBytesPerSector As 





ここ を クリ ッ ク 


テト ポメ 内 に 直接 入力 し た 文字 で 検索 され ます -_ 9 ] 





Lesson 31 ディ スク の 空き 容量 を 把握 する 





』 』 完成 し た フォ ー ム 








Ed 韻 co に 才 り 英語 





















中 Module1:(General)-(Declarations) 
・ TI 思 ay! 





(Generab) | |(Declarations) 








Dec1are Function GetDiskFreeSpace Lib "jkerne132" 
A1ias "GeDi sjkF エ eeSpaCeA" (ByVa1 1pRoo 上 PathName AS 8 モエ ing, 
1pSeC 上 OrSPGrC1uster AS Long, 1pBytesPerSeoC モ or AS Lond, 
1pNumberOEFreeC1usters AS Londg, 
1pT モ toa1NumberOEC1usters As Long) As Longd 


ョ Form1:CheckBtn-Click 
1 了 ) 


[CheckBtn 加 | [Click | 


P ェ 1 ュ で ate Sub CheokBn C11CK( ) 
Dim 1pRoot 上 PathName AS 8 上 エ ュ ng 
Dim 1DSeC 上 OSPG エ CTuS モ er AS Lond 
Dim 1pBy モ esPerSec モ or AS Long 
Dim 1pNumberOEFreeC1usters AS Lond 
Dim 1pTtoa1NumberOEC1usters AS Longd 
Dim DriveName AS S エ ュ in 
Dim Freemota1 As Long, Tota1Capa As Long, UsedTota1 As Long 





第 9 日 4 時 限 目 API を 使っ た アプ リケーション の 作 














Eh 





GetDi skFreeSpaoe 1pRooPathName, 1pSec 上 osSPerC1uste エ , 
1pBytesPe エ SeoC モ O エ , 1pNumberOEFreeC1us ヒ 6 て 8 , 
1pTt 上 oOa1Numbe エ て OEC1us 上 @ エ 5 

Tota1Capa = 1pTEoa1NumbperOFC1us 上 GS * 1pSeC 上 Oo て SPe エ C1uS モ G エ * 
1pBy 上 GSPG て SGC ヒ Oo エ 

eeP〒O モ a1] = 1DNumDerOEF エ GeC1uS 上 GS * 1DSeC 上 OrSPGrC1uSte エ * 
1pBy セ eSPG エ て SGC 〇 エ 

UsedToa1 = Tota1Capa - Freemo モ a1 


abe12 ( 0 ) .Caption = Tota1Capa 
Labe12(1) .Caption = Useqdmota1 
Labe12 ( 2 ) .Caption = FreeTmo モ a1 
Labe12 ( 3 ) .Capion = 1pBytesPerSeoo エ 


With MSChar モ 1 
・Co1umn = 1 
・Data = CTnt(FreeTmota1 / 1000000) 
・Co1umn = 2 
・Data = CTnt(Usedmota1 / 1000000) 
End With 
昌 Sub 


是 FOrm1 :ExitBtn-Click 


。」 ph il 還 m が) 






| Private Sub ExxitBtn C1iok() | 
Un1oad Me | 


1 
| 
| | 
] | 
| 





本 API 関数 「GetDiskFreeSpace」 は 、 指 定 し た ドラ イブ の 容量 に 関す る 情報 を 、 シ 
ステ ム か ら 取 得する 関数 で す 。 全 部 で 5 つの 引数 を 持ち 、 引 数 「lpRootPathName」 
に ドラ イブ 名 を 設定 し て 関数 を 実行 し ます 。 関 数 が 実行 きれ る と 、 残 り の 4 つの 引 
数 に 情報 が 格納 され ます 。 


Dec1are Funotion GetDiskFreeSpace Lib "kerne132" 
A1ias "GetDiskFreeSpaceA" (ByVa1 1pRootPathName AS 
ヒエ ュ n, 1pSeC 上 OSPG エ C1u5 ヒ er AS Long, 1pByLeSPe エ て SeoCEo エ 
AS Long, 1pNumberOEFreeC1usters AS Long, 
TpT モ Eoa1NumberOEC1usters As Long) As Long 


Lesson 31 ディ スク の 空き 容量 を 把握 す 


Eo: | 


人 幸 を 了 介 する ドラ イブ 名 を 和 定 し ます 。 


IpSectorsPerCluster 1 クラ スタ あたり の セク タ 数 を 格納 し ます 。 
IpBytesPerSector 1 セク タ あ た り の バイ ト 数 を 格納 し ます 。 





IpNumberOfFreeClusters 空き クラ スタ 数 を 格納 し ます 。 
IpTtoalNumberOfClusters As Long | ディ スク の 総 ク ラス タ 数 を 格納 し ます 。 


この 関数 は 、HDD の 1 つの パー ティ ショ ン が 2GB を 超え る 場合 は 、 正 常 な ディ ス 
ク 容 量 を 表示 で きま せん 。Windows950SH2 お よび Windows98 に 搭載 され た 新 し 
い フ ァイル フォ ー マ ッ ト 「FAT32」 で 設定 され た 、2GB を 超え る ラー ジ パ ー テ ィ シ 
ョ ン の HDD の 正しい ディ スク 容量 を 把握 する に は 、Windows98 の 新しい API 関数 
「GetDiskFreeSpaceEx」 を 使用 し ます 。 た だ し 、Visual Basic6.0 に 付属 する API 
ビュ ー ワ で は この 関数 の 定義 が 収録 され て いま せん の で 、 使 用 する 場合 は 自分 で 調べ る 
必要 が あり ます 。 





う コン ピュ ー タ の ドラ イブ の 最小 単位 を 「 セ クタ |」 と いい ます 。 ディス ク の フォ ー 
マッ ト の 種類 に よっ て 、1 セ クタ の バイ ト 数 が 決ま っ て いま す 。 そ し て 、「 セ クタ ] 
が いく つか 集まる と 、「 ク ラス タ 」| と いう 単位 に な り ま す 。 し た が っ て 、 デ ィ ス ク の 
総 バ イト 数 は 、 次 の よう な 計算 式 で 算出 され ます 。 
総 ク ラス タ 数 X 1 クラ スタ あたり の セク タ 数 X ] セク タ あ た り の バイ ト 数 
API 関 数 「GetDiskFreeSpace」 は 、 デ ィ ス ク の 容量 や 使用 状況 と そ 、 バ イト 数 で 返 
す の で は な く 、 セ クタ 数 や クラ スタ 数 で 返し て きま す 。 で すか ら 、 デ ィ ス クタ 人 容量 の 


使用 状況 を 知る に は 、 こ の よう に 式 を 組み 立て て 計算 し ます 。 た と えば 、1.44MB の 
フロ ッ ピ ー デ ィ ス ク は 、 次 の よう な 数 値 に な り ま す 。 


1 セクタ = 512 バイ ト 
1 クラ スタ = 1 セクタ 
総 ク ラス タタ 数 = ら 847 


これ を すべ て 掛け 算 す れ ば 、 デ ィ ス ク の 総 バ イト 数 に な り ま す 。 
5847 xX ] X 51 ら = 1457664 


この 「 総 クラ スタ 数 ] [1 クラ スタ あたり の セク タ 数 ] 「1 セ クタ の バイ ト 数 |] は 、 
ディ スク の 形式 や フォ ー マ ッ ト の 方 法 、 ハ ー ド ディ スク で は パー テ シ ョ ン の 切り 方 
な ど で 変 わっ て き まず お ぁ 
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う 


ぅ 





| 


この ディ スク 容量 の 仕組 み を 知っ た 上 で 、 実 際 に ディ スク の 空き 容量 や 使用 量 な 
ど を 把握 する コー ド を 作成 し て いき まし ょ う 。 こ の プロ グラ ム で は 、 フ ォ ー ム に 配 
置 し た [Check] ボタ ン が クリ ッ ク さ れ た と き に 、 処 理 を 行う よう に し ます 。 ま ず 、 
API 関 数 |GetDiskFreeSpace」 の 引数 に 設定 する 変数 を 宜 言 し ます 。 


Privae Sub CheocjkBtn C1iok( ) 
Dim 1pRoo 上 PathName AS S エ ing 
Dim 1pSectorsPerC1uster As Long 
Dim 1pBytesPerSector As Long 
Dim 1pNumberOFFreeC1usters As Long 
Dim 1pTtoa1NumberOFC1usters As Long 


変数 の 意味 が わか りや すい よう に 、Declare ステ ー ト メン ト に よる 宮 言 で 使用 し 
た 引数 と 同じ 名 前 の 変数 で 家斉 し て いま す 。 
更に 、 デ ィ ス クタ 容量 を 計算 で 出し た 合計 値 を 、 格 納 する 変数 を 3 つ 宜 言 し ます 。 


Dim FreeTmota1 As Long, Tota1Capa As Long, UsedTota1 As Long 


調べ る ディ スク の ドラ イブ 名 は 、 ド ライ ブリ スト ボッ クス か ら 取 得 し ます 。 こ れ 
は 、 ド ライ プリ スト ボッ クス の [Drive] プロ パテ ィ の 値 を 調べ ます 。 た だ し 、 こ 
の プロ パテ ィ に は 、 ド ライ ブ 名 と その ボリ ュー ムラ ベル が 以下 の よう な 形 で 格納 さ 
れ て いま す 。 


ドラ イブ 名 : ボ リュ ー ム ラベ ル ( 例 : c:MyHD) 


その た め 、 ド ライ ブ 名 だ け を 取り 出す た め に 、Left 関 数 を 使用 し ます 。 そ し て 、 
取り 出し た ドラ イブ 名 を 変数 「lpRootPathName」 に 代入 し 、 未 尾 に 「\」 記号 を 追 
加 し ます 。 


1pRooPathName = Le (Drive1 .D ェ ive, 2) & " 笠 " 


変数 「IpRootPathNamel に ドラ イブ 名 を 設定 し た ら 、API 関 数 「GetDiskFree 
Space」 を 実行 し ます 。 引 数 に は 、 そ れ ぞ れ の 変数 を 記述 し ます 。 


「\」 記号 を 追加 し な いで いる と 、 バ ー テ ィ シ ョ ン を 切っ た ハー ド デ ィ スク な ど で は 
ログ ラム が うま く 動 作 し な いこ と が あり ます 。 注意 し まし ょ う 。 


GetDi skkFreeSpace 1pRootPathName, 
1pSecorsPerC1us モ er, 1pByEesPerSeoto エ , 
1pNumbperOFF エ eeC1uS ら GS , 1pT 上 Ooa1Numbe て OFEC1us も G エ 8 


LesSon 31 ディ スク の 空き 容量 を 把握 す 


関数 が 実行 ミ きれ る と 、「lpRootPathName」 以外 の 変数 に 、 そ れ ぞ れ の 情報 が 格納 
きれ ます の で 、 式 を 使っ て バイ ト 単 位 の 容量 に 換算 し ます 。 ま ず 、 ド ライ ブ の 総 バ 
イト 数 を 次 の 計算 式 で 算出 し ます 。 計 算 結 果 は 、 変 数 「TotalCapal に 代入 し ます 。 


総 ク ラス タ 数 x1 ク ラス タ あ た り の セク タ 数 Xx1 セ クタ あたり の バイ ト 数 


Tota1Capa = 1pTEoa1NumbperOEC1usterS * 
1pS@C 上 〇 て エ SPG エ CTuS ヒ G エ * 1DBy ヒ GSPG エ SGC 〇 エ 


また 、 空 き 容 量 も 、 同 じ よ うな 式 で 算出 し 、 結 果 を 変数 「FreeTotall に 代入 し 
ます 。 


FreeTo モ a1 = 1pNumberOEFreeC1usterS * 
1DS@GC 上 OSPG エ C1uSG エ * 1pBy ヒ GSPGrSGCEO エ 


総 使用 量 は 、 総 バイ ト 数 か ら 空 き 容 量 を 差し 引け ば 算出 で きま す の で 、 答 え を 変 
数 「UsedTotall に 格納 し ます 。 


UsedTmo モ a1 = "Toa1Capa - FreeTo モ a1 ユ 


計算 が で きた ら 、 こ れ ら を フォ ー ム に 配置 し た ラベ ルコ ント ロー ル に 出力 し ます 。 


Labe12 ( 0 ) -Capion = "Tota1Capa 
Labe12 (1 ) .Caption = UsedTo モ ta1 
Labe1 2 ( 2 ) .Caption = Freemo モ a1 
Labe1 2 ( 3 ) .Cap 上 on = 1pBy ヒ GSPG エ SGC 七 〇 エ 


今度 は 、 計 算 結果 を チャ ー ト コン トロ ー ル で 円 グラ フ に し て 表示 し ます 。 チ ャ ー 
トコ ント ロー ル は 、 内 部 に 行列 を も つ [Data]」 プロ パテ ィ に 、 グ ラフ に する デー タ 
を 設定 すれ ば 、 そ の デー タ を 元 に 自動 的 に グラ フ を 作成 し て くれ る コン トロ ー ル で 
ず 。 

デー タ を グラ フ 化 する 場合 は 、 最 初 に 「ColumnCount| と 「RowCount」 プロ パ 
ティ で 、 デ ー タ の 個数 を 設定 し ます 。 通常 の 2D グ ラフ で あれ ば 、1 行 多 列 の デー タ 
に な り ま すか ら 、 一 次 元 配列 の 設定 を 、「ColumnCount| と 「RowCount] プロ パテ 
ィ に 設定 し ます 。 た と えば 、5 つ の デー タ を グラ フ に し た い 場 合 は 、1 行 5 列 の デー 
タ に な り ま すか ら 、 


Co1umrnCoun モ E = 5 
RoOwCoOun セ = 1 ユ 
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1 


と いう 設定 を し ます 。 こ れ で 、[Data] プロ パテ ィ に 一 次 元 で 5 つの 要素 を 持っ た 配 
列 が 設定 され ます 。 

ここ の 配列 に アク セ モス する に は 、[Column] と [Row] プロ パテ ィ に 、 配 列 の イ 
ン デ ックス を 指定 し ます 。 こ の プロ パテ ィ で 、 ア クセ ス す る [Data] プロ パテ ィ の 
イン デック ス を 指定 し 、[Data] プロ パテ ィ に グラ フ の デー タ を 設定 し て いき ます 。 


8 話 だ け で は わか り づ らい と 思い ます の で 、 試 し に 5 つ の デー タ を 析 グ ラフ に し て 
み ま し ょ う 。 新しい プロ ジェ クト ファ イル を 用 意 し て くだ さい (完成 版 は 
「Chart.vbp] と し て CD-ROM の 「Lesson31] フォ ル ダ に 収録 し て いま す )。 


り ツ ー ル パレ ッ ト に チャ ー ト コン トロ ー ル を 組み 込み 、 フ ォ ー ム に 配置 し ます 。 チ 
ャ ー ト コン トロ ー ル は 、 デ フォ ルト で は 4 列 5 行 の デー タ を 棒グラフ で 表示 し ます 。 
プロ パテ ィ ウ ィ イン ドウ を 見 る と 、[ColumnCount] が 「4| に 、[RowCount] が 
「5] に な っ て いま す 。 

に こ に 」 ロ lxl 


デフ ォ ル ト は 4 列 
5 行 の 棒グラフ 





2 ここ で 、[RowCount] プロ パテ ィ の 値 を 「1] に 変更 し ます 。 す る と 、 グ ラフ は 1 
行 4 列 (1 列 は デー タ が 0 な の で 表示 され て いな い ) の 棒グラフ に 変わ り ま し た 。 


] 行 4 列 の 棒グラフ 
に 変更 され る 





生ま 0 


Lesson 31 ディ スク の 空き 容量 を 把握 す 


〈⑬③ フ ォ ー ム の Load イベ ント プロ シー ジャ に 、 次 の コー ド を 作成 し ます 。 
Private Sub Form Load( ) 


MSChar モ 1 .Co1umn = 1 
MSChar モ 1 .Data = 10 


MSChar モ 上 1 .Co1umn = 2 
MSChar モ 1.Data = 20 


MSChar モ 1 .Co1umn = 3 
MSChar モ t1 .Data = 30 


MSChar モ 1 .Co1umn = 4 
MSChar モ 1 .Data = 40 


End Sub 


そし て 、 プ ログ ラム を 起動 し ます 。 グ ラフ は 、 右 上 が り の 棒グラフ に 変化 し ます 。 





この よう に 、 一 次 元 配列 の グラ フ デ ー タ を 設定 する 場合 は 、 最 初 に デー タ の 数 だ 
け 「ColumnCount」 を 設定 し て 、 列 数 を 決め ます 。 そ し て 、1 番 目 の デ ー タ を 設定 
する 場合 は 、「Column] プロ パテ ィ に 「1]| を 設定 し て 、 続 け て [Data] プロ パテ 
ィ に グラ フ デ ー タ を 1 列 分 だ け 入 力 し ます 。 


MSChar ェ モ t1 .Co1umn = 1 
MSChar モ 1 .Data = 10 


2 番目 の デー タ を [Data]」 プロ パテ ィ に 設定 する 場合 は 、「Column] プロ パテ ィ 
に 「2」] を 設定 し 、[Data] プロ パテ ィ に デー タ を 代入 し ます 。 こ うし て 、 グ ラフ 作 
成 に 必要 な デー タ を 、[Data] プロ パテ ィ に 代入 し て いけ ば グラ フ が 作成 され ます 。 
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り / この プロ グラ ム で は 、2 つ の デー タ で 円 グラ フ を 作成 し 、 デ ィ ス ク 容 量 の 使用 量 
と 空き 容量 を 表示 し ます 。 そ の た め 、 





プロ パテ ィ 中 


ColumnCount ら 
HowCount 1 


と いう 1 行 2 列 の 設定 を し て いま す 。 

また 、[ChartType] プロ パテ ィ は グラ フ の 種類 を 設定 する プロ パテ ィ で 、 定 数 で 
グラ フタ イプ を 指定 し ます 。[RowLabel] プロ パテ ィ は 、 行 の 名 前 を 表示 する プロ 
パテ ィ で す 。 それぞれ 、 プ ロ パ ティ ウィ ンド ウ で 次 の 値 に 設定 し て グラ フ の 表示 を 
整え て いま す 。 








プロ パテ ィ 中 
ChartType 14 一 VtChChartType2dPie 
HowLabel Disk Space 


(1 











プロ パテ ィ ペ ー ジ を 使っ て プロ パテ ィ 設 定 を 行う と 、 グ ラフ の 種類 ・ 形 状 を 一 括 で 設 
定 で きま す 。 


国 下 Ca 還 や 77 時 画 了 "Y2 





人 0) グラ フ の 形式 が 設定 で きた ら 、[Column] プロ バテ ィ で 1 列 ずつ 指定 し 、[Data] 
プロ パテ ィ に 値 を 設定 し て いき ます 。 こ こ で は 、GB ク ラス の ハー ド デ ィ スク の 容量 
を グラ フ に する わけ で すか ら 、 わ か りや すい グラ フ デ ー タ に な る よう に 、「1000000」 
で 割っ た 数 値 を 、CInt 関 数 で 整数 化し て 、MB 単 位 で グラ フ 化 する よう に し て いま 
す ( 例 : 450.560.000 バ イト = 約 451MB) 。 














Lesson 31 ディ スク の 空き 容量 を 把握 す 


With MSChar ェ モ 1 
・Co1umn = 1 
・Data = CTnt(FreeTota1 / 1000000) 
・Co1umn = 2 
・Data = CTnt(Useqdmota1 / 1000000) 
End With 


これ で 、[Check] ボタ ン が クリ ッ ク さ れれ ば 、 ド ライ ブ の 容量 に 関す る 情報 を フ 
ォ ー ム に 円 グラ フ で 表示 し ます 。 そ し て 、 最 後に [終了 ] ボタ ン に プロ グラ ム の 終 
了 処 理 を 作成 し て 、 完 成 で す 。 


P ェ 1 ュ ate Sub 互 x ふ 上 BEn C11oCk( ) 
Un1oad Me 
End 

End Sub 


値 渡 し と 参照 渡し 


DLL の プロ シー ジャ で は 、 引 数 は 値 渡し で や り 取 りさ れ て いま す 。「 値 渡し ] と は 、 コ ー ド を 
実行 する の に 必要 な 実際 の 値 そ の も の を 運用 する や り 方 で す 。 ま た 、C 言 語 で は 、 配 列 以外 の す 
べ て の 引数 が 値 渡し で 渡さ きれ て いま す 。 

一 方 、Visual Basic で は 通常 、 特 に 指定 し な けれ ば 「 参 照 渡し ] で 引数 の や り 取 り が 行わ れ て 
いま す 。 参 照 渡 し は 、 実 際 の 値 で は な く 、 値 の ある 格納 場所 を 運用 し ます 。 

その た め 、Visual Basic で の 参照 渡し の 値 を を の まま DLL プ ロ シ ー ジ ャ に 引き 渡す と 、 プ ロ 
グラ ム が 正常 に 動作 し ませ ん 。 ま た 、 逆 に Visual Basic で 値 渡 し を 行う と 、 プ ログ ラム に よっ て 
は 不具 合 を 起こ し て し まう も の も あり ます 。 Visual Basic プロ グラ マー は 作成 し て いる プロ グラ 
ム で 何 を し た い の か を 見 極め 、 デ ー タ の 渡し 方 を 状況 に 応じ て 変更 する 必要 が あり ます 。 

ちな み に 、 引 数 を 値 渡 し で 渡す た め に は 、Declare ス テー トメ ント の 引数 の 宜 言 で 「ByVal」 
キー ワー ド を 記述 し ます 。 明 示 的 に 記述 し な いも の は 自動 的 に 参照 渡し に な り ま す 。 た と えば 、 
次 の プロ シー ジャ で は 、 第 1 引数 は 参照 渡し 、 第 2、 第 3 引数 は 値 渡 し で 渡さ きれ て いま す 。 


Dec1are Funoion TnF1ateRect エ Lib "user32" 
A1ias "TnF1ateReo モ 上 " (1pReo As RECT, ByVa1 xx As Long, 
ByVa1 y As Long) As Long 


いずれ に せよ 、API 関 数 を 使い こなす に は 、 よ り 高 度 な プロ グラ ミン グ 知 識 が 要求 され ます 。 
本 書 で は その 触り だ け を 、 で きる だ け わ か りや すい よう に 解説 し まし た 。 も し 、API を 利用 し 
た プロ グラ ミン グ に つい て も っ と 知り た い 場 合 は 、 他 の 解説 書 も 参考 に し て みて くだ さい 。 
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ドラ イブ や ディ スク に 関す る 情報 は 、Visual Basic だ け で は 把握 で きま せん 。 フ ァ 
イル シス テム を 操作 で きる API を 使用 すれ ば 、 プ ログ ラム の 幅 も 広がり ます 。 フ ァ イ 
ラー な どの ファ イル ユー ティ リティ プロ グラ ム を 作成 する と き は 、 こ れ ら の 便利 な 
API も 有効 に 使用 し て くだ さい 。 

Win382API に は 、 ま だ まだ た くさ ん 便利 な 機能 が 揃っ て いま す 。 ぜ ひ 、API バイ ブ 
ル や Win32SDK な どか ら 情 報 を 入手 し て 、 自 分 の プロ グラ ミン グ に 役立て て くだ さい 。 


6 作成 し た プロ グラ ム に 、 指 定 し た ドラ イブ の タイ プ ブ を 表示 する 機能 を 
組み 込ん で くだ さい 。 


フレ ー ム コン トロ ー ル の 
キャ プシ ョ ン に ドラ イブ 
の タイ プ を 表示 


【 ヒ ント 】 

API 関数 「GetDriveType] は 、 指 定 し た ドラ イブ の タイ プ を 返し て 
きま す 。 た と えば 、「CDROM」 と か 「RAMDISK」 な ど 、 ド ライ ブ の 種 
類 を 定数 で 返し て きま す 。 


【 関 数 】 
Dec1are Funoion エ Lib "jkerne132" A1ias 
"GetDrivemypeA" (ByVa1 nDrive As String) As Long 


【 定 数 】 

Pub1ic DRTVE CDROM = 5 
Pub11c DRTVE FT エ TXED = 3 
Pub1ic DRTVE RAMDTSK = 6 
Pub11c 

Pub1ic 


解答 は 巻末 に 一 








] 0 ー (Lesson38 ~ Lesson36) 
Excel を Visual 






































Basic で 操作 する 






Microsoft Excel で は 、Excel を 構成 する すべ て の 要素 を Visual Basic か ら で も 
操作 で きる よう に な っ て いま す 。 そ し て 、 個 々 の オブ ジェ クト に は 、 プ ロ パ ティ と 
メソ ッ ド 、 イ ベン ト が 組み 込ま れ て お り 、 こ れ ら は 、Excel の マク ロロ 言語 
「Visual Basic for Application」 (略し て 「VBA」) か ら 、 自 由 に 操作 で きま す 。 


本 日 の レッ スン で は 、 主 に Excel と Word を 使っ て 、Visual Basic か ら Office 
アプ リケーション を 操作 する テク ニッ ク を 紹介 し て いき ます 。 
今日 の レッ スン で 解説 する 項目 
ロ Excel オブ ジェ クト の イン スタ ンス の 作成 と オブ ジェ クト へ の アク セス 
唱 Excel の オブ ジェ クト 構造 
品 参照 設定 の 方 法 と 機能 
ロロ オブ ジェ クト ブラ ウザ で Excel オブ ジェ クト を 調べ る 
Excel の ヘル プ フ ァ イ ル の 活用 
オブ ジェ クト 変数 の 設定 と 解放 
口 新しい ブッ ク の 追加 と ワー クシ ー ト の セル お よび セル 範囲 の 参照 方 法 
[フォーム ・ コ ント ロー ル か ら セ ル へ の デー タ の 代入 、 セ ル か ら の デー タ の 取得 
ロロ オブ ジェ クト 名 の 取得 と 操作 プロ パテ ィ 
ロロ ファ イル か ら の Excel の 起動 と 終了 、 ブ ッ ク を 閉じ る 操作 と 保存 
[フォーム の Unload イベ ント の 活用 
口 非 表 示 状 態 で の Excel の 操作 
Err オブ ジェ クト と その プロ パテ ィ 
ロロ Window オブ ジェ クト の 操作 
ワー クシ ー ト 関数 の 使用 方 法 と 活用 例 
ロ Range オブ ジェ クト の 把握 と [Cells] プロ バ パティ の 操作 
ロロ フォーム と ワー クシ ー ト の 連携 操作 
































Excel 操作 の 
lll 操作 の 草本 知識 
四 時 まず 、 手 始め に Visual Basic で Excel 97/2000 (以下 Excel) を 操 

















作 す る 基本 的 な テク ニッ ク を 身 に 付け ます 。 ま た 、Excel を 構成 する オ 
ブ ジ ェクト の 構造 に つい て の 基礎 的 な 知識 を 身 に 付け ます 。Visual 
Basic に 「Excel オブ ジェ クト 」 を 操作 で きる よう に 設定 する と 、 オ ブ 
ジェ クト ブラ ウザ を 使っ て Excel の オブ ジェ クト と その プロ パテ ィ 、 
メソ ッ ド 、 イ ベン ト を 把握 で きま す 。 ま た 、Visual Basic の コー ドウ 
ィ ン ド ウ か ら 、Excel お よび VBA の ヘル プ フ ァ イ ル を 参照 で を ます 。 
この レッ スン で は 、 こ れ ら の ツー ル を 有効 に 活用 し な が ら 、Visual 
Basic の プロ グラ ム か ら Excel を 操作 する コー ド を 作成 し ます 。 


今回 作成 する プロ グラ ム 








1 時 限 目 Bee 逆 1 ボタ ン を クリ ッ ク す る と .… 
Eee の 了 は 、 Eee で 行っ て くだ さい 。 
1 Moocot tooal- Bk = 加 l 
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至 | Hello Visual Basio 


1 Lessan32.Vbp 
@⑯) V86CD2 
コマ コ Lesson32 


li 月 中 い Shccu /Shest2ZSheats | 1 紀 品 
コマ ンド ド 字 に で 下 


フォ ー ム に 配置 し た コマ ンド ボタ ン を 使っ て Excel を 起動 し 、 新 
し い ブ ッ ク を 追加 し ます 。 そ し て 、 ワ ー ク シー ト 「Sheet] 」 の セル 
「A1]」 に 、「Hello Visual Basicl] と いう 文字 を 挿入 し ます 。 挿入 
し た 文字 は 、 フ ォ ン ト サ イ ズ を 18 ポイ ント の 青色 に し 、 セ ル 幅 を 
その 文字 に 合わ せま す 。 こ れ ら の Excel の 操作 を すべ て 、 作 成 し た 
Visual Basic の プロ グラ ム で 行い ます 。 


3【] 


Lesson 32 Excel 操 作 の 基本 知識 


日 コン トロ ー ル と プロ パテ ィ の 設定 

※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 

【 注 意 】 

この 10 日 目 の レ ッ ス ン で は 、Excel (97 以降 ) が 組み 込ま れ て い 
る こと を 前 提 と し ます (本 書 で は Excel2000 を 使用 し ます )。 
Excel が イン スト ー ル され て いな い 場 合 は 、 レ ッ ス ン を 開始 する 前 
に イン スト ー ル し て くだ さい 。 サ ンプ ルプ ログ ラム は Excel が な い 
と 動作 し ませ ん 。 な お 、 付録 CD-ROM に は Excel は 収録 され て い 
ませ ん 。 


フォ ー ム の 【[Caption] プロ パテ ィ を 「Excel 操作 
プロ グラ ム 」 に 変更 する 
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皮 Ppearancg 1 - 3D 


AutoRedraw False 
BackColor 目 &H80O0O0F& 
BoarderStyle 2 - 可 実 


Excel 折 作 プロ グラ ム ューーーーー 一 生 ここ を 変更 
True 


True 

13 - Copy Pen 

0 - 実線 (中 心 線 ) 
1 





コマ ンド ボタ ンコ ント ロー ル を 配置 し 、[Caption] 
プロ パテ ィ を 「Book を 開く 」 に 変更 する 


に 性 dI に B』I レ と 7 



















m ョ 配置 し て プロ パテ ィ 
= Baok を 開く | を 設定 し た コマ ンド 


ボタ ンコ ント 





ロー ル 








コマ ンド ボタ ン を 

ン 配置 する 
コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 
の [CommandButton] | 衝 
を 使い ます トペ 
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ラベ ルコ ント ロー 
ぐ ダ ル を 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル バレ 
ッ ト の [Label] | 典 | を 使 
いま す 。 2 


Eoelg フ の 場合 


Excel97 を 操作 する 場合 
は 、「Microsoft Excel 80 
Object Library」 を チェ ッ 
も ます , 


人 18 















ラベ ルコ ント ロー ル を 配置 し 、[Caption] プロ パテ 
ィ の 文字 を 削除 する 


に 間 ら コ 8 ネ 」 










配置 し プロ パテ ィ 
の 文字 を 削除 し た 
ラベ ルコ ント ロー ル 


竹 Visual Basic の [プロ ジェ クト ] メニ ュー の [参照 


設定 ] を クリ ッ ク す る 












民 ・ き ・ 居 愛 回 カム や 5ー ル の 3 師 加 ⑤) 
9 MDI フ ォ ー ム もら ー ル の ) 師 加 ① 


ル 箇 | 3 に 
< 人 モー ル の 0 
に つ - ペ | の メモ 5- ル の 追加 ⑯) 
g ま | 暫 ュ -9ー ヤ In-A の 追加 (⑪) 
kN 還 A 思 回 7mA テ 1 ペー ツ の 追加 ⑤) 
届 肖 コ ” DHTML Paee の 
Pc 還 6 
国 sg 3 
ら コ 
国 @ て 
回 回 夫 ここ を クリ ッ ク 


「Microsoft Excel 9.0 Object Library」 を チェ ッ 
ク し 、[OK] ボタ ン を クリ ッ ク す る 


に 正 Lesson32 ybp 

苦 照 可能 な ぅ 7 ラリ ファ イ (@ 
ツ Visual Basic For Applicatiars 
ツ Visual Basic runtime objects and procedures 


ツン Visual Basic objects and procedures 
ツ OLE Automation 
ン OSI 計る 






ここ を クリ ッ ク 


Aactive Setup Control Library 
ActiyeMMovie control type library 
ActveX Conference Control 
ActiveX DLL to perform Migration of MS Reposit 
ATL 20 Type Library 
CAPICHKR 

CCrsWpp 1.0 Type Library 
CFtpWpp 1.0 Type Library 


rvnfeyf 1 Tvnm lihrarv 
Microsoft Excel 90 Object Library こそ 
場所 。 c\Program Files\Microsoft OfficeWOfficeWEXCEL9.OLB | 
言語 標準 
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ウォ ー ム ルイ アウ トウ ォ ィ ッ シン ドウ で 、 フ ォ ー ム を デス 
クト ッ プ の 左上 に 移動 する 





に ドラ ミッ ク グ 5 
て 移動 



























室 コ ー ド の 記述 





紳 Form1:Command1-Click 





[Command1 <] [Ciick | 
Erivyate Sub Command1 C1ick( ) 
Dim AppXLS As Ob]ject 





Se 上 AppXTLiS = CreateOb]ect ( "exxCe1 . app ユ Ca モ ュ on .9" ) 
With AppXT.S . App1 1 で Ca モ ュ on 
・Workbookks .AdQ 
-Visib1e = True 
With .Workkbooks ( 1 ) .Worksheets ("Shee1") .Range("A1") 
-Va1ue = "He11o Visua1 Basio!" 
-Font.Size = 18 
-・Fon モ .Co1orTndex = 5 
-Co1ummS (" 入 :A" ) .Au モ OF ュ モ 
End With 
End With 


Command1 . Se 上 FOCuS 

MsgBox "Exxce1 を 起動 し まし た 。" 

Se AppXLS = Nothing 

rabe11 .Caption = "Exce1 の 終了 は 、sxxce1 で 行っ て くだ さい 。 " 
End Sub 
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1 


Microsoft Excel 97/2000 を Visual Basic か ら 操作 する 際 に 、 操 作 対象 の オブ ジェ 
クト と し て 設定 し て お く と 、 オ ブ プ ジ ェ クト プラ ウザ で その アプ リケーション の オプ ブ 
ジェ クト に 関す る 情報 を 表示 で き 、 ま た 関連 する ヘル プ フ ァ イ ル を 参照 する こと が 
で きま ず 。 

Visual Basic の [プロ ジェ クト ] メニ ュー の [参照 設定 ] は 、 操 作 可 能 な オブ ジ 
ェクト を 、Visual Basic か ら 参照 で きる よう に 設定 する メニ ュー で す 。 こ の メニ ュ 
ー を 選ぶ と 、 参 照 可 能 な オプ ジェ クト ライ ブラ リ が 一 覧 表示 され ます 。 こ の 一 覧 か 
ら 、 操 作 し た い オ プ ブ ジ ェクト を 選ん で チェ ッ ク を 付け れ ば 、 フ ォ ー ム や コン トロ ー 
ル と 同じ よう に 、 そ の オブ ジェ クト に 関す る プロ パテ ィ や メソ ッ ド 、 イ ベン ト な ど 
の 構文 を Visual Basic の エディ タ で も チェ ッ ク で きる よう に な り ま す 。 


[ プ 回 ジェ ク ド ぜ X 呈 = コ デ の 
[参照 設定 】 を クリ ッ ク 


操作 し た い オ ブ ジ ェクト を 
選び 、 チ ェ ッ ク を 付け る 


| Actve Setup Control Library 
ActiveMovie control type library 
- ActiveX Conference Conrol 
| ActiveX DLL to perform Migration of MS Reposit 
TL 20 Type Lbrary 
APICHKR 











Microsoft Excel 97/2000 を 参照 可能 な オブ ジェ クト と し て 設定 する に は 、 こ の ラ 
イプ ラリ ファ イル の 一 覧 で 、Excel97 は [Microsoft Excel 80 Object Library] に 、 
Excel2000 は [Microsoft Excel 9.0 Object Library] に チェ ッ ク を 付け ます (Excel 
97 は 、 内 部 的 に は 「 バ ー ジ ョ ン 8.0」、Excel2000 は 「 バ ー ジ ョ ン 9.0| と し て 取り 扱 
われ て いま す )。 た だ し 、 参 照 設 定 が 行わ れる の は 、 設 定 を 行っ た 時 点 で アク ティ ブ 
に な っ て いる プロ ジェ クト ファ イル の み で す 。 し た が っ て 、 複 数 の プロ ジェ クト フ 
ァイル で Excel オ プ ジ ェ クト を 参照 する 場合 は 、 個 々 の プロ ジェ クト ファ イル ご と 
に 参照 設定 を 行う 必要 が あり ます 。 
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つろ = オプ ジェ クト を 参照 設定 する と 、 オ プ ジ ェ クト プラ ウザ の 対象 ライ プラ リ に も 、 
その オプ ジェ クト が 組み 込ま れ ま す 。 そ の オプ ジェ クト が どの よう な オプ ジェ クト 
で 構成 され て いる の か 、 保 有 し て いる メソ ッ ド や プロ パテ ィ の 種類 や 概要 な ど を 、 
オプ ジェ クト ブラ ウザ で 知る こと が で きま す 。 





Excel の クラ ス と 







ーー 

| ワー クシ ー ト (Worksheets) | 
- グラ フ (Chars) | 
- 午 類 の ブロ バテ ィ (DocumentProperties) | 
「 VB プ ロジ ェクト (VBProject) ES 
| カス タム ビュ ー (CustomView) | ビ グ ( OS 

「 Script Editor の プロ ジェ クト (HTMLProject) | | ダイ アロ グ ボ ックス (Dialogs) | 

ー ブッ ク 内 の コマ ンド バー (CommandBers) | ーー アプ リケーション 内 の コマ ンド バー (CommandBars) | 

- ビ ポ ッ ト テ ー ブ ル の キャ ッシュ (PivotCaches) ー 言 計 nguageSettings) ”。。 

ーー 名 前 (Names) | 
ト ウィ ンド ウ (Windows) | 

| | ウィンドウ (Panes) ] 












スタ イル (Styles) 





ト 名 前 (Names) | 
「 ブッ ク の 回 覧 先 (RoutingSlip) |] 
ト Web ペ ー ジ の ブッ ク 内 アイ テム (PublisShObiects) | 


ッ ク 民 性 (WebOptions) 
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| ウィ ンド ウ (Windows) | | 最近 使用 し た ファ イル リス ト (RecentFles) | 
ウィ ンド ウ 枠 (Panes) | - ワ ァ イル を 本 <] ダイ アロ グ ボ ックス (PleSearct) | 


ト VBE+ ブ ジェ クス RitVBEE 3 NT* さ - ニ 
ヒ OODBCEErrors オ ブ ジ ェクト (ODBCErrors) | 
+ 一 OLEDBErrors オ ブ ジ ェクト (OLEDBErrors) | 
Web ペー ジ の アプ リケーション 周 性 (DefautWebOptions) ] 
凍 フ ジェ ッ ト の み 


テア ェ タ ト と コレ クシ ョ ン 








う 


ワー クシ ー ト の オブ ジェ クト 構造 


ワー クシ ー ト (Worksheets) | 
記 名 前 (Names) | + 一 コメ ント (Comment) | 
3 に | Pa ペー ツ CrPaeseeat)。。。=。、。、。、 | 
ーッ cressesas)。。==。 | 
トム マー リ ッ ク Gboewwb。。。 | 
ト - ジ smo {ll 
| 5 ゴ フ ジェ クト (OLEopect)。。。、。 | 
=maesseep))。=。=。=。。 | 
タモ リー テー ラル (ovorapes)。。。、 | 
ーー ウッ ー タ Cwmeey | 
| ビット テ ー ブ ル homaeev。。=。。 | 
ーー ビッ ト テ ー フ ル の キャ ッシュ (Pwotcsae) 。 | 
ト 条件 付き 講 式 (FormatConditions) | ー ビ ポ ボッ ト テ ー プ ルフ ィ ー ル ド (PivotFields) | 
ビ ポ ボッ ト ア イ テ ム (Pivotitems) | 
も っ 「- OLAP キュ ー ブ (CubeFields) | 
リー OLE オ プ ジ ェ クト (OLEObjects) ] 
ーー グラ フォ オブ ジェ クト (ChartObjects) ] 
に と と スモ うー = と 


「 オートフィルタ の 簡 四 の フィ ル タ (Fiters) | 
間 チ フジ ェクト o み 


| デフ ジェ クト と コレ クシ ョ ン 











- HTML ス クリ プ ト コ レク ショ ン (Scripts) | 


Excel を 構成 する すべ て の 要素 は 、 オ ブ プ ジ ェ クト と し て 扱う こと が で きま す 。 
Excel は 、Excel 自 身 を そ を の オプ ジェ クト の 頂点 と し て 、 階 層 構 造 杖 に オブジェ クト 
を 組み 立て て いま す 。 し た が っ て 、 ど の オブ ジェ クト が どの 部 分 を 構成 し て いる の 
か 、 ど の よう な プロ パテ ィ や メソ ッ ド を 持っ て いる の か を 知ら な けれ ば 、FExcel を 
操作 で きま せん 。 

オプ ジェ クト ブラ ウザ で Excel を 対象 オプ ジェ クト に 設定 する と 、 操作 可能 な オ 
プ ジ ェ クト が [クラス ] に 一 覧 表示 され ます 。 た と えば 、[ ク ラス ] か ら 
[Worksheet] を 選ぶ と 、Worksheet オ プ ジ ェ クト が 持っ て いる メソ ッ ド 、 プ ロ パ テ 
ィ 、 イ ベン ト が 、 右 の ウィ ンド ウ に 一 覧 表示 され ます 。 
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オジ ジ ギ モク ドリ 区 下 


ワー クシ ー ト の プロ パテ ィ 、 
メン ソン ッ ド 、 イ ベ シ ト リス トド 


画 Validation 
. 画 VPageBreak 
計 Application 
S AutoFilter 
AutoFilterMode 
BeforeDoubleClick 














画 

良 XIApplicatianinternatic 
| 良 XIApplyNamesOrder 
= XIArrangeStyle 





そし て 、 知 り た い 項 目 を クリ ッ ク し て [? ] ボタ ン を クリ ッ ク す れ ば 、 そ の 項目 
に 関す る ヘル プ を 表示 で きま す 。 


| Worksheet オプ ジェ クト 
| 関連 項目 * 和 


Excele000 で は HTML 
形式 の ヘル プ が 表示 され る 


| の Activate | 
| Pctivate | ワー ラシー ト を 系 し ます 。 Werksheet オプ ジェ クト は Werksheets コレ クシ ョ ン の > と リー で す 。 
| Neelg コレ クシ ョ ン に は 、 ブッ クタ に ある すべ て の Worksheet ゴブ ジェ クト が 含ま れ て いま 


W Application 
AutoFilter 
ESW nutoFierMode 
BefareDaubleClick 
ぢ BeforeRightClick 
= Calculste 


| 使い方 
| Worksheet オプ ジェ クト を 取組 する プロ パテ ィ を 以下 に 記述 ます 。 
| ・ Worksheets プロ パテ ィ 
* ActiveSheet プロ リティ 
| RM ブ プロパティ 
人 の Worksheet オプ ジェ クト を 取得 する に は 、 Worksheetstince プロ パテ ィ を 人 用 。 ま す 。 


| 生か ワー クシ ー ト の イン デ いこ 次 の 使用 位 は 、 作業 
| 中 の ブッ ク の ワー クシ ー ト 1 大 表示 に し ま 


rksheets(1).Visible = False 





衝 。 HTML 形 式 の ヘル プ で は 、 左 側 に 日 次 を 表示 し 、 こ こ か ら 知 り た い 情 報 を 調べ る 
こと も で きま す 。 
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ま 
前 人 2 の ワ ーー 
上 で # ま ニレ キナ 。 





新た に 表示 され た 目次 か ら 、[Microsoft Excel Visual Basic リフ ァ レ ンス ] を 選 
べ ば 、Excel に 関す る Visual Basic の リフ ァ レ ンス を 読む こと が で きま す 。「 検 索 」 
タプ を 使え ば 、 キ ー ワ ー ド で の 検索 も 可能 で す 。 


単語 で ヘル プ を 
検索 で きる 








Excel に は 、Excel の 操作 を 自動 化す る マク ロ 機 能 を 搭載 し て いま す 。 そ し て 、 こ の 
マク ロ は 、Visual Basic を ベー ス に 、 ア プリ ケー ショ ン の マク ロ 用 に 改修 され た 言語 
「Visual Basic for Applications」 (VBA) で 作成 され ま - 

す 。 山 | すく -] 
VBA は 、Visual Basic と ほぼ 同様 の ステ ー ト メン ト (f EE X( 

ステ ー ト メン ト や For.….Next ステ ー ト メン ト な ど ) で 処理 入門 教室 
を 制御 で き 、 文 字 列 処理 や 日 付 時 刻 の 関数 も 、Visual VBA ご 
Basic と 同様 の も の が 使用 で きま す 。 

VBA の 詳し い 使 い 方 に つい て は 、 小 社 か ら 「10 日 で お 人 2 
ぼ え る Excel VBA 入門 教室 2000 対応 | が 出版 され て い 人 
ます の で 、 ぜ ひそ ちら も ご 利用 くだ さい 。 


クラ 





ぅ 
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で は 、 実 際 に プロ グラ ム を 作成 し な が ら 、Excel を 操作 する 方 法 に つい て 理解 を 
深め て いき まし ょ う 。 こ の プロ グラ ム は 、 プ ログ ラム か ら FExcel を 起動 し 、 ワ ー ク 
シー ト に 文字 を 挿入 し ます 。 

Excel の すべ て の 操作 を プロ グラ ム の コー ド か ら 行 いま す 。 な お 、 こ の プロ グラ 
ム で は 、Excel の 終了 は Excel 側 の 終了 操作 で 行う よう に し ます 。 


① フ ォ ー ム に 配置 し た コマ ンド ボタ ン を クリ ッ ク す る と 、Excel の イン スタ ンス を 
作成 し ます 。 

②Excel に 新しい ブッ ク を 追加 し 、 表 示し ます 。 

③ セ ル 「A1| に 、 文 字 列 「Hello Visual Basicl| を 挿入 し ます 。 

④ そ の 文字 の フォ ント サイ ズ を 「18| に 、 文 字 色 を 青色 に 変更 し ます 。 

⑤ セ ル の 幅 を 、 文 字 列 の 幅 に 合わ せま す 。 

⑥ フ ォ ー ム に 配置 し た ラベ ルコ ント ロー ル に 、 メ ッ セ ー ジ を 表示 し ます 。 


処理 は すべ て 、 コ マン ド ボ タ ン の イベ ント プロ シー ジャ で 行い ます 。 
最初 に に オブ ジェ クト 変数 「AppXLS| を 宣言 し て お きま す 。 


Erivate Sub Command1 C1ick( ) 
Dim AppXLS As Ob]jeo 


Excel を Visual Basic か ら 使用 する に は 、 ま ず 「CreateObject」 関数 を 使っ て 、 そ 
の オブ ジェ クト の イン スタ ンス を 生成 し ます 。「CreateObject」 関数 の 引数 に は 、 
作成 する イン スタ ンス の 元 に な る アプ リケーション 名 を 指定 し ます 。 

この 関数 は 、 第 7 日 の 「Lesson 22 イン ター ネッ ト エ クス プロ ー ラ を 操作 する 」 
で 使用 レ し てい ます 。 Lesson 22 で は 、「CreateObjectl 関数 の 引数 に は 
| InternetExplorer.application」 を 指定 し まし た が 、Excel2000 の 場合 は 、 
[excelapplication.9] と 、 バ ー ジ ョ ン 番 号 ま で 指定 し ます (Excel97 は 「8])。 

「CreateObjectl 関数 が イン スタ ンス の 作成 に 成功 する と 、 そ の オブ ジェ クト 名 
を 返し て きま す の で 、Set ス テー トメ ント で オブジェ クト 変数 「AppXLS」 に 格納 し 
て お きま す 。 こ の オブ ジェ クト 変数 は 、 あ と で Excel の 各 オ ブ ジ ェクト を 操作 する 
際 に 使用 し ます 。 


Set AppXLS = CreateOb]jeoct ( "exce1 . app11oCation.9") 


Excel の イン スタ ンス を 作成 し て も る 、 こ の まま で は ワー クシ ー ト は 操作 で きま せ 
ん 。 Excel に 新しい ブッ ク を 追加 する 必要 が あり ます 。 プ ブッ ク の 追加 は 、 
「 Workbooks] オブ ジェ クト を 指定 し て 「Add] メソ ッ ド を 実行 し ます 。 

Excel の VBA で は [Workbooks] プロ パテ ィ を 使用 する と 、[「Workbooks| オブ 
ジェ クト を 指定 する こと が で きま す 。 や や こし い 話 に な り ま す が 、 こ の 辺 が 、 
Excel 独 特 の オブ プ ジ ェ クト 構造 と プロ パテ ィ の 仕組 み に な っ て いて 、 つ まり 、 オ ブ 
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ジェ クト の 名 称 と 同じ 名 前 の プロ パテ ィ を 使う と 、 そ の オプ ジェ クト が 取得 で きる 
よう に な っ て いま す 。 

。 また 、 ブ プ ブック や ワー クシ ー ト 、 セ モル な どの よう に 、 同 じ オ プ ジ ェ クト が いく つも 
集まっ て いる も の を 、「 コ レク ショ ン オ プ ジ ェ クト 」| と 呼ん で いま す 。 た と えば 、 
「 Worksheet] オプ ジェ クト は ワー クシ ー ト 単体 を 指し ます が 、 い くつ も ある ワー ク 
シー ト を まとめ て 「Worksheets] コレ クシ ョ ン オ ブ ジ ェクト と し て 扱い ます 。 

プ ブッ ク を 追加 する 場合 は 、「Workbooks| コレ クシ ョ ン オ ブ ジ ェクト を 指定 し て 、 
「Add] メソ ッ ド を 実行 し ます 。 こ の と き 、 親 の オプ ジェ クト に 、 イ ンス タン ス で 作 
成 し た Excel オ ブ プ ジ ェ クト を 指定 し て お きま す 。1 つ の ブッ ク で も 「Workbooks」 
に な り ま す 。 


With AppXLS .App11cation 
・Workboojks .AdQd 


プ ブック を 追加 し た ら 、Excel オ プ ジ ェ クト の [Visible] プロ パテ ィ に 「Truel」 を 
設定 する と 、Excel と 新規 に 追加 し た ブッ ク が 表示 きれ ます 。 


還っ 新規 に 追加 
名 三 … : 記 | され て 表示 され る 


・Visib1e = True 





この [Visible] プロ パテ ィ と [Workbooks] プロ パテ ィ は 、Excel で は 
「Application] オプ ジェ クト に 属す る プロ パテ ィ に な り ま す 。[「Application| オブ ジ 
ェクト と は 、Excel 自身 を 指す オプ ジェ クト の こと で 、 こ の オブ ジェ クト が 所 有 す 
る プロ パテ ィ を 使用 すれ ば 、Excel の 起動 や 終了 、 表 示 形 襲 、 表 示 サ イズ な ど を 指 
定 で きま す 。 通常 、Excel 自 身 を 操作 する 場合 は 、「Application] オブ ジェ クト を 対 
象 オ プ ジ ェ クト に 指定 し て 、 プ ロ パ ティ や ヤメ ソ ッ ド を 操作 する こと に な り ま す 。 
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LUserLibraryPath 
計 UserName 

= Value 

SW VBE 


オブ ジェ クト ブラ ウザ で 調べ た 
Excel の 「Application] オブ ジ 
ェクト の プロ パテ ィ や メソ ッ ド 





和 CalculatedFields 
Calculotodtone 








8 フッ ク を 追加 し て 表示 し た ら 、 ワ ー ク シー ト [Sheetl」 に 文字 を 挿入 し ます 。 ワ 
ー ク シー ト は 、「Workbook」 オブ ジェ クト の 中 の 「WorkSheets|」 コレ クシ ョ ン オ 
プ ジ ェ クト と し て 扱わ れ ま す 。 

ブッ ク に は 、 何 枚 も の ワー クシ ー ト が 組み 込ま れ て お り 、 グ ラフ シー ト な ども 組 
み 込 まれ て いま す 。 こ れ ら は 、1 つ 1 つの オプ ジェ クト に な っ て お り 、 単 体 で は 
「 WorkSheetl オブ ジェ クト と し て 、 ワ ー ク シー ト 全 体 で は 「WorkSheets] コレ ク 
ショ ン オ プ ブ ジ ェクト と し て 扱う こと が で きま す 。 

「 Workbook] オブ ジェ クト の [WorkSheets] プロ パテ ィ を 使用 する と 、 単 体 の 
「WorkSheet] オブ ジェ クト を 取得 で きま す 。 こ の プロ パテ ィ は 、 引 数 に 取得 し た 
い ワ ー ク シー ト 名 また は イン デック ス 番 号 を 指定 し ます 。 

Excel オ ブ プ ジ ェクト 「AppXLS」 の ワー クシ ー ト [Sheetll に アク セス し た い 場 
合 は 、 次 の よう に 記述 し ます 。 


AppXLS . Workbookks ( 1 ) .Worksheets ("Sheet1") 


この と き 、 ど の ブッ ク の ワー クシ ー ト な の か を は っ きり させ る 必要 が あり ます か 
ら 、 ブ ッ ク の オブジェ クト 指定 を [Workbooks] プロ パテ ィ で 指定 する 必要 が あり 
ます 。[Workbooks] プロ パテ ィ は 、 ブ ッ ク の 名 前 また は イン デック ス 番 号 を 引数 
に 指定 する と その オブ ジェ クト を 参照 で きま す 。 

ブッ ク の 名 前 が わか ら な い 場 合 は 、 番 号 で ブッ ク を 指定 する と 便利 で す 。 こ こ で 
は 、 新 し い ブ ッ ク を 1 つ 追 加 し た だ け な の で 、「Workbooks(1)」 と 記述 すれ ば 、 そ の 
ブッ ク を 指定 で きま す 。 
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今度 は 、 ワ ー ク シー ト 内 の セル 「A1l| を 指定 し て 、 文 字 を セ モル に 代入 し ます 。 セ 
ル は 「Range] と いう オブ ジェ クト で 扱い ます 。 こ の オブ ジェ クト を 取得 ・ 参 照 す 
る に は 、[Range] プロ パテ ィ を 使用 し ます 。 引 数 に 指定 し た い セ ル 番 地 を 記述 し ま 
す 。 


Range ("A1") 


これ で 、 や っ と セル 「A1| を 指定 で きま し た 。 こ の よう に 、Excel で は セル 1 つ 
を 取っ て みて も 、 同 じ よ うな も の が いく つも 存在 し て いま すか ら 、 ど の オプ ジェ ク 
ト に 属す る どの オプ ジェ クト な の か 、 を 階層 状 に 指定 し て いか な けれ ば な り ま せん 。 

この プロ グラ ム で は 、Excel の イン スタ ンス で ある オブジェ クト 「AppXLS」 の 1 
番目 の ブッ ク の 、 ワ ー ク シー ト 「Sheetll の セル 「A1l を 操作 する こと に な り ま す 
か ら 、 こ れ ら の オプ ブ ジ ェクト 名 を 順番 に つなげ て 記述 する 必要 が あり ます 。 


AppXLS . Workbooks ( 1 ) . Worksheets ("Sheet1") .Range("A1") 


オブ ジェ クト 「appxrs] の 1 番目 の ブッ ク の ワー クシ ー ト 「sneet1」 の セル 「A1」 


セル に 値 を 代入 する に は 、「Range」 オブ ジェ クト の 「[Value]」 プロ パテ ィ に その 
値 を 代入 し ます 。 文字 列 の 場合 は 、" (ダブ プル クォーテーション ) で 囲ん で 記述 し 、 
数 値 の 場合 は 直接 数 字 を 代入 し ます 。 


・Va1ue = "He11o Visua1 Basic!" 





っ Mevd に 


Helo VisuslBssig 。。 
Hs 


セル に 文字 列 が 入力 
され た 
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セル の フォ ント サイ ズ を 変更 する に は 、「Font] オブ ジェ クト の [Size] プロ パテ 
ィ に サイ ズ を 数 値 で 代入 し ます 。 ま た 、 文 字 色 を 変更 し た い 場 合 は 、「Font] オブ 
ジェ クト の [ColorIndex] プロ パテ ィ に 色 番 号 を 設定 し ます 。 


-Fon.Size = 18 
・Fon モ .Co1orTndex = 5 


Excel で は 、 文 字 属 性 は すべ て 「Font] オプ ジェ クト と し て 扱わ れ ま す 。Excel で 
使わ れる 文字 は 、 セ モル だ け で は あり ませ ん 。 グ ラフ で も コメ ント で も 図形 で も 使用 
きま 935 し た が っ で 。、 ジ フォン トド だ け を 1 つ に ま ど め で 痢 玉 し た 本 ジジ ェクト 下 と し 
て 取り 扱う よう に し 、 ど の オプ ジェ クト の フォ ント を 操作 する の か 、 親 の オプ ジェ 
クト を いっ し ょ に 指定 する よう に な っ て いま す 。 

Font オ プ ジ ェ クト に は 、 い くつ も の プロ パテ ィ が 用 意 き され て お り 、 フ ォ ン ト に 関 
する いろ いろ な 設定 が 行え ます 。 












ーーーーーーーーーーー「 


IE 






Microsoft Excel Vaual Bee リコ フ ーーー 
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Excel の 操作 の 最後 は 、 セ ル 幅 を 文字 の 長き に そろ える 操作 で す 。Range オブ ジ 
ェクト の [Columns] プロ パテ ィ を 使う と 、 引 数 に 指定 し た 列 範 囲 す べ て を オブ ジ 
ェクト と し て 把握 で きま す 。 ま た 、Range オプ ジェ クト の 「AutoFit| メソ ッ ド は 、 
指定 し た セル の 幅 や 高き を 、 セ モル の 内 容 に 合わ せ て くれ ます 。 必 ず 列 また は 行 全体 


を 指定 し ます の で 、 セ ル 幅 の 場合 は [Columns] プロ パテ ィ と 組み 合わ せ て 実行 し 
ます 。 


・Co1umns ("AA:A" ) .AutOF ュ モ 


セル の 高 さ を 内 容 に 合わ せる 場合 は 、[Rows] プロ パテ ィ と 組み 合わ せま す 。 ま た 、 
これ ら の [Columns] 、[Rows] は Visual Basic の リス ト ボ ックス コン トロ ー ル の 


スク ロー ル 方 向 を 決め る と き に も 同名 の プロ パテ ィ が 使用 され ます か ら 、 混 同 し な いよ 
うに 注意 し て くだ さい 。 


ここ で 、 一 度 フ ォ ー ム に フォ ー カ ス を 戻し ます 。 も し フォ ー カ ス を 戻さ な いで お 
く と 、 フ ォ ー カ ス は Excel に 移動 し た まま に な り ま す (Excel の ウィ ンド ウ が 最前 面 
に 表示 され た 状態 )。 

そし て その 後 、 メ ッ セ モー ジ ボッ クス で Excel を 起動 し た こと を 知ら せま す 。 


Command1 . Set 上 FoOCu8 
MsgBoxx "Exxce1 を 起動 し まし た 。 


Excel の 終了 は 、Excel そ の も の の 操作 で 終了 する よう に し ます の で 、 プ ログ ラム 
と し て は 作成 し た イン スタ ンス の オプ ジェ クト 変数 を 開放 し て お きま す 。 こ れ は 、 
Set ス テー トメ ント で オブ ジェ クト 変数 に 「Nothing] を 代入 し ます 。 


Set AppXLS = Nothing 


最後 に ラベ ルコ ント ロー ル に メッ セー ジ を 表示 し て 終了 で す 。 


rabe11 .Caption = "Exce1 の 終了 は 、gsxxce1 で 行っ て くだ さい 。 
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Excel を 操作 する に は 、 ま ず 「CreateObject」 関数 で オブ ジェ クト の イン スタ ン 
ス を 作成 し ます 。 こ の と き 、 必 ず イ ンス タン ス の オブ ジェ クト 名 を オブ ジェ クト 変数 
に 格納 し て くだ さい 。 作成 した Excel の イン スタ ンス を 操作 する 際 に 、 こ の オブ ジェ 
クト 変数 を 使っ て 、Excel オブ ジェ クト を 指定 する か ら で す 。 

Excel の 個々 の 要素 は 、 す べ て オブ ジェ クト と し て 扱い ます 。 し た が っ て 、Excel 
を 構成 する オブ ジェ クト の 階層 と 概要 を よく 把握 し て いな いと な に も 操作 で きま せん 。 
Excel の オブ ジェ クト 構造 は 、 階 層状 に な っ て お り 少 し 複雑 で す (P.421 一 422 参 
照 )。Excel の ヘル プ を 良く 調べ て 、 オ ブ ジ ェクト と 保有 する プロ バテ ィ や メソ ッ ド を 
把握 し て お いて くだ さい 


上 Excel が 起動 する と き に 、Excel の 幅 を 「700」、 高 さ を 「500」 で デ 
スク トッ プ の 左上 に 表示 され る よう に 、 作 成 し た プロ グラ ム を 改修 し て 
くだ さい 。 
【 ヒ ント 】 
[Width] 、[Height] 、[Left] 、[Top] の 各 プ ロ パ ティ を 使用 し ます 。 


Ac 2 和信 い キネ SR Excel を サイ ズ と デス ク 


の トッ プ の 表示 位置 指定 で 
起動 する 








解答 は 巻末 に 一 
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⑯ VB6CD2 


白 - コ Lesson33 


ファ イル か ら オ ブ ジ ェクト を 作成 する 


前 の レッ スン で は 、 新 し い Excel オブ ジェ クト を イン スタ ンス と し て 
作成 し まし た 。 今度 は 、 起 動 し た い ア プリ ケー ショ ン の デー タフ ァイル 
が あら か じみ め 存 在 する 場合 に 、 直 接 ア プリ ケー ショ ン を 起動 し て ファ イ 
ル を 表示 する 方 法 を 紹介 し ます 。「GetObject」 関数 は 、 引 数 に デー タ 
ファ イル 名 を 指定 すれ ば 、 そ の まま アプ リケーション を 起動 し て ファ イ 
ル を 表示 で きま す 。 こ の 関数 を 使用 し て 、 直 接 フ ァイル 名 を 指定 し て 
Excel を 起動 する プロ グラ ム を 作成 し ます 。 


今回 作成 する プロ グラ ム 


_。 | ここ を クリ ッ ク す る こと 、 









ローテ ロ @Ay 昭 コー ビー 外 指定 し た ブッ ク が 開く 


11 = 























-B @- 
ファ イル 名 カメ ラ レン ズ 
alrportjpg PENTAX Z-50P 28-BOmm Power Zoom 








clockjng CanonAl 135mm 
hosejpg CanonAl 85mm 
ボー イ rse-1 jng Canon A1 85mm + クロ ー ズ アッ ブフ ィ ル タ 







windowjpg PENTAX Z-50P 28-B0mm Power Zoom 87 年 8 月 北海 





ここ を クリ ッ ク す る と 、Excel が 既に 起 
肖 動 し こ て い たら 、 そ の Excel に 指定 し た フ 
ァイル 開き 、Excel が 起動 し て いな か っ 
た ら 、Excel が 起動 し 、 フ ァイル が 開く 


ど つの コマ ンド ボタ ン を 使用 し て 、1 つ は 前 の レッ スン で 行っ た 
よう に 、「CreateObject」 関数 で Excel を 起動 し 、 新 し い ブ ッ ク を 
追加 し ます 。 も う 1 つ は 、「GetObject」 関数 を 使用 し て 、Excel 
の デー タフ ァイル を 指定 し て Excel を 起動 し ます 。 ま た 、 い ずれ の 
ボタ ン も 、Excel を 起動 し た 後に 、 別 の ブッ ク を 開く 操作 を 実行 し 
ます 。 


Lesson 33 ファ イル か ら オ ブ ジ ェクト を 作成 する 


泊 コン トロ ー ル と プロ パテ ィ の 設定 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 ま た 、 付 
録 CD-ROM の 「Lesson33] フォ ル ダ に ある Excel の ブッ ク 
「photoalbum.XLS」 と 「 野 菜 栄 養 価 .XLS] を 、 プ ログ ラム を 作成 
する フォ ル ダ に コピ ー し て くだ さい 。 


フォ ー ム に コマ ンド ボタ ン を ら つ 配置 し 、 各 コン ト 
ロー ル の [Caption] プロ パテ ィ を 設定 する 












コン トロ ー ル [Caption] プロ パテ ィ の 値 
CommandButton 1 新しい ブッ ク を 起動 
CommandButton ら ファ イル か ら Excel を 起動 





配置 し て プロ パテ ィ 
を 設定 し た コマ ンド 
ボタ ンコ ント ロー ル 


[プロ ジェ クト ] メニ ュー の [参照 設定 ] を 選び 、 
[Microsoft Excel 9.0 Object Library] を 選 点 


| 革 照 可能 な うう 7 ラリ 27 

| 叶 Visual Basic For Applicatiors 
| 中 Visual Basic runtime objects and procedures 
| 叶 交 Visual Basic objects and procedures 

罰 OLE Automation 






















円 et Sup ContolLiroy 
ActiveMovie control type lbrary 
ActveX Conferenoe Contol 了 
ActiveX DLL to perform Mieration of Repostt 

ATL 20 Type Lbrary そ | 


ここ を クリ ッ ク 


| 凍 SSMD4ES 


、 場所  c\Proeram Files\Microsoft Office\Office\EXCEL9OLB 
| 言語 標準 



















コマ ンド ボタ ン を 
の 置 する 

コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 


の [CommandButton] ユ 填 
を 使い ます 。 叶 





の Eoelg フ の 場合 


[| Microsoft Excel 8.0 
Object Library] を 選ん で 
くだ さい 。 
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是 FOorm1:(General)-(Declarations) 





Form1 ロー ト ) 回 回 | | 


| (Generab) ェ ] | (Declarations) ェ ] 


Dim XLSBook As Objeo 


ョ F0rm1:C0mmand1-Click 





NR il 思 s) 


[Commanq1 <] [Ciick <] 


P ェ ュ で a モ 上 Sub Command1 C1ick( ) 
Dim Fname AS String 


On 到 エ エ O エ GOTO FATLT, 
Set XLSBook = CreateObject ( "exxce1 .app11oation .9" ) 
MsgBOox "新しく sgxxce1 を 起動 し まし た 。 
With XLSBookk . App11ication 
・Visib1e = True 
Fname = APDp.Path & "" gg "photoa1bum . XLS" 
・Workbooks .Open (Fname ) 
End With 
Set XLSBook = Nothing 
Ex1 モ Sub 


FAT エエ 
MSJBOxX 下 エ エ O 了 ( 巨 エ ェ .Number ) 


End Sub 


ョ ョ Form1:C0ommand2-Click 






Farm1 ロー トド) 問 思想 


[Command2 | [Click | 





Private Sub Command2 Click( ) 
Dim Fname AS String 


Fname = App.Path g "m g "野菜 栄養 価 .xr,s" 

On 下 エ エ or GoTO FATL 

Set XLSBook = GetOb]ject (Fname ) 

MsgBox "ファ イル か ら gsxxce1 を 起動 し まし た 。 = 

With XLSBookk . App11cation 
・Visib1e = True 
-windows ("野菜 栄養 価 .xrs") .Yisib1e = mrue 
Fname = ADp.Path を "" g "photoa1bum . XLS" 
・Workbooks .Open (Fname ) 
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エエ: 


End Sub 





End With 
Set XLSBoolk = Nothing 
芯 x1 モ 上 Sub 


MsgBOxx 下 エ エ O エ (E エ エ .Numbper ) | 





1 





この プロ グラ ム は 、2 つ の 方 法 で Excel を 起動 し ます 。 最初 の コマ ンド ボタ ン [ 新 
し い プ ブッ ク を 起動 ] は 、 す で に 前 の レッ スン で 使用 し た 「CreateObjectl 関数 を 使 
用 し て Excel を 起動 し ます 。 も う 1 つ の ボタ ン [ファ イル か ら FExcel を 起動 ] は 、 
「GetObjectl 関数 で 既存 の ブッ ク を 指定 し て Excel を 起動 し ます 。 

「GetObjectl 関数 は 、 引 数 に ファ イル を 指定 する と 、 そ の ファ イル に 関連 付け ら 
れ て いる アプ リケーション を 起動 し 、 指 定 し た ファ イル を 表示 し ます 。 す で に 起動 
し た い ブ ッ ク 名 が わか っ て いる 場合 は 、「GetObiject」 関数 で 直接 ブッ ク を 開い た ほ 
う が 処 理 が 簡単 で す 。 

[GetObjectl 関数 は 、 ア プリ ケー ショ ン の 起動 に 成功 する と 、 そ の オプ ジェ クト 
名 を 返し て きま す 。 存在 し な い フ ァイル 名 を 指定 し た 場合 な ど 、 ア プリ ケー ショ ン 
の 起動 に 失敗 する と 「GetObjectl 関数 は エラ ー を 発生 し ます 。 


で は 、 実 際 に コー ド を 作成 し て 、 そ れ ぞ れ の 関数 の 違い を 見 て み ま し ょ う 。 ま ず 、 
フォ ー ム の 宣言 セク ショ ン に 、 オ ブ ジ ェクト 変数 「XLSBook」 を 宣言 し ます 。 次 に 、 
「 新 し い ブ ッ ク を 起動 ]」 ボタ ン の Click イ ベン ト プ ロ シー ジャ に 、「CreateObject] 
関数 で Excel を 起動 する コー ド を 記述 し ます 。「CreateObject」 関数 を 、 プ ログ ラム 
ID 「excelapplication.9] を 引数 に し て 実行 し ます 。 戻り 値 は せ 、 オ ブ ジ ェクト 変数 
[XLSBook」 に 格納 し ます 。 そ し て 、 こ の Excel オ プ ジ ェ クト と [Application] プ 
ロ パ ティ で オブ ジェ クト を 指定 し て 、[Visible] プロ パテ ィ を 「True」 に 設定 し ま 
す 。 こ こま で の 処理 で は 新しい ブッ ク を 追加 し て いま せん か ら 、 ブ ッ ク が 何 も な い 
Excel が 起動 し ます 。 


Private Sub Command1 C1iock( ) 
Dim Fname AS String 


On 正 エ エ O エ GOTO F ム エエ 
Set XLSBoolk = CreateOb]ject ( "exxce1 . app ユ Cation .9" ) 
mMsgBoxx "新しく sxxce1 を 起動 し まし た 。" 
With XLSBook . AD や 1 で Ca モ ュ on 
-・Visib1e = True 
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空 の Excel が 起動 する 





今度 は 、 プ ロ シ ー ジ ャ の 先頭 で 宣言 し て いた 変数 「Fname」 に 、 フ ァイル 名 を 作 
成 し て 格納 し ます 。「App] オプ ジェ クト の [Path] プロ パテ ィ を 使う と 、 現 在 プ 
ログ ラム を 実行 し て いる ディ レク トリ の パス 名 を 把 掘 で きま す 。 こ の プロ グラ ム と 
同じ フォ ル ダ に は 、Excel の ブッ ク 「photoalbum.XLS」 が 保存 は ミ れ て いま すか ら 
この 【[Path] プロ パテ ィ と 組み 合わ せ て 、 フ ル パ ス の ファ イル 名 を 作成 し ます 。 


Fname = App.Path & "" を "photoa1bum . XLS 


次 に 、Excel の [Workbooks] プロ パテ ィ で 「Workbooks」 オプ ジェ クト を 指定 
し て 、Excel VBA の Open メ ソ ッ ド を 実行 し ます 。Visual Basic の Open メ ソ ッ ド は 、 
シー ケン シャ ル や バイ ナリ 、 ラ ンダ ム ア ク セス ファ イル を 開く の に 使用 レ し ます が 、 
Excel VBA の Open メ ソ ッ ド は 、 対 象 オ ブ プ ジ ェ クト に 「Workbooks| オプ ジェ クト 
を 指定 する と 、 プ ブッ ク を 開き ます 。 こ こ で は 、 変 数 「Fnamel に 格納 し た 、 
「photoalbum.XLS] を フル パス で 設定 し ます 。 こ れ で は じ め て 、Excel に ブッ ク が 
表示 され ます 。 


・Workbooks .Open (Fname ) 


Excel の ブッ ク が 開く 


レン 
alrportjng PENTAX Z-50P 28-BOmm Power Zoom 
clpckjng Canon At 135mm 
hosejng CanonAl 85mm 
ー プ レイ ポー イ rose-1.jag Canon AI 85mm + クロ ー ズ アッ プ フ ィ ル タ 
花 window jpg PENTAX Z-50P 28-B0mm Power Zoom 








ブッ ク が 開い た ら 、Set ス テー トメ ント で オプ ジェ クト 変数 に 「Nothing」 を 代入 
し て 、 変 数 を 解放 し ます 。 


Set XLSBook = Nothing 
下 x ミ 上 Sub 
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衝 「CreateObject」 関数 は 、 オ プ ジ ェ クト の 作成 に 失敗 する と エラ ー を 発生 し ます 。 
た と えば 、 プ ログ ラム を 実行 し よう と し た コン ピュ ー タ に 、Excel が イン スト ー ル 
きれ て いな か っ た り 、 プ ログ ラム ID の 指定 を 間違え た 、 と いう と き は エラ ー を 発生 
し て プロ グラ ム を 停止 し ます 。 

これ を 回 避 す る た め に 、[CreateObject」 関数 の 前 に 「On Error GoTo] ステ ー ト 
メン ト を 設定 し 、 ラ ベル 「FAIL」 に 処理 を ジャ ンプ させ ます 。 ラ ベル 「FAIL」 で 
は 、FError 関数 と Err オ プ ジ ェ クト の [Number] プロ パテ ィ を 使用 し て 、 発 生 し た 
エラ ー の 番号 に 合っ た エラ ー メ ッ セ ー ジ を 表示 し ます 。 


AA エエ: 
MsgBOxx 臣 エ エ O エ ( 正 エ エ .Number ) 


ここ で は 、 次 の よう な エラ ー メ ッ セ ー ジ が 発生 し ます 。 








人 $ 次 に 、[ フ ァイル か ら Excel を 起動 ] ボタ ン の 処理 を 作成 し ます 。 この ボタ ン で は 、 
「GetObject」 関数 を 使っ て 、 直 接 ブ ッ ク を 開き ます 。「GetObjectl 関数 の 引数 に 、 
プッ ク の ファ イル 名 を 設定 し て 実行 する と 、 そ の ファ イル に 関連 付け られ て いる ア 
プリ ケー ショ ン が 起動 し 、 フ ァイル を 表示 し て くれ ます 。 

最初 に 、 オ ブ ジ ェクト 変数 を 宣言 セク ショ ン で 宣言 し 、[ フ ァイル か ら FExcel を 起 
動 ] ボタ ン の Click イ ベン ト プ ロ シー ジャ で 、 超 動 す る ブッ ク の ファ イル 名 を フル 
パス で 作成 し ます 。 


Dim XLSBook As Object 


Private Sub Command2 C1iok( ) 
Dim Fname AS String 


Fname = App.Path g "" g "野菜 栄養 価 .xrs" 


次 に 、「GetObjectl 関数 を 実行 し ます 。 こ の 関数 は 成功 する と 作成 し た オブ ジェ 
クト 名 を 返し て きま すか ら 、 オ ブ ジ ェクト 変数 「XLSBook」 に 格納 し ます 。 ま た 、 
ファ イル 名 が 佑 う な ど 存 在 し な い フ ァイル を 開 こ うと し た 場合 は 、 エ ラー を 発生 し 
て プロ グラ ム が 停止 し て し まい ます か ら 、「On Error GoTo] ステ ー ト メン ト で 、 ラ 
ベル 「FAILL」 に ジャ ンプ させ ます 。 
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On 正 エ エ O エ GOTO FAT エエ 
Se モ t ヌ LSBoofk = Ge 上 Ob]jeot (Fname ) 
MsgBox "ファ イル か ら sxxce1 を 起動 し まし た 。 


これ で 、Excel が 起動 し ます が 、 こ の 時 点 で は まだ ブッ ク 「 野 葉 栄養 価 .XLS] は 
表示 され ませ ん 。 


次 に 、Application オプ ジェ クト を 指定 し て 、[Visible] プロ パテ ィ に 「Truel を 
設定 し ます 。 こ れ で は じ め て Excel が 画面 に 表示 され ます 。 し か し 、 ま だ ブッ ク は 
表示 され ませ ん 。 


With XLSBoojk . App11oation 
-Visib1e = True 


そこ で 、Application オプ ジェ クト の 「Window] オプ ジェ クト に ある [Visible] 
プロ パテ ィ に 「True」 を 設定 し ます 。「Window」 オプ ジェ クト は 、 ア プリ ケー ショ 
ン の すべ て の ウィ ンド ウ を 1 つ に まとめ た オプ ジェ クト で 、[「Windows」 コレ クシ ョ 
ン オ プ ジ ェ クト と し て も 扱い ます 。 単 一 の Window オプ ジェ クト に アク セス する に 
は 「Windows0)] プロ パテ ィ を 使用 し ます 。 

指定 方 法 は 、「Windows(1)」 の よう に イン デック ス 番 号 か ファ イル 名 を 指定 する 
こと で オプ ジェ クト を 取得 で きま す 。Excel は 起動 マタ ロフ ァイル な ど な に か 開い 
て いる 可能 性 も あり ます の で 、 こ こ で は 「Windows(" 野 菜 栄養 価 .XLS")| と 直接 オ 
プ ブ ジ ェクト を 指定 し て み ま す 。 

[Visible] プロ パテ ィ は 、 ウ ィ ン ド ウ を 表示 する か どう か を 設定 する プロ パテ ィ 
で す 。 そ こ で ブッ ク 「 野 葉 栄養 価 .XLS]」 の プロ パテ ィ を 「True」 に し て 表示 状態 に 
E ま 実 。 


-Windows ("野菜 栄養 価 .xris") .Yisib1e = mrue 





「 野 菜 栄養 価 .XLS] 
が 表示 され る 











引き 続き 、Excel VBA の Open メ ソ ッ ド で ブッ ク 「photoalbum.XLS」 を 読み 込み 
ます 。 Open メ ソ ッ ド は 、 読み込ん だ 時 点 で ブッ ク を 表示 し ます か ら 、 特 に 
[Visible] プロ パテ ィ の 操作 は 必要 あり ませ ん 。 
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Fname = App.Path & "" を "photoa1bum . XLS 
-・Workbooks .Open (Fname ) 





「photoalbum.XLS」 が 
表示 され る 






レン ズ M 
airportjng PENTAXZ-50P 28-80mm Power Zoom 
| り 建 clockjpg Canon A1 135mm 96 年 7 月 
還 と 子供 hosejpg CanonAl 85mm 








そし て 、 オ プ ジ ェ クト 変数 の 解放 と エラ ー 処 理 を 作成 し て 完成 で す 。 


Set XLSBook = Nothing 
也 x+ 上 Sub 


FA エ エエ * 
MsgBOxx 下 と エエ O エ ( 互 エエ .Number ) 
End Sub 


「CreateObject」 関数 は 、 新しい Excel オブ ジェ クト の イン スタ ンス を 作成 し ます 。 
「GetObject」 関数 は 、 指 定 し た ファ イル と その アプ リケーション を 起動 する 関数 で 
ず s 

どちら の 関数 を 使用 し て も 、Add メソ ッ ド に よる 新しい ブッ ク の 追加 や 、Open メ 
ソ ッ ド で 指定 し た ブッ ク を 表示 で きま す 。 

また 、「CreateObject」 関数 は 、 い くつ で も イン スタ ンス を 作成 で きま す が 、 
「GetObject」 関数 は 同じ ファ イル は いく つも 開け ませ ん 。 目的 に 合わ せ て 、 こ れ ら 
の 関数 を 使い 分 け て くだ さい 。 


9 プロ グラ ム に コマ ンド ボタ ン を 1 つ 追 加 し 、 現 在 表示 し て いる ウィ ン 
ドウ 名 を 、 メ ッ セ ー ジ ボッ クス で 表示 する よう に 修正 し て くだ さい 。 


解答 は 巻末 に 一 
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ワー クシ ー ト 関数 を 使う 

Excel の 機能 の 大 き な 特 徴 の 1 つ に 、 豊 富 な ワー クシ ー ト 関数 を も っ て 
いる こと が あげ られ ます 。 算術 関数 や 統計 関数 、 財 務 関 数 な ど 、 い ちい 
ち 式 を 組み 立て て いた の で は 大 変 な 計算 も 、 こ れ ら の ワー クシ ー ト 関数 
を 使用 すれ ば すぐ に 答え を 導き 出せ ます 。 そ こ で 、 こ の レッ スン で は 、 
Visual Basic の プロ グラ ム か ら 、Excel の ワー クシ ー ト 関数 を 使用 す 
る テク ニッ ク を 紹介 し ます 。 


























今回 作成 する プロ グラ ム 






AA2 し だ デー タダ を 
一 覧 表示 する 


| 
| 


入力 し た デー タ の 
Max PO 最大 値 を 表示 する 


入力 し た デー タ の 
ave | 000 純 | 平均 値 を 表示 する 








9 Lesson34.Vbp 
⑳) VB6CD2 
ョ ペコ Lesson34 


フォ ー ム に 配置 し た テキ スト ボッ クス コン トロ ー ル に 数 字 を 入力 
する と 、 非 表示 状態 で 起動 し た Excel の ワー クシ ー ト に その 値 を 代 
人 人 し ます 。 そ し て 、 入 力 さ れ た セル デー タ を 元 に 、 ワ ー ク シー ト 関 
数 の Max 関数 で 最大 値 を 、Average 関数 で 平均 値 を 算出 し 、 フ ォ 
ー ム に 表示 し ます 。Visual Basic の コー ド か ら 、Excel の セル 範囲 
を 把握 し て ワー クシ ー ト 関数 を 実行 させる の が ポイ ント で す 。 
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コント ロー ル と プロ パテ イィ の 設定 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 ま た 、 付 
録 CD-ROM に ある 「materiall フォ ル ダ の アイ コン ファ イル 
「CALC.ICO」 を 、 使用 し て いる コン ピュ ー タ に コピ ー し て くだ さい 


[プロ ジェ クト ] メニ ュー の [参照 設定 ] を 選び 、 
[Microsoft Excel 9.0 Object Library] を 選 点 











| 上 可能 な 1 フイ ル @: 


上 グ 避 Visual Basic For Applications 
| Visual Basic runtime objects and procedures 
| Visual Basic objects and procedures 

』 レ CE omStDn 






ここ を クリ ッ ク 


EMI 1 
ee Seup Oontol Le 








ActiveMovie control type library 

ActiveX Conference Control 優先 順位 
ActiveX DLL to perform Migration of MS Reposit 

ATL 20 Type Library や | 






CAPICHKR 
CCrsWpp 1.0 Type Library 
CFtpWpp 10 Type Library 


rvnfexf 1「l Tvne | hrarv 









| Microsoft Excel 90 Object Library 
」 場所  c\Program Files\Microsoft Office\Office\EXCEL9OLB 


フォ ー ム の 【[Caption] プロ パテ ィ を 「 計 算 プ ログ 


ラム 」 に 変更 する 


や テー ツ 


計 宣 - MI アリ 








Eoelg フ の 場合 
[| Microsoft Excel 8.0 
Object Library] を 選ん で 
くだ さい 


生生 


第 10 日 3 時 限 目 Excel を Visual Basic で 操作 する 





学 [ポタ ン 

[.…] ボタ ン は 、 そ の プロ 
パテ ィ の 詳細 な 指定 を 行 
う ダ イア ログ ボッ クス が 
用 意 き れ て いる こと を 示 
し て いま す 。 


スト ボッ クス 
2 キ 

を 配置 する 
テキ スト ポッ クス コン ト 
ロー ル を 配置 する に は 、 
ウツ み 王 ルフ パレ レット の 
[TextBox] lf| を 使い ま 
す LE 





[leonl プ 自 パ ディ の 、] ボタン を クリ ッ タ じ 、 
「CALC.ICO」 を 設定 する 





ここ を クリ ッ ク 


罰 Camera co 回 Disk 3eico 





48co 届 Atoms2 co 講 centerico 還 Dsk 3ico | 

nico 調 Butoni3ico checkico 軒 Dsk 3jico =【 還 

52co 田 Butonifco 軒 Clpbrd2 co に iskcat2.ico 

54ico 調 Butonreico Dclpck8ico Doc05ico 
ーー ュー 


EC や Bm ーー 語っ Er ここ を クリ ッ ク 
2 の 桶 類 ⑪ 7 で coxcur) キャ ン セ ゼル 
ョ 2 | 
| 


テキ スト ボッ クス コン トロ ー ル を 配置 し 、 次 の プロ 
パテ ィ を 設定 する 



















プロ パテ ィ 中 

Text (な し ) 

TabIndex 0 

と 配置 し て プ ロ パ ティ を 
設定 し た テキ スト ボッ 





ポコ 





ント ロー ル 





s ツー ル パ レ ッ ト の [ListBox] 国 を 使っ て 、 リ スト 
ボッ クス コン トロ ー ル を 配置 する 





に 斜め に ドラ ッ グ 
= = に し て 配置 





コマ ンド ボタ ンコ ント ロー ル を 4 つ 配 置 し 、 各 コン 
トロ ー ル の プロ パテ ィ を 変更 する 


コン トロ ー ル 
Command 1 


オブ ジェ クト 名 
InputBtn 
| MaxBtn 


Caption Enabled 


Command ら 





| AveBtn 
ExitBtn 


Command3 





Command4 


配置 し て プロ パテ ィ 
を 設定 し た コマ ンド 
ボタ ンコ ント ロー ル 








ラベ ルコ ント ロー ル を ら つ 配置 し 、 次 の プロ パテ ィ 
を 変更 する 
プロ パテ ィ 


BorderStyle 
Caption 





配置 し て プ ロ パ ティ 
を 設定 し た ラベ ル 
当 涼 羽 回 大 
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コマ ンド ボタ ン を 
配置 する 
コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル バ パレット 
の [CommandButton] 
を 使い ます 。 ゴー 


> ラベ ルコ ント ロー 
プル な 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Label] | 嶋 | を 使 
いま す 。 「 衣 


。 コン トロ ー ル を 

ぎじ - す る 

プロ パテ ィ の 設定 が 同じ 
コン トロ ー ル を 複数 作成 
する 場合 は 、 コ ント ロー 
ル を 1 つ 作 成 し た ら 、 そ れ 
を コピ ー し て 貼り 付け る 
と 効率 的 に 作業 で きま す 。 


て 
第 10 日 3 時 限 目 Excel を Visual Basic で 操作 する 





コー ド の 記 可 


ョ F0rm1: EE (Declarations) 












| ee 選 | (Declarations) 旨 


| pim AppXLS As Ob]jeo 
| Dim 1 As Tnteger | 





硬 Form1: Form- Load 





SA っ 。 Sub Form Load( ) 
On 。 下 エエ O エ GOTO FAT エエ 
Set AppXLS = Crea モ 上 GOb]j@eoc ("ExxCe1 . App11Cation" ) 


AppXLS . Workbooks .AqdQ 
With Form1 

End With 

= 0 

Ex 上 Sub 


| ATL * 


| 
| 
| 
| 
-Caption = .Caption & " - Exce1 を 起動 中 で す * | 
| 
1 
| 
| 
| 
| MsgBOxx 正 〒 エ Or( 下 エエ.Number ) | 

| 








に SFP sub 1 C1ick( ) 
利光 革 キネ 1 


エ E mexxt1.Tmext = "" mhen 
Texxt1 . Se 上 FoOCu8 
万 x エ モ 上 Sub 

End エモ 

エエ is 上 1 .AdQTtem TexE1 . mexx セ 


With AppXLS . Workbooks ( 1 ) .Worksheets ("Sheet1" ) 
・Ce11s( ュ , 1) = "mext1 .Tmext 
End With 
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mexkt1 . BetFocus 


MaxrB そ tn .Enab1ed 〒 エ ue 
AveB て n .Enab1ed = "True 











P ェ ivate Sub MaxxBtn C1ick( ) 
| Dim CheckRange AS Range 


| On 下 エ エ O エ ReSume NexE 
| Set CheckRange = AppXLS.Workbooks(1) 
| ・Worksheets ("Sheet1") .Range(Ce11s(1, 1), Ce11s(i, 1)) 


Labe1 1 ( 0 ) .Caption = AppXLS .WorkSheetFunction .Maxx (CheckRange ) 
| mext1 . SGt 上 FOCu8 
. End Sub 


ョ Form1:AveBtn-Click 


Cr aa Form1 ロー| 6 5 B 

[AveBtm <| [Click <] 
ーー ーーーーーーーーーーーー 三 
| Private Sub AveBtn C1iok( ) 

| Dim CheckRange AS Range 





| On 下 ェ ro Resume Nexxt 
| Set CheckRange = AppXLS .Workbooks(1) 
| -・Worksheets ("Sheet1") .Range(Ce11s(1, 1), Ce11s(i, 1)) 


Labe11 (1) .Caption = 
| AppXLS . Workshee 上 Funo ヒ on .AYerage (CheckRange ) 
| ex 上 1 . Se 上 FOCu8 





| P エ ivate Sub EaritBtn C1iok( ) 
| Un1oad Me 


| End 
| End Sub 
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Form1:Form-Unload 









ii ーー | Unlo ーーーーーーーーーーーーー 一 





P ェ ュ マ ate Sub Form Un1oad (Cance1 As Tnteger ) 
AppXLS . Workbooks ( 1 ) -C1ose SaveChanges : =Fa1se 
AppXLS . Ou ュ モ 











Set AppXLS = Nothing 
End Sub 















凡 この プロ グラ ム は 、 次 の よう に 動作 し ます 。 


① フ ォ ー ム 起動 時 に 、CreateObject 関 数 で Excel オ プ ジ ェ クト の イン スタ ンス を 作 
成 し ま す 。 そ し て 、 新 し い ブ ッ ク を 追加 し ます 。Excel は 非 表 示 状 態 で 操作 し ま 
E 記 


② フ ォ ー ム に 配置 し た テキ スト ボッ クス コン トロ ー ル に 数 字 を 入力 し 、[ 入 力 ] ボタ 
ン を クリ ッ ク し ます 。 入力 内 容 は 、 リ スト ボッ クス コン トロ ー ル に 転送 され る と 
同時 に 、 ワ ー ク シー ト の セル に も 転送 され ます 。 


③ デ ー タ が 入力 され る と 、[Max] と [Ave] ボタ ン が 有効 に な り ま す 。 


(④ [Max] ボタ ン と [Ave] ボタ ン を クリ ッ ク す る と 、 入 力 さ れ た デー タ の セル 範 
囲 を 把握 し て 、 ワ ー ク シー ト 関 数 の 「Max」 と 「Average」 を 実行 し フォーム 
の ラベ ルコ ント ロー ル に 値 を 表示 し ます 。 


⑤ プ ログ ラム を 終了 する と 、 フ ォ ー ム の Unload イベ ント プロ シー ジャ で 、FExcel を 
終了 させ ます 。 こ の と き 、 ブ ッ ク は 保存 せ ず に 終了 し ます 。 そ し て 、 オ プ ジ ェ ク 
ト 変数 を 解放 し ます 。 


⑥Excel は 、 起 動 し て も 非 表示 状態 に し 、 ユ ー ザ ー が 操作 で き な い よう に し て 、 
ワー クシ ー ト 関数 の 実行 を し ます 。Excel の 操作 は すべ て プロ グラ ム 側 で 行い ま 
す 。 


ス 
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で は 、 実 際 に コー ド を 作成 し まし ょ う 。 ま ず 、 フ ォ ー ム の 宣言 セク ショ ン に 、 オ 
プ ブ ジ ェクト 変数 と セル 番地 格納 用 の 変数 を 宣言 し ます 。 


Dim AppXLS As ObJjeo セ 
Dim 1 As Tnteger 


続い て 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 、CreateObject 関 数 を 使っ て 、 
Excel の イン スタ ンス を 作成 し ます 。 こ の 時 、 関 数 の 引数 に Excel の バー ジョ ン 番 号 
を 指定 せ ず に 、 関 数 を 実行 し ます 。 フ ォ ー ム 起動 時 の 処理 の た め 、Excel の イン ス 
タン ス は 1 つ し か 作成 され ませ ん 。 作成 し た ら 、 新 し い ブ ッ ク を 追加 し ます 。 


Private Sub Form Load( ) 
On 下 と エエ O エ GOTO FA エ エ 
Set AppXLS = CreateOb]@ect ( "ExxCe1 .App11 エ caion" ) 
AppXLS . Workbooks .AdQ 


Excel の [Visible] プロ パテ ィ を 設定 し ませ ん の で 、Excel は ユー ザー に は 非 表 示 
の 状態 で 起動 し ます 。 そ の た め に 、Excel が 無事 起動 し て いる こと を 、 フ ォ ー ム の 
キャ プシ ョ ン に 表示 し ます 。 


With Form1 
.Caption = .Caption &g " - psxxce1 を 起動 中 で す * 
End With 


また 、 変 数 呈 を 「0] に 初期 化し て お きま す 。 


ュ = 0 


最後 に 、CreateObject 関 数 の エラ ー 処 理 を 作成 し ます 。 


FAT エエ 
MsBOxX 政 エ エ O エ ( 巨 エエ.Number ) 
End Sub 


フォ ー ム に 配置 し た [入力 ] ボタン を クリ ッ ク す る と 、 テ キス ト ボ ックス に 入力 
され た デー タ を 、 リ スト ボッ クス コン トロ ー ル と ワー クシ ー ト の セル に 転送 し ます 。 

まず 、 変 数 [ii に 「1] を 加え ます 。 こ の 変数 は 、[Cells] プロ パテ ィ で セル 番地 
を 参照 する 際 の 、 列 方 向 の モル 番地 を 格納 する の に 使い ます 。 最初 は 、 セ モル 「1.1」 
(A1) に 入力 し ます の で 、「1| を 加え ます 。 


P ェ ュ で a モ 上 @ Sub エ nput 上 Btn C11oCk( ) 
まう 生ま cr を 
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次 に 、 テ キス ト ボ ックス コン トロ ー ル に デー タ が ある か どう か を チェ ッ ク し ます 。 
も し 、[Text] プロ パテ ィ の 値 が 空 な ら 、 以 降 の デー タ 転 送 処理 を キャ ン セ ル し 、 
プロ シー ジャ を 終了 させ ます 。 そ の 際 に 、 テ キス ト ボ ックス コン トロ ー ル に フォ ー 
カス を 移し 、 次 の 入力 に 備え ます 。 
エ E "mext1 .mext = "m mhen 
TexxE1 . SeE 上 FoOCug 


Exx ユ モ Sub 
End TE 


[Text] プロ パテ ィ に 値 が あれ ば 、 そ の 値 を リス ト ボ ックス コン トロ ー ル に 、 リ 
スト 項目 と し て 追加 し ます 。 


エエ is 上 1 .AdQT エ tem "TexE1 . mexx 


また 、 ワ ー ク シー ト の セル に も 、[Text] プロ パテ ィ の 値 を 代入 し ます 。 


With AppXLS .Workbooks (1 ) .Worksheets ("Sheet1") 
・Ce11s(1, 1) = "mext1 .mexx も 
End With 










テキ ス ト ボ ックス の 


内 容 を リス ト ボ ッ ク 
ス と セル に 転送 する 








実際 は 見 えて いな い 








テキ スト ボッ クス コン トロール に 入力 され た デー タ は 、 文字 列 と し て 扱わ れ ま す が 、 
Excel は セル に 数 字 が 入力 され る と 、 そ れ が 文字 列 で あっ て も 数 値 デ ー タ と し て 格納 し 
ます 。 


[Text] プロ パテ ィ の 値 の 転送 が 終わ っ た ら 、[Text] プロ パテ ィ を クリ ア に し 、 
フォ ー カ ス を テキ スト ボッ クス に 移し て 、 次 の 入力 に 備え ます 。 
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Texx モ 1 . me = 『 
ex 上 1 . Se 上 F 〇 CuS 


また 、 こ の 時 点 で デー タ が セル に 代入 きれ た の で 、[Max] と [Ave] ボタ ン を 有 
効 に し ます 。 


MaxxBtn .Enab1ed = True 
AveBtn .Enab1ed = "True 


当然 、 リ スト の 数 値 は 8 つ 以 上 入力 し て くだ さい 。 セル に デー タ が な い の に 、「Max]」 
関数 や 「Average」 関数 を 実行 する と エラ ー に な っ て し まい ます 。 セ ル に デー タ か が 入 
力 さ れ た 時 点 で 、 こ れ ら の 関数 の 実行 が 可能 に な る よう な 処置 が 必要 で す 。 





作 テー タ が 転送 きれ た ら 、[Max] ボタ ン が 有効 に な り ま す 。 こ の ボタン は 、 ク リ 
ッ ク さ れ た 時 点 で 、 ワ ー ク シー ト の セル 重 囲 を 把握 し 、Range オプ ジェ クト と し て 
オブ ジェ クト 変数 「CheckRange」 に 格納 し ます 。 変 数 il] に は 最後 に 転送 し た セ 
ル の 、 列 方 向 の セル 番地 が 格納 ミ され て いる の で 、 デ ー タ が 入力 され て いる セル は 、 
セル 番地 「11| か ら 「[i1| まで で す 。 こ れ を 使っ て 、 デ ー タ の 入力 され て いる セル 
範囲 を 把握 し 、 オ プ ジ ェ クト 変数 「CheckRange」 に 、Set ス テー トメ ント で 格納 し 
ます 。 


Private Sub MaxxBtn C1iok( ) 
Dim CheckRange AS Range 


On 正 エ エ o エ Resume Nex セ 
Set CheokRange = AppXLS .Workbooks(1) 
-Worksheets ("Sheet1") .Range(Ce11s(1, 1), Ce11s(i, 1)) 


[Range] プロ パテ ィ は 、「RHange("A1:A7")」 の よう に し て 、 セ ル 範 囲 を 指定 で き 
ます が 、 一 方 で は [Cells] プロ パテ ィ と 組み 合わ せ て 、「Range(Cells(1, 1), 
Cells(i. 1))」 と いう 使い 方 も で きま す 。 変数 で セル 範囲 を 求め る 場合 は 、 こ の 使い 方 
の ほう が 便利 で す 。 





デー タ の 入力 され て いる セル 範 囲 を 把握 し た ら 、 ワ ー ク シー ト 関 数 を 実行 し ます 。 
ワー クシ ー ト 関数 を Visual Basic (また は VBA) で 使用 する 場合 は 、「Worksheet 
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Function] オプ ジェ クト の 関数 と し て 使用 し ます 。 た と えば 、Max 関数 を 使う 場合 
は 、 以 下 の よ うに 記述 し ます 。 


AppXLS . WorksheetFuno ふ on .Max (CheckRange ) 


Max 関数 は 、 引 数 に モル 男 囲 を 指定 する と 、 そ の 範囲 の デー タ の 中 で 最も 大 きい 
値 を 返し て くる 関数 で す 。 こ の と き 注 意 す る の は 、Max 関数 の 引数 に 設定 する セル 
男 胃 は 、Range オプ ジェ クト と し て 指定 する 必要 が ある 、 と いう こと で す 。 そ の た 
め に 、 事 前 に Set ス テー トメ ント で セル 範囲 を Range オ ブ プ ジェ クト 型 の 変数 に 設定 
し て いま す 。Max 関数 の 戻り 値 は 、 そ の まま ラベ ルコ ント ロー ル の [Caption] プ 
ロ パ ティ に 設定 し ます 。 


tabe11 ( 0 ) -Caption = AppXTLS .WorjksheetFunotion .Maxr (CheckRange ) 


そし て 、 テ キス ト ボ ックス コン トロ ー ル に フォ ー カ ス を 移し 、 次 の 入力 に 備え ます 。 


Texxt1 .Set 上 FOoCus 


[Ave] ボタ ン の 処理 も 、 基 本 的 に は [Max] ボタ ン の 処理 と 同じ で す 。 使用 する 
関数 が 「Average」 関数 に な っ て いる だ け で す 。 Average 関数 は 、 引 数 に セル 草 囲 
を 指定 する と 、 そ の 範囲 内 の デー タ の 平均 値 返 し て くる 関数 で す 。Max 関数 と 同 
様 、 引 数 の セル 範 胃 に は 、Range オプ ジェ クト を 指定 し ます 。 

関数 を 実行 し た ら 、 も う 1 つ の ラベ ルコ ント ロー ル に 出力 し 、 テ キス ト ボ ックス 
に フォ ー カ ス を 移し ます 。 


P ェ ivate Sub AveBtn C1iok( ) 
Dim CheckRange As Range 


Set CheockRange = AppXLS .Workbooks(1) 
・Worksheets("Shee モ 1" ) .Range(Ce11s(1, 1), Ce11s(i, 1) ) 


abe11 ( 1 ) .Caption = AppXTLS .WorksheetFunotion 
・Average (CheockRange ) 
Te 上 1 . Se 上 FOCuS 
End Sub 


最後 に 、 プ ログ ラム の 終了 処理 を 作成 し ます 。 こ こ で の ポイ ント は 、 フ ォ ー ム の 
Unload イベ ント プロ シー ジャ で 、Excel の 終了 処理 を 行っ て いる 点 で す 。FExcel は 、 
開い て いる ブッ ク を 、Excel の Close メ ソ ッ ド で 閉じ て いま す 。 こ の と き 、 名 前 付き 
引数 「SaveChanges] に 、 値 「False」 を 設定 する と 、 ブ ッ ク の 変更 を 保存 せ ず に そ 
の まま 終了 し ます 。 
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この プロ グラ ム で は 、Excel は た だ 単に ワー クシ ー ト 関数 を 使う だ け の プロ セス 
と し て 使用 し た だ け な の で 、 ブ ッ ク は 保存 せ ず に 閉じ て いま す 。 そ し て 、Excel の 
Quit メ ソ ッ ド で 、Excel 自身 を 終了 させ 、 オ ブ ジ ェクト 変数 を Set ス テー トメ ント と 
[Nothing| で 解放 し て お きま す 。 


エ ュ エマ a モ @ Sub 正 交 1 上 BEn C11oCk( ) 
Un1oad Me 
End 

End Sub 


E ェ ivate Sub Form Un1oad(Cance1 As TnEteger ) 
AppXLS . Workboofkks ( 1 ) .C1ose SaveChanges :=Fa1Se 
AppXTLS . Ou ュ セ 


Set AppXLS = Nothing 
End Sub 


Excel の 、 高 機能 な ワー クシ ー ト 関数 を 使用 すれ ば 、VB の プロ グラ ム 側 で 複雑 な 
計算 式 を 組み 立て な く て すみ ます 。Excel VBA で 作成 で を な い イ ンタ ー フ ェ イ ス や 機 
能 を 持た せ た プ ログ ラム の 中 で 、 難 し い 計算 式 を 組み 立て る 場合 は 、Excel の ワー ク 
シー ト 関 数 を 利用 する の も 一 つの 手段 で し ょ う 。 

ワー クシ ー ト 関数 を 使用 する 場合 は 、「WorksheetFunction] オブ ジェ クト の 関数 
と し て 実行 する こと と 、 引 数 の セル 範囲 は Range オブ ジェ クト で 指定 する 、 と いう 
点 に 注意 し て くだ さい 。 各 ワー クシ ー ト 関数 の 詳し い 使 い 方 は 、Excel の ヘル プ を 参 
照 し て くだ さい 。 ま た 、 巻 未 の 付録 「Visual Basic で 使用 で きる ワー クシ ー ト 関数 一 
覧 」 も 参照 し こく だ さい 。 


る c ぁ 練習 問題 


求め る 機能 を 組み 込ん で くだ さい 。 ま た 、Enter キー を 押し て も リス ト 


〇 1 作成 し た プロ グラ ム に 、 ワ ー ク シー ト 関 数 「Min」 を 使用 し て 、 最 小 値 
を 
に 入力 で きる よう に 改良 し て み ま し よう 。 


解答 は 巻末 に 一 
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為替 換算 プロ グラ ム の 作成 


も う 1 つ 、 ワ ー ク シー ト 関 数 を 使用 し た プロ グラ ム を 作成 し ます 。 こ 
の プロ グラ ム は 、 ド ルー 円 を 換算 する プロ グラ ム で す 。 簡単 な 割り 算 を 
実行 する プロ グラ ム で す が 、 ド ル 表 記 を 作成 する の に 、Excel の ワー ク 
シー ト 関 数 を 使用 し ます 。 こ の プロ グラ ム で は 、Excel の イン スタ ンス 


オブ ジェ クト を 作成 し ます が 、 ブ ッ ク は 追加 せ ず に ワー クシ ー ト 関数 だ 
け を 使う プロ グラ ム で す 。 


今回 作成 する プロ グラ ム 









PE7 


| 








現在 の 為替 = 所 07 一 四 遇 の 8 吐 ー 
半 良 定 | 

JJOO0 _ 換算 円 を 入力 し て [ 

算 ] ボタ ン を ク 


$ 2803.74 - だ 
ドル が 表示 され る 


非 表示 状態 で Excel の オブ ジェ クト を 作成 し ます が 、 ブ ッ ク や ワ 
ー ク シー ト 、 セ ル は 一 切 使用 せ ず に 、 ワ ー ク シー ト 関 数 だ け を 利用 


し ます 。Excel を 利用 する こと で プロ グラ ム を 非常 に コン パク ト に 
で きま す 。 
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皿 コン トロ ー ル と プロ パテ ィ の 設定 
※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 


[プロ ジェ クト ] メニ ュー の [参照 設定 ] を 選び 、 
[Microsoft Excel 9.0 Object Library] を 選 点 



















目 じ Visual Basic objects and procedures 
上 OLE Automaton 


Micr { Cel9U UDject LiDrar 
円 Act Setup o 

ActiveMovie control type library 
ActiveX Conference Control Ba 
ActiveX DLL to perform Migration of MS Reposit 

ATL 20 Type Library +| 
CAPIGHKR 

CCrsWpp 10 Type Library 
CFtpWpp 10 Type Library 


rvnfaxf 1「l Tvne lihrarv 






ニン (ンプ 


| - Microsoft Excel 90 Object Libray ーー 
| 場所 c\Program FilesMicrosoft OfficeWOfficewEXCEL9OLB 
| 語 語 : 標準 


フォ ー ム の 【[Caption] プロ パテ ィ を 「 為 替 計算 プ 


ログ ラム 」 に 変更 する 


ラベ ルコ ント ロー ル を 3 つ 配 置 し 、 各 コン トロ ー ル 
の [Caption] プロ パテ ィ を 変更 する 


コン トロ ー ル 
Label 1 
Label ら 
Label3 


[Caption] プロ パテ ィ 
現在 の 為替 レー ト 


・ ユ ドル 


変更 し た フォ ー ム 
の キャ プシ ョ ン 
配置 し て プロ パテ ィ 


を 設定 し た ラベ ル 
ョ ジ ド 回 テル 






















ト : ドル 
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ぎ Excel97 の 場合 
[Microsoft Excel 80 Object 
Library] を 選ん で くだ さき 
い 。 


ラベ ルコ ント ロー 
プル を 配置 する 
ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Labell AA を 使 
いま す 。 


全 5 ろ 


Me テキ ス トド ボッ クス 
\ ン を 配置 する 

テキ スト ボッ クス コン ト 
ロー ル を 配置 する に は 、 
ツー ル パ レ ッ ト の 
SE 回 | を 使い ま 


。 ラベル コン トロ ー 
* プ ル を 配置 する 
ラベ ルコ ント ロー ル を 配 
周 する に は 、 ツ ー ル パレ 
ッ ト の [Label] | を 使 
いま す 3 


コマ ンド ボタ ン を 
で 腕 
ン 配置 する 
コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 


の [CommandButton] 
を 使い ます 。 = 


作ら 人 











テキ スト ボッ クス コン トロ ー ル を ら つ 配置 し 、 各 コン 
トロ ー ル の プロ パテ ィ を 変更 する 


コン トロール [Text] プロ パテ ィ [TabIndex] プロ バ パティ 


Text1 107 どら 
Text ら (な し ) 0 


配置 し プロ パテ 
ィ を 設定 し た テキ 
スト ボッ クス コン 
トロ ー ル 














現在 の 為替 レー ト : 1 ドル Fr7 


| ] 
5 | 
| $ | 

| 








プロ パテ ィ 


BorderStyle 
Caption 






















コン トロ ー ル 


現在 の 為替 レー ト : 1 ドル hG7 
\ | 

a a ョ 配置 し て プロ パテ ィ 
$ | 四 を 設定 し た ラベ ル 


コマ ンド ボタ ンコ ント ロー ル を ら つ 配置 し 、 各 コン 
トロ ー ル の プロ パテ ィ を 変更 する 


ビレ スロ = 


オブ ジェ クト 名 Caption 
CalcBtn 換算 
ExitBtn 終了 


Enabled 
Command 1 True 
Command ら True 
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| 現在 の 為替 レー ト :1 ド ル FOO _ | 
| 
| 


間 還 = 
co 


配置 し て プロ パテ ィ 
設定 し た コマ ンド 
ボタ ンコ ント ロー ル 



























| (Generab) ェ | (Declarations) 周 開 


Dim AppXLS As Objeo モ 


ョ Form1:CalcBtn-Click 





に に Fi ロト ) 
CaleBtm <| [Ciick _ 還 時 
Private Sub Ca1cBtn C11oCk( ) 

Dim Money As Doub1e 





エ F "mext 上 2.Text = "の" Then 
Tex ヒ 2 .Se 上 FoOCu8 
忌 交 1 上 Sub 

End エモ 


Money = CLng(Tex モ 2 .TmexE) / CLng(Text1 .Tex モ ) 


Labe14 .Caption = AppXLS .Workshee 上 FunC モ on . Do11a ェ (Money ) 
mext 上 2 .TexxtE = "" 
ex 上 2 .Se 上 FFOCuS 

End Sub 





ョ Form1:Form-Load 


IO) 





| [Form | lreaa | | 


Private Sub Form Load( ) 
On 下 エ or GoToO FAT エ L 
Se AppXLS = C エ GateOb]@c ( "Exx ど Ce1 . ADp ユ 1 エ Ca モ ュ on" ) 
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With Form1 


-Caption = .Caption を " - Esxxce1 を 起動 中 で す * 
End With 
Ex ュ モ 上 Sub 
ドア: ゃ HH 
MSgBOxx 下 エ エ O エ ( 正 エ エ .Number ) 
End Sub 

















Form1:ExitBtn-Click 







Qrrm] 







ExitBtn ーー ーー の 


P ェ iate Sub Ex1t 上 Btn C1iock( ) 
Un1oad Me 
End 

End Sub 











紳 Form1:Form-Unload 
1。 II 5 - Form] ロー ト 
Form 1 _ 央 Unload 
Private Sub Form Un1oad(Cance1 As Tnteger ) 
AppXLS . Ou ュ セ 


Set AppXLS = Nothing 
End Sub 










_ _ 問 回 四 








凡 この プロ グラ ム は 、 そ れ ほ ど 難 し く あ り ま せん 。 前 回 の レッ スン で 使用 し た テク 


ニッ ク を その まま 使用 し て 作成 し ます 。 こ の プロ グラ ム は 、 入 力 さ れ た 「\」 を 、 
ドル に 換算 し て 出力 し ます 。 


①「\] の テキ スト ボッ クス コン トロ ー ル に 、 日 本 円 を 入力 し ます 。 

②⑫) [換算 ] ボタ ン を クリ ッ ク す る と 、 あ ら か じ め 設 定 さ れ て いる レー ト に 従っ て 、 
入力 され た 人 金額 を ドル に 換算 し ます 。 

(Excel の ワー クシ ー ト 関数 「Dollar」 を 使用 し て 、「$xx.xx| と ドル と セン ト の 表 
記 に 変換 し て 、 ラ ベル コン トロ ー ル に 出力 し ます 。 

(④ フ ォ ー ム 起動 時 に 、CreateObject 関 数 で Excel オ プ ジ ェ クト の イン スタ ンス を 作 

成 し ま す 。 し か し 、 こ れ ま で 行っ た よう に 、 新 し い ブ ッ ク を 追加 する 操作 は し ま 

せん 。Excel の イン スタ ンス を 作成 する だ け で 、 ワ ー ク シー ト 関 数 を 利用 し ます 。 
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うろ で は 、 ュ コー ド を 作成 し て いき まし ょ う 。 最 初 に 、 フ ォ ー ム の 宣言 セク ショ ン に 、 
オブジェ クト 変数 「AppXLS] を 宣言 し ます 。 次 に 、 フ ォ ー ム の Load イベ ント プロ 
シー ジャ で 、CreateObject 関 数 を 使っ て 、Excel の イン スタ ンス を 作成 し ます 。 そ 
し て 、 フ ォ ー ム の キャ プシ ョ ン に 、Excel を 起動 し て いる 旨 の 表示 を 行い ます 。 


P ェ ivate Sub Form Load( ) 
On 正 エ エ O エ GOTO ム A エ エ 
Set AppXLS = CreateOb]ect ( "ExxCe1 . App1 エ Ca モ ュ on" ) 


With Form1 

-Caption = .Caption &g " - psxxce1 を 起動 中 で す * 
End With 
正 x1 モ 上 Sub 


FAT エエ 
MsgBOxx 下 エ と エ O エ ( エ エ .Number ) 
End Sub 


この プロ シー ジャ 全体 は 、 前 の レッ スン と 同じ コー ド で す が 、 た だ 1 つ 人 違う の は 、 
Excel に 新しい ブッ ク を 追加 し て いな いこ と で す 。 今回 の プロ グラ ム で は 、 ブ ッ ク 
を 使わ な く て も 、 ワ ー ク シー ト 関 数 を 使う こと が で きま す 。 


争 [換算 ] ボタ ン で 、 実 際 の 円 - ドル 換算 の 計算 を 実行 し ます 。 ま ず 、 計 算 結果 を 格 
納 す る 変数 「Money」 を 宣言 し ます 。 そ し て 、 テ キス ト ボ ックス の 入力 が 空 な の に 
[換算 ] ボタ ン が クリ ッ ク さ れ た 場合 は 、 プ ロ シ ー ジ ャ を 終了 させ る 処理 を 組ん で お 
きま す 。 


Private Sub Ca1cBtn C1icKk( ) 
Dim Money As Doub1e 


エ F mext2.TmextE = "" mhen 
Texx 上 2 .Se 上 FoOCu8 
中 xi モ Sub 

End エモ 


換算 計算 は と て も 単純 で 、 入 力 さ れ た 人 金額 を 為 夫 の レー ト で 割る だ け で す 。 こ の 
と き 、 テ キス ト ボ ックス の 【[Text] プロ パテ ィ は 「 文 字 列 ]」 で 値 を 返し ます か ら 、 
CLng 関数 で 長 整 数 型 に 一 度 変換 し て か ら 、 割 り 算 を 実行 し ます 。 割 り 算 の 結果 に 
よっ て は 、 小 数 点 が 発生 し ます か ら 、 変 数 「Money」 は 、 倍 精度 の 実数 型 で 宣言 し 
て いま す 。 


Money = CLng(TexE2 .TexE) / CLng(Tex モ 1 . Texx ) 
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為替 レー ト の 値 は 、 テ キス ト ボ ックス コン トロール を 使用 し て いま す の で 、 常 に 最新 
の レー ト を 入力 し て 、 式 に 使用 で きる よう に し て いま す 。 


衝 換算 し た ドル の 人 金額 は 、Excel の ワー クシ ー ト 関数 「Dollar」 で ドル 表記 に 変換 し 
ます 。「Dollar」 関数 は 、 引 数 に 金額 を 設定 する と 、 そ の 金額 を 必ず 「Sxx.xx| 形式 
で 返し て きま す 。 た と えば 、 引 数 に 「10.2511] と いう 数 字 が 与え られ て 関数 が 実行 
きれ る と 、「$10.25」 と 小数 点 2 桁 に 丸め て 、$ 記 号 を 付け た 「 文 字 列 ] を 返し て き 
ます (デフ ォ ル ト で 小数 点 2 桁 に 丸め ます )。 

Dollar 関数 は 、 桁 数 の 丸め 処理 と ドル 表記 を 一 度 に 行っ て くれ る の で 、 面 倒 な 式 
や 文字 列 処理 が いり ませ ん 。 こ こ で は 、 詩 算 結 果 を Dollar 関数 で ドル 表記 に 変換 し 
て 、 ラ ベル コン トロ ー ル に 出力 し て いま す 。 


Labe14 .Caption = AppXLS .WorjksheetFuno モ on . Do11ar ェ (Money ) 


そし て 、 テ キス ト ボ ックス の 入力 フィ ー ル ド を クリ ア し 、 フ ォ ー カ ス を 戻し て 次 
の 入力 に 備え ます 。 


TexxE2 。mexxt = "上 m 
mext2 . Se 上 Focusg 


イミ ディ エイ トウ ィ ン ド ウ で 戻り 値 を 調べ る 


次 の 画面 は b、 この プロ グラ ム を ステ ッ プ 実行 し て 、 計 算 結 果 の 入っ て いる 変数 「Money」 と 、 
Dollar 関数 の 戻り 値 で ある ラベ ルコ ント ロー ル の [Caption] プロ パテ ィ の 値 を 、 イ ミディ エイ 
トウ ィ ン ド ウ に 表示 し て いま す 。 見 て わか る よう に 、Dollar 関数 の 戻り 値 は 、 小 数 点 の 桁 数 が 2 





ステ ッ プ 実行 し て 
いる と ころ 


丸め られ た 戻り 値 
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「Dollar」 関数 で 、 戻 り 値 に 小数 点 の 桁 数 を 指定 し た い 場 合 は 、 第 二 引 数 と し て 桁 数 
を 数 字 で 指定 し ます 。 次 の Dollar 関数 は 、4 桁 の 小数 点 を 付け て 返し て きま す 。 


Money = 15.2244137 
Dollar(Money,.4) 
Dollar 関数 の 戻り 値 は 、「$15.22844」 に な り ま す 。 


人 最後 に 、 プ ログ ラム の 終了 処理 を 作成 し ます 。 フ ォ ー ム の Unload イベ ント ブロ シ 
ー ジ ャ で は 、Excel の イン スタ ンス を 「Quitl メソ ッ ド で 終了 させ て いま す 。 こ の 
プロ グラ ム で は 、 プ ブック を 1 つも 開い て いま せん の で 、 直 接 Excel を 終了 させ る メ 
ソ ッ ド を 使っ て いま す 。 


P ェ ュ マ ate Sub 到 1 上 BEn C1iok( ) 
Un1oad Me 
End 

End Sub 


Private Sub Form Un1oad (Cance1 As Tnteger ) 
AppXLS . Ou ュ エモ 
Se AppXLS = Nothing 

End Sub 


ワー クシ ー ト 関数 は 、 大 変種 類 が 豊富 で すか ら 、 い ろ い ろ な 使い 方 が で きま す 。 し 
か し 、Excel で 使用 で きる すべ て の 関数 が 、Visual Basic か ら 利用 で きる わけ で は あ 
り ま せん 。 中 に は 、Visual Basic で 使え な い 関数 も ある の で 、「 付 録 Visual Basic 
で 使用 で きる ワー クシ ー ト 関数 の 一 覧 」 を 参照 し こし 、 プ ログ ラム の 機能 に あっ た ワー 
クシ ー ト 関数 を 使っ て くだ さい 。 


@c》 練習 問題 


為替 レー ト を 、 リ スト ボッ クス か ら 選 べ る よう に し 、 換 算 の シミ ュ レ 
ーション が で きる よう に 修正 し て くだ さい 。 


解答 は 巻末 に 一 
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上 由 2 


目 四 
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> Lesson36.vhp 
⑨ VB6CD2 
ヨ ペ ココ Lesson36 


フォ ト ア ル バ ム の 作成 


この レッ スン で は 、Excel の 操作 と Visual Basic の コン トロ ー ル を 組 
み 合 わせ て 、 フ ォ ト ア ル バ ム を 作成 し ます 。 Excel の ワー クシ ー ト に は 、 
写真 の ファ イル 名 と カメ ラ 、 撮 影 場所 ・ 年 月 日 な ど が 入力 され て いま す 。 
そし て 、 写 真 を JPEG ファ イル に し た も の も あり ます 。 こ の プロ グラ 
ム で は 、Excel の ワー クシ ー ト か ら 撮 影 デ ー タ を 読み 込ん で フォ ー ム に 
表示 する と と も に 、 対 応 す る JPEG ファ イル を イメ ー ジ コン トロ ー ル 
に 表示 し て 、 写 真 と デー タ を 同時 に 見 られ る よう に し て ます 。 




















5 ニニ 
今回 作成 する プロ グラ ム 
E< 

1 撮影 日 

2 ロ ビー 1567 

3 時 計 の 建物 1996 

4 | 馬 と 子 侍 0 1g96 

5 バラ ー ブ プレイボーイ ross-1.jpg C ル タ 1995 

や と window.jpg PENTAX Z-50P 1997 

7 

8 誤 Ss 

8 Excel に は ワー クシ ー ト 大 

10 3 請 2ー h e 

器 | に 撮影 デー タ が 入力 され アイ ル 間 業 ) 表示 秒 箇 Q お 気 に AOQ) ヘル フ ⑪ 配当 
ー て いる 7RP2OF」 oyveomievrveoonos 引 証 IM 
14 ー ニ 
It 4|yIMINShcc /Shieet2 ZSheet a 札 ] 計 瑞 半 品 

コマ ンド 1 Srportjpe Cemeraico clockjpe Formlfrm 

| Lesson36 





峡 Re ] 
時 ま に 司 2096Mp ke 半 。 
還 
. 商 | フォ ル ダ に は 、 写 真 を 
JPEG ファ イル に し て 保 
存 し て ある 


Ii09 相 マ イエ 5- タ 


Pc ァイル き 了 rt ます プロ グラ ム は 、 ワ ー ク シー ト か ら 
デー タ を 読み 込み 、 対 応 す る 
JPEG ファ イル を 表示 する 


この プロ グラ ム で は 、Excel を 起動 し 、 ワ ー ク シー ト か ら 撮 影 デ 
ー タ を 取得 し て 、 フ ォ ー ム に 配置 し た ラベ ルコ ント ロー ル に 表示 し 
ます 。 ま た 、 デ ー タ に 対応 する 写真 を 読み 込み 、 イ メー ジコ ント ロ 
ー ル に 表示 し ます 。Excel は 、 起 動 し て も 表示 せ ず に 、 完 全 に バッ 
ク グ ラウ ンド の プロ セス と し て 動作 させ ます 。 そ し て 、Excel は プ 
グラ ム 終 了 時 に 、 プ ログ ラム か ら 操 作 し て 終了 させ ます 。 
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と 邊 ニコ ンジ ロー ル と プロ パテ ィ の 設定 


※ 新 し い プ ロジ ェクト ファ イル (標準 EXE) を 用 意 し ます 。 付録 CD- 
ROM の 「Lesson36] フォ ル ダ に ある 次 の ファ イル を 、 プ ログ ラ 
ム を 作成 する フォ ル ダ に コピ ー し て くだ さい 。 

人 @ photoalbum.XLS 代 CAMERA.ICO 念 airDort.jpg 代 Clock.jDg 
信 hoOSe.jDg 欠 rOSG- 1 .jDg 葵 WindOW.jDg 


ツー ル パ レ ッ ト に 「Microsoft Windows Common 2 コン ポー ネン ト を 


Control 6.0」 コン トロ ー ル を 追加 する 追加 する 
コン ポー ネン ト を 追加 す 














| ーー る 方 法 に つい て は 、 
「Lesson5 ツー ル バ ー コ ン 
ツー ル パ レ ッ ト に トロ ー ル の 組み 込み | を 
コン ポー ネン ト が 参照 し て くだ さい 。 
追加 べ れ る 
フォ ー ム を 広げ 、[Caption] プロ パテ ィ を 
「Custom Photo AIDum」 に 変更 する 
[Caption] プロ パテ ィ を 変更 
し て 、 サ イズ を 広げ た フォ ー ム 
| - 
| H 
| | 
| | 
際 室 < お っ 人] 
口 We ェ \ 了 リッ ヽ 
[lcon] プロ パテ ィ の 「[..….] ボタ ン を クリ ッ ク し 9 


「CAMERA.ICO」 を 設定 する 


[.…] ボタ ン は 、 そ の プロ 
パテ ィ の 詳細 な 指定 を 行 


ii 
| カイ ル の 場所 び : ドー | う ダ イア ログ ボッ クス が 
| ieo ーー 人 用 意 き さき れ て いる こと を 示 


選 條 Copya 

還 comes rk ここ を クリ ッ ク し て いま す 。 
oms2 co camero ek | 
ti CO oo ISK 1 





2 
ーー ー ョ wm 症 | に cs2D52 | | ここ を クリ ッ ク | 
zz1 の 秩 類 ecoscooo。 {1{- あー 
_ へ 2 | 
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eZ コマ ンド ボタ ン を 
イプ 昌 置 する 


コマ ンド ボタ ン を 配置 す 
る に は 、 ツ ー ル パレ ッ ト 





の SR に 


を 使い ま 


フレ ー ム コン トロ 
ぐー し ル を 配置 する 


フレ ー ム コン トロ ー ル を 
配置 する に は 、 ツ ー ル パ 
レッ ト の [Frame] | 較 
を 使い ます 。 





コマ ンド ボタ ンコ ント ロー ル を ら つ 配置 し 
トロ ー ル の プロ パテ ィ を 変更 する 


足 
4 


避 


コン トロ ー ル 
Command 1 


オブ ジェ クト 名 
OpenBtn 
ExitBtn 


[Caption] プロ パテ ィ 
アル バム を 開く 





Command ら 








アル バム を 聞く 


























配置 し て プロ パテ ィ 
を 設定 し た コマ ンド 
ボタ ンコ ント ロー ル 





















フレ ー ム コン トロ ー ル を 配置 し 
ティ を 「 撮 影 デ ー タ 」 に 変更 する 


[Caption] プロ パ 





2 wr | 
坦 デ ー タ ー 1 









配置 し て プロ パテ ィ 
を 設定 し た フレ ー ム 
コン トロ ー ル 












6⑮ ツー ルー パレ ッ ト の [ListBox] 還 軸 を 使っ て 、 リ ス 
ト ボ ックス コン トロ ー ル を フレ ー ム 内 に 配置 する 





アル バム 吉 蘭 く 因 了 | | 
| 
揚 果 デー タ 
由 





1 | 斜め に ドラ ッ グ 
| し て 配置 
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が [List] プロ パテ ィ を クリ ッ ク し て 文字 を 消す 


List1 ListBax ユ 
| 全体 | 項目 串 | 








0- お し 






IntegralHelght True 
| 0 ヌ ト ) 
240 
0 メト ) 


ここ の 文字 を 削除 


|MousePointer 





2 、 うら e 一 ミル ラベ ルコ ンド ロー 
5 ル を 配置 し 、 次 の プロ パテ ィ を 設 を し を 配置 する 
ラベ ルコ ント ロー ル を 配 


と 置 す る に は 、 ツ ー ル バレ 
AE ッ ト の 【[Label] 仙 を 使 


ら ー 中 え いす 


BorderStyle 1 一 実線 














Caption (な し ) 
| ーーーー | 還 了 ] | 
境 彰 デー タ | 
0 ] | | 配置 し て プロ パテ ィ 
1 3 一 | を 設定 し た ラベ ルコ 





| ント ロー ル 





作成 し た ラベ ルコ ント ロー ル を [コピ ー] と [貼り 
付け ] を 使っ て 3 つ コ ピー し 、 サ イズ を 調整 する 








ET し -」 ロ | * 
| _ ァ piusW | Mr | 


坦 果 デ ー タ 


ピー し て サイ ズ を 
調整 し た ラベ ルコ ン 
ロー ル 
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ラベ ルコ ント ロー 
ンジ ル を 配置 する 


ラベ ルコ ント ロー ル を 配 
置 す る に は 、 ツ ー ル パレ 
ッ ト の [Label AA を 使 
いま す 。 ee 





グ イメ ー ジ コン トロ 
ヽ プ 一 ル を 配置 する 
イメ ー ジ コン トロ ー ル を 
配置 する に は 、 ツ ー ル パ 
レッ ト の [Image] 過 語 を 
使い ます 。 回 








上 ラベ ルコ ント ロー ル を 4 つ 配 置 し 、 各 コン トロ 
ー ル の Caption] プロ パテ ィ を 設定 する 


コン トロ ー ル 
Label5 
Label6 


[Caption] プロ パテ ィ 
カメ ラ 

レン ズ 

撮影 日 時 

撮影 場所 





LabelZ 
Label8 
















配置 し プロパティ 
を 設定 し た ラベ ルコ 
ント ロー ル 





| 
| 
| 
| 
1 


上 イメ ー ジ コン トロ ー ル を 配置 し 、[BorderStyle] 
プロ パテ ィ を 「1 実線 」 に 設定 する 
















lg 
] NL 還 
| | パテ ィ 
お 一 | を 設定 し た イメ ー ジ 
ca | ] ロー ル 
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1 み ツー ルー パレ ッ ト の [StatusBar] 」 識 」 を 使っ 
て 、 ス テー タス バー コン トロ ー ル を 配置 する 





| 
| zuiaW | ES 
| データ ーーーーーーー | 
| ーー | 
| ps | 
| 
| 


、 電電 場所 | 


ei | 斜め に ドラ ッ グ 
ーー ni し て 配置 


』 る [プロ パテ ィ ペ ー ジ ] の [パネ ル ] タブ で [サイ ズ 
の 自動 設定 ] を 「] 一 sbrSpring」 に 設定 する 


| 全般 パ 都 | トウ | 
220 「 
球 ぇ ト O: 

ルト G9: 












が fi ル の 提 入 ) | が の 肖 除 | 





キ ⑯ | "“ 感 幅 ⑯ om 
が 『 実際 の 蛋 ⑥> Fi4Q0 
配置 ⑲: hp-srtet 玉 3 ん AM 

か 
2 グ lh mt 当 ーー 生 の | 
立体 枠 () h-sbrrset 吾 ーーー ブ 


サイ メ の 自動 府 定 (U): 





上 [プロ ジェ クト ] メニ ュー の [参照 設定 ] を 選び 、 
[Microsoft Excel 9.0 Object Library] を 選 点 














ルツ | Visual Basic For Applications 
ツ | Visual Basic runtime objects and procedures 
| Visual Basic objects and procedures 

ン ed13 AD 
Mc Em 





ACNve PR >antrol Orory 
ActiveMoyie control type library 
ActiveX Conference Control 優先 馬 位 
ActiveX DLL to perform Mieration of MS Reposit 

ATL 20 Type Library と ] 
CAPICHKR 

CCrsWpp 10 Type Library 
CFtpWpp 1.0 Type Library 
rvnfex 1 Tvne lihrarv 


ここ を クリ ッ ク 











Microsoft Excel 90 Object Library 


場所 . c\Proeram Files\Microsoft Office\Office\EXCEL9.OLB 
言語 : 機 準 





ZEN デ 人 8 崇 
ぐ W 紀 タイ アロ グ 
[プロ パテ ィ ペ ー ジ ] ダイ 
アロ グ ボ ックス を 表示 す 
る に は 、 コ ント ロー ル を 
選択 し プロパ ティ ウィ 
ンド ウ の 「[( プ ロ パ ティ ペ 
ー ジ )] を クリ ッ ク し 、 右 
欄 の [.…] ボタ ン を クリ ッ 
ググ 9 


ご 
ン Excel97 の 場合 
[| Microsoft Excel 8.0 
Object Library] を 選ん で 

くだ さい 
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ml ロー ド ) 


| IGGenerap | (Declarations}) 


Dim MyXLS As Ob]jeo 
」 Dim A1bumBook As Objeot 
Dim DetectXLS As Boo1ean 

















| 








Prvate Sub Form Load() 
| DetectXLS = Fa1se 
End 8ub 





















上 コ | et 四 リ 了 Es 2 8 2 - ロ に | 


[openBm | [Ciick | 


| Private Sub OpenBtn C1iok( ) 
Dim 1 As Tnteger 
Dim XLSF1i1e As String 





ュ 1 = 2 

XLSF11e = App.Path & "photoa1bum .xx1s" 

On 到 エ or GoTO FATL 

Set MyXLS = CreateOb]ject ( "Exxce1 .App11oaion" ) 

Set A1bumBook = MyXLS.Workbooks .Open (XLSF ュ 1e ) 

Do 
S モ ェ 1 = A1bumBook .Worksheets ("Sheet1") .Ce11s( ュ i, 1) 
エエ st1 .AdQdTtem S モ ェ 1 
も = ミュ ミ + ォ 1 

| Loop Whi1e St エ 1 <> "m 


エ List1 .Remove エ tem 1 - 3 

StatusBar1 .Eane1s(1) .mexxt = "Exxce1l ファ イル を 開い て いま す r 
OpenBtn .Enab1ed = Fa1se 

DetecCtXLS = F エ ue 

Ex ュ モ Sub 


FATL : 
| MsgBOxx EE エエ O エ ( 巨 エエ . Number ) 
End Sub 
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Form1:List1-Click 


36 - Form1 ロー ト }) 








| Private Sub Lis モ 1 C1iok( ) 
Dim Pos As Tnteger 
Dim Fname AS St 上 ringd 


Pos = Lis モ 1 .ListTndex + 2 

With A1bumBookk . Worksheets ("Shee1") 
Labe1 1 ( 0 ) .Caption = .Ce11s(Pos, 3) 
rabe11 (1) .Caption -Ce11s(Pos, 4) 
rabe1 1 ( 2 ) .Caption = .Ce11s(Pos, 5) 
rabe11 (3 ) .Caption = .Ce11s(Pos, 6) 
Fname = .Ce11s(Pos, 2) 

End With 


Fname = ADp.Path & " 笠 " な Fname 
| エ mage1 . P1C 上 urG = LoadP1cEure(Fname ) 
| End Sub 


Form1: Form- Unload 





| P エ ュ エマ a@ Sub Form Un1oad(Cance1 As Tnteger ) 
Form1 . Se 上 FOCUS8 


On 下 エ エ Oo エ ReSume Nexx 

ェ F DeteotXLS = True Then | 
MsgBox "開い た skce1 の sook を 閉じ ます ", vbokon1y, "Exxce1 の 終了 " 

| ActiveWorkbookk .C1ose 

| MyXXLS .Ou エ も 

| Set MyXLS = Nothing 

| Set A1bumBook = Nothing 
End エモ 

| asa Sub 


1 ョ Form1:E 還 M -Click_ 








private Sub ExcitBtn C1iok( ) 
Un1oad Me 


End 
End Sub 
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1 


ス 






この プロ グラ ム は 、 写 真 の 撮影 デー タ を Excel の ブッ ク か ら 読 み 込 み 、 写 真 は イ 
メー ジフ ァイル か ら 読 み 込 ん で 、 そ れ ぞ れ を 1 つの フォ ー ム に 表示 する プロ グラ ム 
で す 。 実際 の アル バム で は 、 撮 影 デ ー タ は 常に 追加 され て いき ます 。 そ の た めも し 、 
Visual Basic 単独 で アル バム プロ グラ ム を 作っ た と する と 、 撮 影 デ ゲー タ を 変更 する 
た びに プロ グラ ム を 作り 直さ な けれ ば な り ま せん か ら 現 実 的 で は あり ませ ん 。 ま た 、 
撮影 デー タ を テキ スト ファ イル に 保存 し て 、 シ ー ケ ン シ ャ ル ま た は ラン ダム アク セ 
ス で 読み 込む 方 法 も あり ます が 、 デ ー タ の 入出 力 処理 を 組み 立て る 必要 が あり ます 。 

この プロ グラ ム は 、 外 部 デー タベース と し て Excel の ワー クシ ー ト を 使う こと で 、 
デー タ の 入力 処理 を 容易 に し て いま す 。 プ ログ ラム 起動 時 に 、 常 に セル に 入力 され 
て いる 撮影 デー タ を 読み 込み ます の で 、 撮 影 デ ー タ が 増減 し て も ブッ ク を 開い た 時 
点 の 最新 の デー タ を 読み 込む よう に な っ て いま す 。 ま た 、 デ ー タ の 中 に 写真 の イメ 
ー ジ ファ イル 名 (パス 名 ) を 記述 し て お き 、 こ れ を 読み 込ん で イメ ー ジ コン トロ ー 
ル に 表示 し て いま すか ら 、 簡 単に デー タ と 写真 を 一 致 さ せ て 表示 で きま す 。 


撮影 デー タ は すべ て 


ワーク シー トド で 管理 
する 





| ーー 
] 医 真 名 | ァイル 名 カ ァ ラテ レル ンズ 





プロ グラ ム の 動作 を 説明 し て お きま す 。 


① フ ォ ー ム に ある [アル バム を 開く ] ボタ ン を クリ ッ ク す る と 、「CreateObject」 
関数 を 使っ て 、Excel の イン スタ ンス を 作成 し ます 。 そ し て 、Excel の Open メ ソ 
ッ ド で 、 プ ログ ラム と 同じ フォ ル ダ に ある プ ブック 「photoalbum.xls] を 開き ます 。 
この 時 点 で 、Excel を 表示 に する 処理 を 行っ て いま せん か ら 、 プ ログ ラム が 終了 
する まで Excel は 一 切 表 示さ れず 、 バ ッ ク グ ラウ ンド プロ セス と し て 動作 し ます 。 


② プ ブッ ク を 開い た ら 、 ワ ー ク シー ト 「Sheetl] に ある セル を 1 行 目 か ら 順 番 に サー 
チ し 、 写 真 の 名 前 を フォ ー ム の リス ト ボ ックス に 組み 込み ます 。 






写真 の 名 前 を リス ト 
ボッ クス に 組み 込む 
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③ リ スト ボッ クス へ の 組み 込み が 終了 する と 、[ ア ル バ ム を 開く ] ボタ ン を 無効 に し 
て 、 二 重 に ファ イル が 読み 込ま れる こと を 防止 し て お きま す 。 


ーー ーー ニー この ボタ ン を 無効 に 
本 語 の 52 5 する 
| 揚 果 デー タ 5 5 

2 ョ 


EE 


リス ト ボ ックス で 写真 の 名 前 が クリ ッ ク さ れる と 、 そ の 行 番号 を 使っ て 


て 、 セ ル か 
ら カ メラ や レン ズ な どの 撮影 デー 


タ を 読み 込み 、 ラ ベル コン トロ ー ル に 表示 し ま 


す 。 

屋 27255% 証 2 

re の に: こみ 写真 の 名 前 を クリ ッ 
52。 ク す る と .… 





撮影 デー タ が ラベ ルコ ント 
ロー ル に 表示 され る 





xce ワ ァイル を 開い て いま す 


⑤ 更 に 、 同 じ 行 に 入力 され て いる イメ ー ジ ファ イル 名 を 取得 し 、 イ メー ジコ ント ロ 
ー ル に 表示 し ます 。 





続け てこ イメ ー ジ コン トロ ー ル 
に イメ ー ジ が 表示 され る 
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Excel は 、 複 数 の イン スタ ンス を 作成 で きる よう に 作ら れ て いま す の で 、 こ の プロ グ 
ラム で Excel を 使用 し て いて も 、 別 の Excel を 起動 で を ます 。 た だ し 、 同 じ フ ァイル 
を 開 こ うと する と 、 フ ァイル が 使用 中 で ある 旨 の メッ セー ジ が 表示 され ます 。 








る で は 、 順 番 に プロ グラ ム を 作成 し て いき まし ょ う 。 フ ォ ー ム の 宣言 セク ショ ン に 、 
2 つの オブ ジェ クト 変数 を モジ ュー ルレ ベル の 変数 と し て 宮 言 し ます 。 


Dim MyXLS As Objeo 
Dim A1bumBook As Objeo 
Dim DeteotXLS As Boo1ean 


「MyXLS] は 、Excel の オプ ジェ クト を 格納 し ます 。 [AlbumBook」 は 、 開 いた ブ 
ッ ク の オプ ジェ クト 名 を 格納 し ます 。 こ の プロ グラ ム で は 、 ワ ー ク シー ト や セル へ 
の アク セス は 、 ブ ッ ク の オプ ブ ジ ェクト 変数 を 使っ て 行い ます 。「DetectXLS」 は この 
プロ グラ ム が Excel を 使用 し た か どう か を 確か め る た め に 使用 する 変数 で す 。 


小 。 プロ グラ ム 起 動 時 に は まだ Excel を 開い て いま せん か ら 、[「DetectXLS」 変数 に 
「False」 を 設定 し て お きま す 。 こ れ は 後 で フォ ー ム を アン ロー ド す る と き に フラ グ 
変数 と し て 使用 し ます 。 


Private Sub Form Toad( ) 
De も teoctXLS = Fa1se 
End Sub 


全 。 炊 に 、[ ア ル バ ム を 開く ] ポタ ン の 処理 を 組み 立て ます 。 こ の ポタ ン の Click イ ベ 
ント プロ シー ジャ で は 、 撮 影 デ ー タ を 格納 し て いる ブッ ク 「photoalbum.xls」 を 開 
き 、 写 真名 を リス ト ボ ックス に 組み 込み ます 。 
まず 、 変 数 を 2 つ 用 意 し ます 。「i] は 、 ワ ー ク シー ト の セル を 参照 する 際 の 行方 
向 の セル 番地 を 格納 し ます 。「XLSfilel は 、 開 く ブ ッ ク の ファ イル 名 を フル パス で 
格納 する 変数 で す 。 
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jpP ェ ュ で ate Sub OpenBtn C1ick( ) 
Dim 1 As Tnteger 
Dim XLSE11e As St エ ュ ing 


変数 を 宣言 し た ら 、 変 数 i] を 初期 化し て お きま す 。 ブック 「photoalbum.xls」 
は 、1 行 目 が 項目 見 出し に な っ て いる た め 、2 行 目 か ら 実 際 の デー タ が 入力 され て い 
ます 。 こ の 行 番号 を 、 変 数 呈 ] に 設定 し て いま す 。 






実際 の デー タ は ら 行 目 
か ら 入 力 さ れ て いる 











airportjng PENTAX Z-50P 28-B0mm Power Zoom 旨 
8 時 計 の 建物 cpckjpg Canon At 135mm 1996 年 7 月 清里 
旧 糧 上 と 子供 hosejpg CanonAl 85mm 1996 年 8 月 0 
5 い ラー フ プレイボーイ rosa-1 jpg Canon AI 85mm+ クロ ー ズ アッ プ フ ィ ル タ 1995 年 6 月 自宅 
6 に 223 windowjpg PENTAX Z-50P 28-60mm Power Zoom 1997 年 8 月 北 清道 


1 
| 
全 | 














そし て 、 変 数 [XLSfilel に 、 ブ ッ ク 「photoalbum.xls] を フル パス で 代入 し ます 。 
「photoalbum.xls] は 、 プ ログ ラム と 同じ フォ ル ダ に コピ ー し て いま すか ら 、App オ 
プ ジ ェ クト の [Path] プロ パテ ィ の 値 と 結合 し て 格納 し ます 。 


XLSF11e = App.Path & " 笠 photoa1bum .xx1s" 


開く ファ イル 名 が 設定 で きた ら 、「CreateObject」 関数 で Excel の イン スタ ンス を 
作成 し ます 。 そ し て 、 戻 り 値 の オプ ジェ クト 名 を 、 オ プ ブ ジ ェクト 変数 [MyXLS」 に 
格納 し ます 。 続 いて 、Excel の Open メソ ッ ド で ブッ ク 「photoalbum.xls] を 開き ま 
す 。Open メ ソ ッ ド は 、 実 行 す る と プッ ク の オプ ジェ クト 名 を 返し て きま すか ら 
これ を も う 1 つ の オブ ジェ クト 変数 「AlbumBook」 に 格納 し ます 。 


On 正 エ エ O エ GOTO FAT エエ 
Se MyXLIS = CreaeOb]ect ( "EECe1 . Ap や pa モ ュ on" ) 
Set A1bumBookk = MyXLS.Workboojkks .Open (XLSE ュ 1e ) 


な お 、「CreateObjectl 関数 が オプ ジェ クト の イン スタ ンス を 作成 で き な か っ た 
場合 に 備え て 、「On Error GoTo] ステ ー ト メン ト で エラ ー 処 理 を 作成 し て お きま す 。 
また 、 こ こ で は ブッ ク を 開い て も [Visible] プロ パテ ィ で 表示 する 操作 を し て いま 
せん 。 表 示し て いな く て も 、 ワ ー ク シー ト や セル へ の アク セス は 可能 で 、 バ ッ ク グ 
ラウ ンド で Excel を 動作 させ た 処理 が 可能 に な り ま す 。 こ の 処理 は 、 ユ ー ザ ー に 不 
要 な 操作 を きせ な い 、 と いう 点 で 便利 で す 。 
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プ ブック を 開い た ら 、 ワ ー ク シー ト 「Sheet1ll の セル を 、2 行 目 か ら 順 番 に サー チ 
し て 、「 写 真名 ] を リス ト ボ ックス の リス ト 項 目 に 追加 し て いき ます 。 

まず 、 セ モル へ の アク セス で す が 、[Range] プロ パテ ィ を 使わ ず に 「Cells」 プロ パ 
ティ イ で アク セス し ます 。[Range] プロ パテ ィ が 「A1l 形式 で セル 番地 を 指定 する 
の に 対し 、[Cells] プロ パテ ィ は 「1、1」 形式 で セル 番地 を 指定 で きま す 。 た と え 
ば 、 セ ル 「A1] に アク セ モス する に は 、「Cells(1.1)] と 記述 し ます 。 引 数 の 最初 の 数 
字 が 行 番号 で 、 次 の 数 字 が 列 番 号 に な り ま す 。 


Ce11gs (Row, Co1umn ) 


セル 番地 に 数 字 が 使え る と いう こと は 、 変 数 が 使え る と いう こと で あり 、 変 数 が 
使え る と いう こと は ルー プ 処 理 な どの 自動 化 が で きる 、 と いう こと に な り ま す 。 

そこ で 、Do..Loop ス テー トメ ント を 使用 し て 、 セ ル を 2 行 目 か ら 1 行 ずつ 順番 に 
アク セス し 、 セ ル の 値 を 変数 [Str1」 に 格納 し ます 。[「 写 真名 ] は 1 列 日 (A 列 ) に 
入力 され て いま すか ら 、[Cells(i 1)] と いう 式 を 組み 立て 、 変 数 ii| の 値 を 変化 さ 
せ て いけ ば 、 自 動 的 に モル 番地 を 1 行 ず つ ず ら す こと が で きま す 。 

この 仕組 み を 利用 し て 、Do..Loop ステ ー ト メン ト の 最初 に 、 ま ず 2 行 目 の 1 列 に 
ある セル の 値 を 変数 「Str1] に 格納 し ます 。 変 数 に は 、 最 初 の 写真 名 「 ロ ビー| が 
格納 され ます 。 そ し て 、 そ の 写真 名 を フォ ー ム に 配置 し た リス ト ボ ックス の 項目 と 
し て 、AddItem メ ソ ッ ド を 使っ て 組み 込み ます 。 そ し て 、 変 数 i| の 値 を 1 つ 増 や 
し て お きま す 。 こ れ で 、 次 に ルー プ が まわ る と 、 次 の 行 の セル に アク セス し ます 。 
これ を 、 セ モル の 値 が 空白 の 行 に 出会う まで 、 ル ー プ を 繰り 返し ます 。 


「 写 真名 ] は ら 行 目 の 
セル 「A2」 か ら 格 納 
され て いる 


1997 年 8 月 北海 遂 





写真 名 が 順番 に リス 
ト ボ ックス に 組み 込 
まれ る 








Lesson 36 フォ ト ア ル バ ム の 作 


Do 
SE エ 1 = A1bumBook .Worksheets ("Sheet1" ) .Ce11s(i, 1) 
エエ 5 上 1 .AdQ エ tem 8 ヒエ 1 
Sh 

Loop Whi1e S モ エ 1 <> "『m 


人 値 が 空自 の セル に 出会う と 、 そ こ で ルー プ は 終了 し ます 。 し か し 、 リ スト ボッ ク 
ス へ の AddItem メ ソ ッ ド に よる 項目 の 組み 込み は 、 こ の 空白 まで も 行わ れ て し まい 
ます 。 そ こ で 、 こ の 空白 の リス ト 項 目 を 削除 し て お きま す 。 

リス ト ボ ックス コン トロ ー ル の 「Removeltem] メソ ッ ド は 、 リ スト ボッ クス か 
ら リ スト 項目 を 削除 し ます 。 引 数 に 削除 する リス ト 項 目 の イ ン デ ックス 番号 を 指定 
し ます 。 リ スト ボッ クス に 組み 込ん だ 項目 の 数 は 、 変 数 | の 最終 値 で す が 、[[i 
は 最初 に 「2] で 初期 化し て いる こと と 、 リ スト 項目 の 先頭 の イン デック ス 番 号 が 
「0] か ら 始ま っ て いる こと を 組み 合わ せる と 、 最 後に 追加 し た 空白 の リス ト 項 目 の 
イン デック ス 番 号 は 、「i - 3] に な り ま す 。 こ れ を 、「Removeltem| メソ ッ ド の 引数 
に 指定 し て 実行 する と 、 最 後 の 空 白 の リス ト 項 目 を 削除 で きま す 。 


List1 .Remove エ tem 1 - 3 


0 リスト ボ ックス の リス ト 項 目 が 追加 で きた ら 、 ス テー タス パー コン トロ ー ル に プ 
ッ ク を 開い て いる こと を 表示 し ます 。Excel は 、 す べ て 非 表 示 の 状態 で 起動 し て い 
ます 。 ユ ー ザ ー の 目 に は Excel は 見 え を ませ ん か ら 、 プ ブッ ク を 開い て いる こと を 表示 
する よう に し ます 。 そ し て 、[ ア ル バ ム を 開く ] ボタ ン の [Enabled] プロ パテ ィ を 
「False」 に 設定 し 、 同 じ フ ァイル が 2 回 開か れ な いよ うに し て お きま す 。 ま た 、 こ 
こ で Excel を 開い た の で 「DetectXLS]」 に は 「True」 を 設定 し て お きま す 。 


StatusBar1 .Pane1s (1) .Texkt = "Exce1 ファ イル を 開い て いま す 
OpenB て tn .Enab1ed = Fa1se 

DetectXLiS = mrue 

Ex Sub 


プロ シー ジャ の 最後 に 、 エ ラー 処理 で ジャ ンプ ミ きせ た ラベ ル 「[FAIL」 の 処理 を 組 
み ま す 。 こ れ は 、Error 関数 と Err オ ブ プ ジ ェ クト の [Number] プロ パテ ィ を 組み 合 
わせ て 、 発 生 し た エラ ー の メッ セー ジ を 表示 させ て プロ シー ジャ を 終了 させ ます 。 


AA エ エエ * 
MsgBOxr エエ O エ ( 巨 エエ .Number ) 
End Sub 
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今度 は 、 リ スト ボッ クス の 項目 が クリ ッ ク さ れ た と き の 処 理 を 作成 し ます 。 こ こ 
で は 、 写 真名 が クリ ッ ク さ れれ ば 、 そ の セル と 同じ 行か ら 撮 影 デ ゲー タ を 読み 出し 、 
ラベ ルコ ント ロー ル に 出力 し ます 。 ま た 、 同 じ 行 に 入力 され て いる 写真 の イメ ー ジ 
ファ イル 名 を 読み 出し 、 イ メー ジコ ント ロー ル で 表示 し ます 。 リ スト ボッ クス の 項 
目 が 、 ユ ー ザ ー に よっ て クリ ッ ク さ れる と 、Click イ ベン ト が 発生 し ます 。 そ こ で 、 
この イベ ント プロ シー ジャ で 、 こ れ ら の 処理 を 行い ます 。 

まず 、2 つ の 変数 を 宣言 し ます 。「Pos」 は 、 セ ル の 行 番号 を 格納 し ます 。「Fname」 
は 、 イ メー ジコ ント ロー ル に 設定 する 写真 の ファ イル 名 を 格納 する の に 使用 し ます 。 


Private Sub Lis 上 1 C1iok( ) 
Dim Pos As Tnteger 
Dim Fname AS String 


変数 を 宜 言 し た ら 、 最 初 に リス ト ボ ックス で 選択 さま れ て いる 項目 名 、 つ まり 写真 
名 を 取得 し ます 。 リ スト ボッ クス コン トロ ー ル の [ListIndex] プロ パテ ィ に は 、 選 
択 き れ た リス ト 項 目 の イ ン デ ックス 番号 が 格納 され て いま す 。 こ の 番号 を 使っ て 、 
セル の 行 番号 を 導き 出し ます 。 先 ほど 行っ た リス ト 項 目 の 設定 と 逆 の 処理 で す 。 

リス ト 項 目 の 先頭 が クリ ッ ク さ れる と 、[ListIndex] プロ パテ ィ に は 「0」 が 格納 
され ます 。 こ の 項目 は 、 ワ ー ク シー ト の 2 行 目 の セル か ら 転 送 し て いま すか ら 、 セ 
ル の 行 番号 は 「ListIndex + 2| に な り ま す 。 


Pos = Lis1.LisTndex + 2 


この よう に し て 作成 し た 行 番号 を 使っ て 、[Cells] プロ パテ ィ で セル に アク セス 
し ます 。 撮影 デー タ は 、 写 真名 の 行 の 3、4、5、6 列 に 格納 され て いま すか ら 、 順 番 
に 取り 出し て ラベ ルコ ント ロー ル の [Caption] プロ パテ ィ に 代入 し ます 。 ま た 、 写 
真 の イメ ー ジ ファ イル 名 は 、 同 じ 行 の 2 列 目 に 入力 され て いま すか ら 、 こ れ を 変数 
「Fname」 に 代入 し て お きま す 。 


With A1bumBookk . Woriksheets ("Sheet1" ) 
abe11 (0 ) .Caption = .Ce11s(Pos, 3) 
Labe11 (1) .Caption = .Ce11s(Pos, 4) 
Labe11(2) .Caption = .Ce11s(Pos, 5) 
Labe11 (3) .Caption = .Ce11s(Pos, 6) 
Fname = .Ce11s(Pos, 2) 

End With 


馬 と 子供 
バラ ー プ レイ ボー イ 
6 ぞ と 邊 
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イメ ー ジ ファ イル 名 は 、 プ ログ ラム と 同じ フォ ル ダ に 格納 し て あり ます の で 、 
App オ プ ジ ェ クト の [Path] プロ パテ ィ と 結合 し て 、 フ ル パ ス 名 に 変換 し ます 。 そ 
し て 、 こ の ファ イル 名 を 、 イ メー ジコ ント ロー ル の [Picture] プロ パテ ィ に 、 
LoadPicture 関数 で 設定 し ます 。 


Fname = App.Path & " 科 " & Fname 
エ mage1 . や エミ ご 上 u エ G = LoadP ふ CEure (Fname ) 


この よう に し て 、 リ スト ボッ クス の 写真 名 を クリ ッ ク す れ ば 、 ワ ー ク シー ト の 同 
じ 行 に ある 撮影 デー タ と イメ ー ジ ファ イル 名 を 、 各 コン トロ ー ル に 設定 し て 表示 で 
きる よう に な り ま す 。 


リス ト 項 目 を クリ ッ ク 
すれ ば 、 撮 影 デ ー タ と 


イメ ー ジ ファ イル が 表 
示さ れる 





最後 に 、 プ ログ ラム の 終了 処理 を 組み 立て ます 。 ま ず 、[ 終 了 ] ボタ ン で は 、 お な 
じみ の プロ グラ ム の 終了 処理 を 記述 し ます 。 


P ェ ュ で a モ ee Sub 互 x1 モ 上 BEn C1iok( ) 
Un1oad Me 
End 

End Sub 


し か し 、 今 回 の プロ グラ ム で は 、 こ れ だ け で は 終了 処理 に な り ま せん 。 ま ず 、 
ユー ザー が Excel を 起動 きせ た の か どう か 調べ る 必要 が あり ます 。 [アル バム を 開く ] 
ボタ ン を クリ ッ ク せ ず に [終了 ] ボタ ン を 押す 可能 性 も あり ます 。 

また 、 起 動 し た 場合 は 、Excel の イン スタ ンス オプ ジェ クト は 、 ま だ 起動 し た ま 
ま に な っ て いま す 。 ユー ザー に Excel を 表示 し て いな い の で 、 ユ ー ザ ー が 自分 で 
Excel を 終了 きせ る こと が で きま せん 。 プ ログ ラム で 責任 を 持っ て Excel を 終了 ミ せ 
る 必要 が あり ます 。 
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注意 し な けれ ば な ら な い の は 、 こ の 処理 を [終了 ] ボタ ン に 組み 込ん で し まう と 、 
フォ ー ム の 「[X] ボタ ン を クリ ッ ク し て プロ グラ ム を 終了 し た と き に 、Excel の 終了 
処理 が 行わ れん なく な っ て し まう こと で す 。 そ こ で 、 こ の 処理 を フォ ー ム の Unload イ 
ベン ト プ ロ シー ジャ に 組み 込み ます 。 プ ログ ラム が 終了 する 際 に 、 フ ォ ー ム が メモ 
リ か ら 削 除き れる 前 に 、 フ ォ ー ム に は 「Unloadl イベ ント が 発生 し ます 。 こ の イベ 
ント プロ シー ジャ に 、Excel を 終了 させ る 処理 を 組み 込ん で お け ば 、 プ ログ ラム 終 
本 直前 に 、 こ の 処理 が 実行 きれ ます 。 

まず 、 い っ た ん フォ ー ム に フォ ー カ ス を 戻し ます 。 


E ェ ivate Sub Form Un1oad(Cance1 As Tnteger) 
Form1 . SetFOCu8 


そし て 、 変 数 「DetectXLS] の 値 を 調べ て 「True」 (Excel が 起動 され た ) の 状態 
な ら 、 処 理 を 続行 し ます 。 も し 「False」 の 状態 な ら 、 そ の まま H 文 を 抜け 出 て な に 
も せ ず に 終了 し ます 。 ま た 、 エ ラー が 起こ っ た と き の た め に 文 の 前 に 「On Error 
Resume Nextl| 文 を 追加 し て お きま す 。 こ れ で エラ ー が 起こ っ て も 、 エ ラー は スキ 
ッ プ され 次 の 文 へ 処理 が 移り ます 。 


On 正 エ ror ReSsume Nexx 上 
ェ エ F DeteoctXLS = True Then 


処理 を 知ら せる メッ セー ジ ボ ッ クス を 表示 し ます 。 処 理 の 分 岐 が な い の で ボタ ン 
は [OK] ボタ ン だ け に し ます 。 


MsgBoxx "開い た sxxce1 の sook を 閉じ ます ", vbokon1y, "Exxce1 の 終了 " 


Excel を 終了 させ る に は 、 開 いた ブッ ク を 閉じ きせ 、Quit メ ソ ッ ド を 実行 し ます 。 
これ で 、 プ ブッ ク が 閉じ て Excel が 終了 し ます 。 


Act ュ iveWorjkkbookk .C1ose 
MyXLS .Oui モ 


最後 に 、 作 成 し た オプ ジェ クト 変数 に 「Nothing] を 代入 し て 、 解 放し ます 。 


Se MyXLS = Nothing 
Set A1bumBook = Nothing 
End エモ 


Lesson 36 フォ ト ア ル バ ム の 作成 


OO }》 ふ IS 


Visual Basic の プロ グラ ム と Excel を うま く 組 み 合 わせ て 使用 する 一 例 を 紹介 し 
まし た 。 今 回 の よう に 、 撮 影 デ ー タ と イメ ー ジ ファ イル が バラ バラ に 存在 する よう な 
場合 は 、Visual Basic の プロ グラ ム で これ ら を 統合 する よう な アプ リケーション を 開 
発 す れ ば 、 効 果 的 で し ょ う 。Excel を 使う こと が で きれ ば 、 す で に ある リソー ス を 有 
効 に 活用 で きま すか ら 、 開 発 の 負担 も 軽く な り ま す 。 

まだ まだ 、 ア イデ ア 次 第 で いろ いろ な 活用 法 が ある と 思い ます 。 リ スト ボッ クス の 


イン デック ス 番 号 と セル 番地 の 数 字 の 不一致 な ど は 、 式 を 組み 立て れ ば 簡単 に 解消 で 
きま す 。 


oi 


邊 リス ト ボ ックス の 項目 を クリ ッ ク す る と 、 写 真名 と 同じ 行 に ある コメ 
ント を ステ ー タ スバ ー コ ント ロー ル に 表示 する よう に 修正 し て くだ さい 。 


写真 名 を クリ ッ ク す る と 、 
メデ ー ダ パー ヨ ジ トド 
ロー ル に コメ ント が 表示 
され る 








解答 は 巻末 に 一 


の PS ンー トチ PRK ーー ーー ツノ 


すでに 説明 し た よう に 、 こ の プロ グラ ム で は Excel を バッ ク グ ラウ ンド プロ セス と 
し て 起動 し て いま す 。 ス クリ ー ン に は 表示 され ませ ん が 、OCtrl+Alt+Delete キー を 押 
すこ と で 起動 中 の Excel を 確認 する こと が で きま す 。 





Excel が 起動 し て いる 


5 ーー 
ne ョ 
CrhAlyDel キー っ 
訂 SR あい 
_PpleozS |  *wzer || 


人 
第 10 日 5 時 限 目 Excel を Visual Basic で 操作 する の 





Visual Basic6O 
実 中 孝 室 






































Visual Basic プロ グラ ミン グ に 役立つ 各種 リフ ァ レ ンス を 掲載 し まし た 。 


「10 日 で お ば える Visual Basic6.0 入門 教室 ] の 方 に は 便利 な 用 語 集 や 関数 一 覧 、 
エラ ー コ ー ド 集 な ど が あり ます の で 、 そ ちら も あわ せ て 参照 し て くだ さい 。 


巻末 に 得 レ ッ ス ン の 練習 問題 の 解答 が 付い て いま す 。 


人 @ 付 録 


品 Visual Basic で AccesSSeG000 の デー タベース ファ イル を 操作 する 方 法 に つい て 
SystemParametorsInfo に つい て 

品 Visual Basic で 使用 で きる ワー クシ ー ト 関数 一 覧 

練習 問題 の 解答 


















Visual Basic で AccesS ら S000 の デー タベース ファ 
イル を 操作 する 方 法 に つい て 


ここ で は 、Microsoft Access2000 で 作成 され た デー タベース ファ イル を 、Visual 
Basic で 操作 する 方 法 に つい て 説明 し ます 。 


Microsoft Access2000 で 作成 きれ た デー タベース ファ イル を 、Visual Basic で 操作 する 
場合 、Visual Basic に 用 意 さ きれ て いる 「Data コン トロ ー ル | で は 、Access2000 の ファ イ 
ル 形 式 を 認識 で きず 、 デ ー タ ベー ス フ ァ イル の 操作 が 一 切 で きま せん 。 

Access2000 は 、「Microsoft Jet4.0] と いう 新しい デー タベース エン ジン で 動作 する アプ 
リケーション で あり 、 こ れ ま で の Access97 か ら フ ァイル フォ ー マ ッ ト も 変更 され て いま 
す 。 

一 方 、Visual Basic に 付属 する 「Data コン トロ ー ル 」| は 、 内 部 で DAO 3.5 Object 
Library を 使用 し て お り 、「Microsoft Jet 4.0」 形式 の ファ イル は 扱え ませ ん 。 





Access2000 で 作成 し た デー タ 
ベー ス フ ァ イル を 、「Data」 コン 


トロ ー ル で 操作 する と 表示 され る 
X ッ セー ジ 





その 場合 は 、「DAO 3.6 Object Library]、 バ ー ジ ョ ン 4.0 以 降 の 「ODBC Desktop 
Driver」、 ま た は 「Microsoft Jet 4.0 OLE DB Provider」 を 使用 する 必要 が あり ます 。 

Excel2000 な ど Ofice2000 の VBA は 、 あ ら か じ め 「DAO 3.6 Object Library」 を 持っ て 
お り 、Visual Basic 6.0 も [Visual Studio 6.0 Service Pack 3 を イン スト ー ル すれ ば 、 
IDAO 36 Object Library」 と 「Microsoft Jet 4.0 OLE DB Provider| を 使用 する こと が 
で きま す 。 

また 、Visual Basic 6.0 に 付属 する 「Microsoft ADO Data Control 6.0 (OLEDB)」 を 使 
用 する と 、 こ の 「Microsoft Jet 4.0 OLE DB Provider」 を 使用 し て 、Access2000 の デー 
タベース ファ イル を 操作 する こと が 可能 に な り ま す 。 た だ し 、 こ の コン トロ ー ル は 、「 デ 
ー タ コン トロ ー ル | の よう に 、「DatabaseName」 プロ パテ ィ で デー タベース ファ イル を 
指定 すれ ば 簡単 に 操作 で きる 、 と いう わけ に は いか ず 、 少 し 特別 な 操作 が 必要 に な り ま 
す 。 

ここ で は 、「Microsoft ADO Data Control 6.0 (OLEDB) | を 使用 し て 、Access2000 で 
作成 し た デー タベース ファ イル を 操作 する 方 法 を 紹介 し ます 。 


Visual Basic で AccesSG000 の デー タベース ファ イル を 操作 する 方 法 に つい で 






操作 対象 の 「Club.mdb] ファ イル 。 
架空 の スポ ー ツ クラ ブ の 会 員 名 簿 が 格 
T 6 5 納 さ れ て いる 

3 ウィ ザー ド を 使用 し て テー ブル を 作成 する 
]] デー タ を 入力 し て テー ゴル を 作成 する 


FT 32-X 

惑 沢 市 片 芋 2-13-X 

川崎 市 高津 区 有馬 5-11-X 
合 3-1-X 


橋 泊 市 神奈 川 区 東 
東京 都 品川 区 品川 
橋 浜 市 鶴見 区 花 月 
人 


東京 都 大 田 区 痛 田 4-2- 
植 浜 市 保 土 ヶ 台 | 村 二 町 111-X 


東京 都 世 田谷 | 
ナイ 3 イム 川崎 市 川崎 区 本 町 13-X 
フル タイ ム 川崎 市 中 原 区 井田 21-555-X 





女 
由 
女 
女 
女 
男 
男 
如 
如 
男 
女 
女 
如 
胃 
如 
女 


付録 ディ スク に 収録 し て ある 「Club.mdb] ファ イル を 、 使 用 する コン ピュ ー タ に コ 
ピー し 、 フ ァイル の プロ パテ ィ で 「 読 み 取り 専用 ] の 属性 を 外し て くだ さい 。 

使用 する デー タベース ファ イル が 「 読 み 取り 専用 ] の まま だ と 、 デ ー タ ベー ス の 接続 
に 失敗 する 場合 が あり ます 。 

この 、「Club.mdb] ファ イル は 、Microsoft AccesS2000 で 作成 ・ 保 存 さ れ て い 
ます 。 


場所 FY.GENKOUWVB60 実 *ADO 
サイ ズ : 1836KB 39264 バイ ト )、163840 パイ ト 信用 


| club mdb 
種類 : Mrosoft Access アリ ケー ション | 
] 


MS-DoS ァイル: cuuBMpB 3 


作成 日 時 : 1999 年 10 月 17 日 221848 
更新 日 時 : 1999 年 8 月 1 日 210210 
アク セ フ 日 : 1999 年 10 月 17 日 


ファ イル の 「 読 み 取 り 


| 
ーーgoojeo | 専用 属性 を 外す 

| 

| 


付録 難 種 リ ファ レン ス 


人 を 81 











凡 新しい プロ ジェ クト ファ イル (標準 EXE) を 用 意 し ます 。 そ し て 、 ツ ー ル ボッ ク 
ス の 上 で マウ ス の 右 ボ タン を 押し 、 シ ョ ー ト カッ トメ ニュ ー か ら [コン ポー ネン ト 
(0O) ..] を 選び ます 。 


ここ を 右 ク リッ ク 
ここ を クリ ッ ク 





う [Microsoft ADO Data Control 6.0(OLEDB)] (また は ServicePack3 を イン スト ー 
ル し て いる 場合 は [Microsoft ADO Data Control 6.0 (SP3) (OLEDB)]) を 選ん で 
チェ ッ ク ボ ックス を オン に し 、[OK] ボタ ン を クリ ッ ク し ます 。 


や In- ル | デ 人 | 角 入 可能 な わ ツ 5 外 | | 


Kodak イメ ー ジ 縮小 表示 コン トロ ー ル 
Kodak イメ ー ジ 編集 コン トロ ー ル 
Microsoft Access BarCode Control 9 

し | Microsoft ActiveMoyie Contral | 
Microsoft ActiveX Plugn 



















ソ MI E 
し Microsoft Agent Control 20 

| Microsoft Calendar Control 9n 
し Microsoft Chart Control 60 GP3) OLEDB) 
Microsoft Comm Control 5 ⑮P2) 


ここ を クリ ッ ク 














ーー ニー デ 上 = ここ を クリ ッ ク 


Visual Basic で AccesSG000 の デー タベース ファ イル を 操作 する 方 法 に つい 


人 ツール ボ ックス に 「Adodc] と いう アイ コン が 表示 きれ ます 。 こ れ が 、「ADO] 
コン トロ ー ル で す 。 


「ADO」 コン トロ ー ル 





各 この アイ コン を クリ ッ ク し 、 フ ォ ー ム に ドラ ッ グ し て 配置 し ます 。 
見 た 目 は 、 従 来 の 「Data] コン トロ ー ル と そっ くり で す が 、 オ プ ジ ェ クト 名 が 
「Adodc」 に な っ て いる の で 、 そ の 違い が わか り ま す 。 


ドラ ッ グ し て 配置 





で は 、 こ の コン トロ ー ル に 、Microsoft Access2000 で 作成 され た 「Clubmdb| フ 
ァイル を 連結 きせ ます 。 プ ロ パ ティ ウィ ンド ウ に ある [プロパティ ペー ジ ] を クリ 
ッ ク し 、[.…] ボタ ン を クリ ッ ク し ます 。 


ここ を クリ ッ ク 
ここ を クリ ッ ク 










1 - vbAlignNane 
1 - ad3DBevel 

日 き H8nn0n05& 

1 - adDakoveFirst 
5n 

全 dodc1 

30 

8 - adCmdUnknawn 


付録 加 種 リ ファ レン 


























( [全般 ] タプ を クリ ッ ク し て 、[ 接 続 文字 列 を 使用 する ] を クリ ッ ク し 、[ 作 成 ] ボ 
タン を クリ ッ ク し ます 。 


ここ を クリ ッ ク 





GS ルク 


ここ を クリ ッ ク 








4 「 デ ー タ リン ク プ ロ パ ティ 」 ウィ ンド ウ が 開き ます 。[ プ ロバ イダ ] タブ を クリ ッ 
ク し 、[Microsoft Jet 4.0 OLE DB Provider] を クリ ッ ク し ます 。 そ し て 、[ 次 へ ] 
ボタ ン を クリ ッ ク し ます 。 


ここ を クリ ッ ク 
ここ を クリ ッ ク 


Microsoft OLE DB Simple Provider 
Remote 


MSDataShape 


ニー ケン リク 








8 [ 挨 迷 | ページ が 表示 され る の で 、「1. デ ー タ ベー ス 名 を 選択 また は 入力 し ます 
に ある [..] ボタ ン を クリ ッ ク し ます 。 





フロ イダ 接続 | 詳細 談 定 | すべ て | 


Jiccess デー 名 に 接続 する た め に 、 次 の 項目 | に 情報 を 入力 し ます : 
1. デ ー タ ペー ス 名 を 選択 また は 入力 し ます (D* 


ここ を クリ ッ ク 
2 デー タベース へ の ログ オン に 必要 な 情報 を 入力 し ます - 
ユー ザー 名 ⑱ IEFnm 
オス ワー トー SE 
ドレ パス ワー ド き 空 に する (B〉 ” 「 パス ワー ド を 保存 する ⑤ 





Visual Basic で AccesS つ 000 の デー タベース ファ イル を 操作 する 方 法 に つい て 


[ Access デー タベース の 選択 ] ダイ アロ グ ボ ックス が 表示 きれ る の で 、 こ こ で 使 
用 する 「Club mdb] ファ イル を 選び 、[ 開 く ] ボタ ン を クリ ッ ク し ます 。 





> アーク ベス の K HH 
zi 戸 @ | コ wn。 。 、、 引 国 回 副 居 国 | 
1 ここ を クリ ッ ク 
グリ 5 リク 





00 [コー ザー 名 ] の 「Admin] を 削除 し ます 。 そ し て 、[ 接 続 の テス ト ] ボタ ン を ク 
リッ ク し ます 。 


フロ イタ 換 続 | 詳細 府 定 | すべ て | 
Access デー 名 に ご 接 読 する た め に 、 の 項目 に 情報 を 入力 し ます 

1. データベース 名 を 選択 また は 入力 し ます (0^ 
IFY GENKOUWVB60 実 時 *ADOwclub mdb | 

2 デー タベース へ の ログ オン に 必要 な 情報 を 入力 し ます : | 
ュー ザー 名 ⑩ 『 - ここ の 文字 を 削除 し .… 

スワ 7 | 

レ パス ワー ド を 空 に する (B) [パス ワー ド き 保存 する ⑬ 


| 
ー 提 の テ スト CO = ここ を クリ ッ ク 


是 EEEE- ン SE アセ パイ スー 


この 「Club.mdb] ファ イル は 、 ア クセ ス す る の に 特に ユー ザー 名 や パス ワー ド を 必 
要 と し て いま せん 。 こ れ ら が 設定 され て いる デー タベース ファ イル に 接続 する 場合 は 、 
この ペー ジ の 「 ユ ー ザ ー 名 」 と 「 パ スワ ー ド 」 を 設定 し て くだ さい 。 


85 
付録 難 種 リ ファ レン ヌス 


罰 凡 無事 、「Clubmdb] ファ イル に 接続 で きれ ば 、 そ の 紀 の メ ッ セ ー ジ が 表示 され ま 
す 


[OK] ボタ ン を クリ ッ ク し て メッ セー ジ を 閉じ た ら 、「 デ ー タ リン タク プロ パテ ィ 」 
ウィ ンド ウ の [OK] ボタ ン を クリ ッ ク し て 、 ウイ ィ イン ドウ を 閉じ ます 。 





ご ご な クリック 


フロ) が 接続 | 詳細 設定 | すべ て | | 
Access デー に 摘 続 する た め に 、 次 の 項目 に 情報 を 入力 し ます : | 
1. デー タベース 名 を 選択 また は 入力 し ます (D> | 
HHRRisssssmsraWae =。0。 〇 -|| 
2 デー タベース へ の ログ オン に 必要 な 情報 を 入力 し ます : 
ユー ザー 名 (⑩: 
ーーーーーーーーーーーーー 
レ パス ワー ド を 空 に する (B〉 ” 「 パス ワー ド き 保存 する ⑮ | 





ここ を クリ ッ ク 
プロ バディ イベ ペー ジ に 記 り 。 [レコード ツー] タプ きみ り ッ ク ケ し ます 。 [ロマ シド 
タイ プ ] リス ト ボ ックス か ら 「2-adCmdTable」 を 選び ます 。 


DDO - ー う 
全般 | 認証 ドナ スィ 絶 一 ッ トト 1 









ここ を クリ ッ ク 
ロー ドナ メ 
my ド %7" 
1 - adCmdText 記 
二 CC 1 v 
4 - adCmdStoredProc ェ ここ を クリ ッ ク 


ゴッド 詩 ト GobD 


で 電 」 Ss 





Visual Basic で AccesS つ 000 の デー タベース ファ イル を 操作 する 方 法 に つい 


時 久 自動 的 に [テー ブル 名 また は スト アド プロ シー ジャ 名 ] の リス ト ボ ックス が 有効 
に な り ま す の で 、 リ スト か ら 「Clubmdb] ファ イル に 格納 され て いる テー ブル 「 会 
員 名 短 」 を 選び ます 。 


コン 9 トン 








時 争 これ で 、ADO コ ント ロー ル の 、[Clubmdb] ファ イル に 接続 する た め の プ ロ パ テ 
1 設定 は 完了 で す 。 [OK] ボタ ン を クリ ッ ク し て 、 プ ロ パ ティ ペー ジ を 閉じ ます 。 





本 mm Fe lt1 

| テテ ー Se 
に 3 
ビー アーーーーーーーー | 


4 


本 人 タ Vsual Basic に 戻り 、 フ ォ ー ム に ラベ ルコ ント ロー ル を 1 つ 配 置 し ます 。 そ し て 、 
プロ パテ ィ ウ ィ ン ド ウ で ラベ ルコ ント ロー ル の 「DataSource」 プロ パテ ィ を 選び 、 
リス ト か ら ADO コン トロ ー ル [Adodc1」 を 選び ます 。 

これ で 、ADO コ ント ロー ル と ラベ ルコ ント ロー ル が 、 連 結 コ ント ロー ル と し て 動 
作 す る よう に な り ま す 。 


ドラ ッ グ し て 配置 





付録 間 種 リフ ァ レ ン 


ここ を クリ ッ ク 
ここ を クリ ッ ク 
ここ を クリ ッ ク 








MS P ゴ シッ ク 
一 HBOOOOn12& 





上 1⑩ [DataField」 プロ パテ ィ を 選び 、 リ スト か ら 「 氏 名 」 を 選び ます 。 こ れ で 、ADO 
コン トロ ー ル で 選ん だ レコ ー ド 位置 の 、 フ ィ ー ル ド 「 氏 名 ]」 の デー タ が ラベ ルコ ン 
トロ ー ル に 表示 され ます 。 







ここ を クリ ッ ク 
還 で ぐ を クリ ッ ク 


らら を クリ ッ ク 


プロ グラ ム を 実行 し ます 。 今度 は 、Data コン トロ ー ル の よう な エラ ー は 表示 され 
ず に 、 き ちん と プロ グラ ム が 動作 し ます 。 

ADO コ ント ロー ル の ボタ ン を クリ ッ ク す れ ば 、 デ ー タ ベー ス に 格納 され て いる フ 
ィ ー ル ド 「 氏 名 |] の デー タ が 、 ラ ベル コン トロ ー ル に 表示 され ます 。 





Visual Basic で AccesS2000 の デー タベース ファ イル を 操作 する 方 法 に つい 


この よう に 、Access2000 で 作成 し た デー タベース ファ イル を 操作 する 場合 は 
Data コン トロ ー ル で は な く 、ADO コン トロ ー ル を 使用 し ます 。 

ADO コン トロ ー ル で は な く DAO を 使用 する と き は 、 必 ず 「DAO 3.60」 を 使用 し 
て くだ さい 。 そ の 場合 は 、 プ ロジ ェクト の 「 参 照 設 定 】 で 、「DAO 3.6 Object 
Library」 を 指定 し な いと 、Visual Basic は コン バイ ル 時 に 参照 不可 で エラ ー に な っ 
て し まう の で 注意 し て くだ さい 。 

また 、Visual Basic 5.0 以前 の バー ジョ ン で は 、ADO も DAO3.60 も 使用 で き な 
い の で 、Access2000 の デー タベース ファ イル を 操作 する こと が で きま せん 。 デ ー 
タベース ファ イル を 旧 バ ー ジ ョ ン の 保存 形式 に し て 使用 する か 、 バ ー ジ ョ ン 4.0 以降 
の ODBC Desktop Driver を 使用 し て 、ODBC 経由 で 接続 し て 使用 し て くだ さい 。 


Micrasaft 癌 ctiyeX Data Objects Recordset 2 天 
Microsaft ActiveX し 

Microsoft dd-jm Des 

Microsaft 訓 DO Ext. 21 6 DDL and Security 

し 」 Microsaft gent Contral 2n 

3 Microsaft Agent Seryer 2 

| し 」 Microsoft Agent Server Ext 

| Microsoft DaO 25/351 owam セ 2 0 

6 ンー Moe DaO 351 Object Librar 


| 」 Microsoft Data Adapter Library 
し 」 Micrasaft Data Binding Collection 


| Microsoft Data Enyironment 1 ー 
| |Micrnsnft Da1、 pyan Fxt snsihilitv ws 時 R 
た 玉 :Z 時 尋 
































ガッ デー し いて 。 > が 4 ま も we 《 
3 幸 PROGRAM FILESWCOMMON 
租 み 垢 生 寺 寺 お 凍っ 先 G 容 包 き 着 下 拓 球 
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SystemParametersInfo に つい て 


SystemParametersInfo() は 、 シ ステ ム 全 体 に 関係 する パラ メー タ を 問い 合わ せ た り 
設定 し た りす る も の で す 。 こ こ で は 参考 まで に 簡単 な 説明 だ け を 行っ て いま す 。 詳細 に 
つい て は 小 社 刊 「Windows 85 API バイ ブル 1」 も し く は マイ クロ ソフ ト 社 より 開発 
者 向け に 提供 され て いる 「Win32SDK」 の ドキ ュ メ ント を 参照 し て くだ さい 。 


Visual Basic で 使用 で きる 書式 で は こう な っ て いま す 。 


Dec1are Function SystemParame も erSTnEo 1 わ "user32" 
A1ias "SystemParametersTnfFoA" 
(ByVa1 uAction As Lond, 
ByVa1 upParam As Lond, 
ByVa1 1pvParam AS AnY, 
ByVa1 FuWinTni As Long) As Long 


【SystemParameterslInfo() の アク ショ ン (uAction)】 


宙 


SPI_LGETACCESSTIMEOUT アク セ シ ビ リティ 機能 の タイ ム ア ウ ト の 時 間 を 記述 し た 
ACCESSTIMEOUT 構造 体 を 取得 し ます 。 


SPI_GETANIMATION 現在 の ユー ザー の アニ メー ショ ン 効 果 を 記述 し た 
ANIMATIONINFO 構造 体 を 取得 し ます 。 


SPLOEIBEEP 警告 の ビー プ 音 が オン に な っ て いる か どう か 調べ ます 。 


SPI_GETBORDER サイ ズ 変 更 が 可能 な 境界 の 幅 と 高 さ を 変更 する 境界 サイ ズ 
乗数 を 取得 し ます 。 


SPI_GETDRAGFULLWINDOWS フル ウィ ンド ウド ラッ グ が 有効 に な っ て いる か どう か を 調 
べ ま す 。 


SPI_GETFASTTASKSWITCH 高速 タス ク 切 り 替 え が 有 効 に た な っ て いる か どう か を 調べ ま 
す 。 


SPI_GETFILTERKEYS フィ ル タ キ ー ア クセ シビ リティ 機能 を 記述 し た 
FILTERKEYS 構造 体 を 取得 し ます 。 





SPI_GETGRIDGRANULARITY Windows デス クト ッ プ 上 に 配置 され る 項目 間 の 距離 を 取 
得 し ます 。 


SPI_GETHIGHCONTRAST 視覚 障害 の ある ユー ザー の た め の ハ イコ ント ラス ト ア クセ 
シビ リティ 機能 を 記述 し た HIGHCONTRAST 構造 体 を 取 
得 し ます 。 


SPI_GETICONMETRICS アイ コン の メト リッ ク を 記述 し た ICONMETRICS 構造 体 
を 取得 し ます 。 





SystemParameterslInfo に つい 







用 
アイ コン の タイ トル テキ スト の 表示 に 使わ れる フォ ント を 


由 
SPI_GETICONTITLELOGFONT 
記述 し た LOGFONT 構造 体 を 取得 し ます 。 
SPI_GETICONTITLEWRAP アイ コン タイ トル の 自動 改行 が オン に な っ て いる か どう か 
を 調べ ます 。 


SPI_GETKEYBOARDPREF マウ ス よ り は キー ボー ド の 使用 を 好む ユー ザー が 、 ア プリ 
ケー ショ ン で 非 表 示 に な っ て いる キー ボー ドイ ンタ ー フ ェ 
イス の 表示 を 希望 し て いる か どう か を 調べ ます 。 


SPI_GETLOWPOWERACTIVE 低 電 力 ス クリ ー ン セー ビン グフ ェ ー ズ が アク ティ ブ に な っ 
て いる か どう か を 調べ ます 。 

SPI_GETLOWPOWERTIMEOUT 低 電力 スク リー ン セ ー ビ ン グフ ェ ー ズ の タイ ム ア ウ ト 値 を 
取得 し ます 。 

SPI_LGETMENUDROPALIGNMENT | ポッ プア ッ プ メニ ュー が 対応 する メニ ュー バー 項目 に 左 揃 
えさ れる か 右 揃 えさ れる か を 調べ ます 。 

SPI_GETMINIMIZEDMETRICS 最小 化 さ れ た ウィ ンド ウ の メト リッ ク を 記述 し た 
MINIMIZEDMETRICS 構造 体 を 取得 し ます 。 


SPI_GETMOUSE マウ ス の スレ ッ シ ョ ルド と 速度 を 取得 し ます 。 


マウ スキ ー ア クセ シビ リティ 機能 に つい て の 情報 を 取得 し 
ます 。 


SPI_LGETNONCLIENTMETRICS NONCLIENTMETRICS 構造 体内 の 、 最 小 化 さ れ て いな い 
ウィ ンド ウ の 非 ク ライ アン ト 領 域 の メト リッ ク を 取得 し ま 
す 。 





















































SPI_GETPOWEROFFACTIVE スク リー ン セ ー ビ ン グ の 電源 切断 フェ ー ズ が 有効 に な っ て 
いる か どう か を 調べ ます 。 

SPI_GETSCHEENREADER テキ ス ト デ ー タ を 点字 式 デ ィ ス プレ イ や 音声 シン セ サ イ ザ 
に リダイレクト する スク リー ン レ ビュ ー ア ユー ティ リティ 

SPI_GETSCREENSAVEACTIVE スク リー ン セ ー バ ー が 有効 に た っ て いる か どう か を 調べ ま 
す 。 

SPI_GETSERIALKEYS シリ アル キー アク セ シ ビ リティ 機能 を 記述 し た 
SERIALKEYS 構造 体 を 取得 し ます 。 

調べ ます 。 


SPI_GETPOWEROFFTIMEOUT 電源 切断 スク リー ン セ ー ビ ン グフ ェ ー ズ の タイ ム ア ウ ト 値 
を 取得 し ます 。 
が ある か どう か を 調べ ます 。 
SPI_GETSCREENSAVETIMEOUT スク リー ン セ ー ビ ン グ の タイ ム ア ウ ト 値 を 取得 し ます 。 
付録 難 種 リフ ァ レ ン 





局 


SPI_GETSOUNDSENTRY サウ ンド セン トリ アク セ シ ビ リティ 機能 の パラ メー タ を 記 
述 し た SOUNDSENTRY 構造 体 を 取得 し ます 。 


SPI_GETSTICKYKEYS ステ ィ ッ キキ ー ア クセ シビ リティ 機能 の パラ メー タ を 記述 
し た STICKYKEYS 構造 体 を 取得 し ます 。 


SPI_LGETTOGGLEKEYS トグル キー アク セ シ ビ リティ 機能 の パラ メー タ を 記述 し た 
TOGGLEKEYS 構造 体 を 取得 し ます 。 


SPI_ICONHORIZONTALSPACING 
SPI_ICONVERTICALSPACING 


SPI_SETACCESSTIMEOUT アク セ シ ビ リティ 機能 の タイ ム ア ウ ト 時 間 を 記述 し た 
ACCESSTIMEOUT 構造 体 を 設定 し ます 。 


SPI_SETANIMATION 現在 の ユー ザー の アニ メー ショ ン 効 果 を 記述 し た 
ANIMATIONINFO 構造 体 を 設定 し ます 。 


SPI_SETBEEP 警告 の ビー プ 音 を オン プ オ フ に し ます 。 


SPI_SETBORDER 境界 サイ ズ 乗 数 を 設定 し ます 。 


SPI_SETDESKPATTERN デス クト ッ プ の 背景 パタ ー ン を WIN.INI フ ァイル の 
pattern キー の 現在 値 に 設定 し ます 。 


SPI_SETDESKWALLPAPER デス クト ッ プ の 壁紙 を 設定 し ます 。 


SPI_SETDOUBLECLICKTIME 1 回 の ダブ ルク リッ ク と し て 解釈 され る 2 回 の クリ ッ ク の 
間 の 時 間 間隔 を 設定 し ます 。 


SPI_SETDOUBLECLKWIDTH ダブ ルク リッ ク と し て 解釈 され る ら 回 目 の ク リッ ク の 水平 
距離 を 設定 し ます 。 


SPI_SETDOUBLECLKHEIGHT ダブ ルク リッ ク と し て 解釈 され る ら 回 目 の ク リッ ク の 垂直 
距離 を 設定 し ます 。 


SPI_SETDRAGFULLWINDOWS フル ウィ ンド ウド ラッ グ を オン オフ に し ます 。 


SPI_SETFASTTASKSWITCH 高速 タス ク 切 り 替 え を オン ンプ オフ に し ます 。 


SPI_SETFILTERKEYS フィ ル タ キ ー ア クセ シビ リティ オプ ショ ン デ ー タ を 設定 し 
ます 。 


SPI_SETGRIDGRANULARITY 配置 する 項目 間 の 距離 を 設定 し ます 。 


SPI_SETHIGHCONTRAST ハイ コン トラ スト アク セ シ ビ リティ オプ ショ ン の パラ メー 
夕 を 設定 し ます 。 


SPI_SETICONMETRICS アイ コン の メト リッ ク を 設定 し ます 。 
SPI_SETICONTITLELOGFONT アイ コン タイ トル の テキ スト の フォ ント を 設定 し ます 。 
SPI_SETICONTITLEWRAP アイ コン タイ トル の 自動 改行 を オン プ オ フ に し ます 。 
SPI_SETKEYBOARDDELAY キー リピ ー ト ディ レイ を 設定 し ます 。 
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SPI_SETKEYBOARDPREF マウ ス の 代わ り に 、 隠 され て いる キー ボー ドイ ンタ ー フ ェ 


イス を 表示 する よう に プリ ファ レン ス を 設定 し ます 。 
SPI_SETKEYBOARDSPEED キー ボー ド の キー リピ ー ト 速度 を 設定 し ます 。 
SPI_SETLOWPOWERACTIVE 低 電力 スク リー ン セ ー ビ ン グフ ェ ー ズ を 設定 し ます 。 


SPI_SETLOWPOWERTIMEOUT 低 電力 スク リー ン セ ー ビ ン グフ ェ ー ズ の タイ ム ア ウ ト 値 を 
設定 し ます 。 


SPI_SETMENUDROPALIGNMENT | メニ ュー ドロ ッ プ アラ イン メン ト を 設定 し ます 。 
SPI_SETMINIMIZEDMETRICS 最小 化 さ れ た ウィ ンド ウ の メ トリ ッ ク を 設定 し ます 。 


SPI_SETMOUSE マウ ス の パラ メー タ を 設定 し ます 。 
SPI_SETMOUSEBUTTONSWAP マウ ス の 左 ボ タン と 右 ボ タン の 意味 を 切り 替え ます 。 


SPI_SETMOUSEKEYS マウ スキ ー ア クセ シビ リティ オプ ショ ン の デー タ を 設定 し 
ます 。 


SPI_SETNONCLIENTMETRICS 最小 化 さ れ て いな い ウ ィ ン ド ウ の 非 ク ライ アン ト 領 域 の メ 
トリ ッ ク を 設定 し ます 。 


SPI_LSETPENWINDOWS ペン ウィ ンド ウ を ロー ド す る か アン ロー ド す る か が を 指定 し 
ます 。 


SPI_SETPOWEROFFACTIVE スク リー ン セ ー ビ ン グ の 電源 切断 フェ ー ズ を 設定 し ます 。 


SPI_SETPOWEROFFTIMEOUT 電源 切断 スク リー ン セ ー ビ ン グフ ェ ー ズ の タイ ム ア ウ ト 値 
を 設定 し ます 。 


SPI_SETSCREENREADER uParam パラ メー タ が TRUE の 場合 、 ス クリ ー ン レビ ュ 
ー ア ユー ティ リティ が 現在 実行 され て いる こと を 表し ま 


す 。 
SPI_SETSCREENSAVEACTIVE スク リー ン セ ー ビ ン グ を 有効 また は 無効 に し ます 。 
SPI_SETSCHEENSAVETIMEOUT 通常 の スク リー ン セ ー ブ の タイ ム ア ウ ト 値 を 設定 し ます 。 


SPI_SETSERIALKEYS シリ アル キー アク セ シ ビ リティ オプ ショ ン の デー タ を 設定 
し ます 。 


SPI_SETSHOWSOUNDS サウ ンド 表示 モー ド を 有効 また は 無効 に し ます 。 


SPI_SETSOUNDSENTRY サウ ンド エン トリ アク セ シ ビ リティ オプ ショ ン の デー タ を 


設定 し ます 。 
SPI_SETSTICKYKEYS ステ ィ ッ キキ ー ア クセ シビ リティ オプ ショ ン の デー タ を 設 


定 し ます 。 


SPI_SETTOGGLEKEYS TOGGLEKEYS デー タ を 設定 し ます 。 
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Visual Basic で 使用 で きる ワー クシ ー ト 関数 一 覧 


Visual Basic で 使用 で きる ワー クシ ー ト 関数 の 一 覧 で す 。 こ れ ら の 関数 の 詳細 に つい 
て は 、Microsoft Excel の オン ライ ン ヘ ルプ を 参照 し て くだ さい 。 


























ム A G 
Acos、 Acosh、 And、 Asin、 Asinh、 GammmaD1 st 上 、 Gamma エ n ゞ 、 GammaLn 、 
Atan2 、 A モ 上 anh、 AVGDGY、 ATGrad@G GeoMean 、 GrOwEh 
B 古 
BetaDi is 上 、 Be モ 上 a エ ロマ 、 BinomDis HarMean、 HLookup、 HypGeomDi ss 
_ 
Cei11ing、 ChiDis 上 、 Chi エ Tn で 、 エ ndex 、 エロ 上 G エ で CGp 上 、 エ Tpm モ 、 エエ エ 、 
Chimest、Choose、C1ean、 Combin、 エ 8 巨 エエ 、 エ S 巨 エエ O エ 、 エ TSTiOd ュ Ca1 、 TsNA、 
ConFidenCe、Co ェ ェ e1 、Cosh、Coun 、 ェ sNonTmexE、 エ TSNumber、 エ 5pmt 、 
Coun モ 上 A、 CountB1ank、、 Coun モ エモ 、 エ TsTex 上 
Covar、 C ェ ュ モ Binom 
拭 
D 
Ku エセ 
DAYeragde、 DaySs360、 Db、 DCount 、 
DCountA、 Ddb、 Degrees、 DeYSq、 エ 
DGet 、 DMax、 DMin、 Do11a エ 、 
DP ェ roducC 上 、 DS 上 De、 DS 上 De ゞ P 、 DSum、 Large、 LinEs モ 上 、Ln、 Log、 Log10、 
TDVar、 DVa ェ P LogES モ 上 、 Lod エ n ロ で 、 LogNormDi st 、 
Loofkup 
世 
M 





Even、 ExxponD1s 
Match、 Maxx、 MDeterm、 Median、 
F Min、 MTn で ら GSG 、 MT エエ エ 、 MMu1 モ 、 
Mode 
ac 上 、 FD1s 上 、 Find、 FinmdB、 エロ マ 、 
Fisher、Fishe エ エロ で 、F ュ xxed、F1Oo エ 、 
FoOreGCaS 上 、 Frequency、 FTeGS、EF マ 
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NN 3 
NegBinomDist、 NormDis、 Tanh、 TDS 上 、 Tex 上 、 中 エロ マ 、 
Norm エ ny マ 、 NormSD1 Ss 上 、 NormS エ n で 、 〒 エ ranSpoSeG、 Trend、 F エ ュ m、 
NPe エ 、 Np エエ ュ 1mMean、 TTmes セ 

O U 
Odd、 Or エ USDo11a ェ 

VY 
Pea エ SOn 、 PG エ ご CGn モ ヒュ 1@6、 Va エ 、 Va エ P、 Vdb、 VLookup 
PerocenRank、 Permu ヒ 、 Phone モ ふ ュ o、 
Pi 、 Pm、 Poisson、 POweG エ 、 Ppmt 、 W 





P エ ObD、 P エ OdduC 七 、 P エ OPDG エ 、 PY 
Weekday、 We1ibu11 





Ouar モ ュ 1e 


ZTes 
R 


Radians、 Ranik、 Ra も G、 Rep1aCe、 
Rep1aceB、 Rep 、 Roman、 Round、 
RoundDown、 RoundUp、 RS 


Search、 SearchB、 Sinh、 Skew、 
S1n、 S1ope、 Sma11 、 Standardize、 
SDeGY、 S 上 DeYP 、 8 世 、 
Subs ヒ 1 ユ 上 u い 上 G、 Sub モ O モ a1 、、 Sum、 
Sum エ F 、 SumProduc 上 、 SumS、 
SumX2MY2、 SumX2PY2、 SumXMY2 、 
Syd 
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ぐず: 純 杏 問題 の 解答 9 


lessomleeeeeeA1T(O&A-O1.vbp) 

フレ キシ ブル グリ ッ ド コン トロ ー ル の [AllowUserResizing] プロ パテ ィ を 「3 一 
flexResizeBoth] に 変更 し ます 。 こ れ で 、 ユ ー ザ ー が 自由 に セル の 幅 と 高 さ を 変更 で き 
ます 。 













AllowBigSelection True 


0 - flexResizeNo 

1 - flexResizeColumns 

2 - flexResiceRows 

品 UUTRS 


ここ を クリ ッ ク 


Lessom2・・A1(O&A-02.vbp) 

小数 点 の 合計 計算 を 行わ せる に は 、 ま ず 合 計 値 を 格納 する 変数 「Store」 を 「Double」 
で 宣言 し ます 。 そ し て 、 合計 計 算 を 行う 式 で 、 デ ー タ 型 変換 関数 「CDbI」 を 使用 し ます 。 
この 関数 は 、 引 数 に 与え られ た 文字 列 を 、 倍 精度 浮動 小数 点 に 変換 し ます 。 


Dim Store As Doub1e ー デー タ 型 を poup1e に 変え る 


On エエ or GoTo BACK 
Fo 1 = 8 モ 上 ar エセ ECo1 "To EndCo1 
With MSF1exxG ェ 1d1 
。Co1 = ユミ 
Store = Store + CDb1 ( .mexxt ) ー cpp1 関数 を 使う 







小数 点 の 合計 が で きる 


練習 問題 の 解答 (Lesson1 ~ Lesson 


ILessom ろ AT(OS&A-0 う -vbp) 

プロ グラ ム の ポイ ント と し て は 、[ フ ァイル 名 を 付け て 保存 ] ダイ アロ グ ボ ックス に 入力 
され た ファ イル 名 が 存在 する か どう か を Dir 関数 で チェ ッ ク し 、 存 在 す れ ば 上 書き 確認 
の メッ セー ジ ボ ッ クス を 表示 する よう に し ます 。 


① ま ず 、 変 数 を 追加 し ます 。 変数 「Ret」 は Dir 関数 の 戻り 値 を 受け 取り ます 。「Msg」 
は メッ セー ジ ボ ッ クス に 表示 する メッ セー ジ を 格納 する 変数 で 、「SelectBtn] は メッ 
セー ジ ボ ッ クス で クリ ッ ク さ れ た ボタ ン の 種類 を 格納 する 変数 で す 。 


Dim Ret AS St エ 1ng 
Dim Msg AS S ェ ing 
Dim Se1ec 上 Btn AS TnEteqer 


⑧ メ ッ セ ー ジ ボッ クス に 表示 する メッ セー ジ を 作成 し ます 。Chr 関数 と 組み 合わ せ て 、 ら 
行 の メッ セー ジ に し ます 。 


Msg = "すでに 同じ ファ イル が 存在 し ます 。" g chr(10) g "上 書き 保存 し ます か " 


③ フ ァイル 名 を 変数 GetFileName に 格納 し た 後に 、Dir 関数 を 実行 し ます 。 この 関数 は 、 
引数 に ファ イル 名 を フル パス で 記述 する と 、 フ ァイル が 存在 すれ ば その ファ イル 名 を 返 
し て くる 関数 で す 。 フ ァイル が 存在 し な けれ ば 、 空 の 文字 「""」 を 返し て きま す 。 こ の 
関数 の 引数 に 、[ フ ァイル 名 を 付け て 保存 ] ダイ アロ グ ボ ックス で 入力 され た ファ イル 
名 を 与え 、 存 在 する か どう か を 確認 し ます 。 戻り 値 は 変数 「Ret」 に 格納 し ます 。 


Ret = Dir(GetFi1eName ) 


④ 続 いて 、If ス テー トメ ント で この 戻り 値 「Ret」 の 内 容 を 判断 し ます 。 も し 、Dir 関数 
の 戻り 値 が 空 で な けれ ば 、 メ ッ セ ー ジ ボッ クス を 表示 し ます 。 メ ッ セ ー ジ ボッ クス は 、 
[は い ] と 【[ い いえ] の ら つの ボタ ン を 持っ た メッ セー ジ ボ ッ クス を 使用 し ます 。 
Dir 関数 の 戻り 値 が 空 で あれ ば 、 存 在 し な い フ ァイル 名 な の で 、lf 処理 を 終了 し 、 そ の 
まま デー タ の 書き 込み 処理 を 行い ます 。 


エ FE Re <> ""m Ehen 
Se1ectBtn = MsgBox(Msg, vbyesNo, "ファ イル の 上 書き 確認 " ) 


⑤ 表 示し た メッ セー ジ ボ ッ クス の 、 ク リッ ク さ れ た ボタ ン の 種類 を 変数 「SelectBtn」 
で 受け 取り 、If ステ ー ト メン ト で 種類 を 判断 し ます 。 そ し て 、[ い いえ ] ボタ ン が クリ 
ッ ク さ れれ ば 、 デ ー タ の 書き 込み 処理 は せ ず に 、Close ステ ー ト メン ト で ファ イル を 
クロ ー ズ し て 、 ラ ベル 「BACK」 に ジャ ンプ し プロ シー ジャ を 終了 し ます 。 
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エ F Se1ectBtn = vbNo "Then 
C1ose #1 
Gomo BACK 

End TE 


⑥【[ は い ] ボタ ン が クリ ッ ク さ れれ ば 、 そ の まま デー タ 書 き 出し の 処理 を 行い ます 。 デ ー 
タフ ァイル は 、 新 し い デ ー タ に すべ て 上 書き され ます 。 


Lessomn4……・A1(O&A-02.vbp) 

FreeFile 関数 は 、 現 在 未 使用 に な っ て いる ファ イル 番号 を 返す 関数 で す 。 こ の 関数 を 
使っ て ファ イル 番号 を 取得 すれ ば 、 フ ァイル 番号 が 重複 し てこ ファ イル が 開け な い 、 と いう 
事態 を 回 避 で きま す 。 使い 方 は いた っ て 簡単 で 、 ま ず FreeFile 関数 が 返し て くる ファ イ 
ル 番 号 を 受け 取る 変数 を 、 整 数 型 で 宣言 し ます 。 


Dim Fi1eNo As Tnteger 


次 に 、FreeFile 関数 を 実行 し 、 返 し て きた ファ イル 番号 を Open ステ ー ト メン ト に 渡 
し ます 


Fi1eNo = FreeFi1e 
Open GetFi1eName For Random As Fi1eNo Lien = DataBy セ @ 


Lessom う AH1(O&A-0S-vbp) 

①Visual Basic の ツー ル パ レ ッ ト に 、 新 し い コ ント ロー ル を 追加 し ます 。 ツ ー ル パレ ッ 
ト の ショ ー ト カッ トメ ニュ ー [コン ポー ネン ト ] を 選び 、[Microsoft Windows 
Common Controls 6.0] に チェ ッ ク を 付け 、[OK] ボタ ン を クリ ッ ク し ます 。 





Im-* | ササ | 和 各 能 を わ ア ウト | ーー ーー 持た < 
【 Mcrosoft Rich Textbox Conrol 60 GP3) 
| Mcrosoft Sysjno Contol 60 

| Mcrosoft Tabbed Daloe Contol 60 GP3) 












Mcrosoft Wmndows Common Contro 50 ⑤P2) 
ド ご な チエ ツ 多 
| Mcrosoft Wndows Common Contos-2 50 GP2) 
Microsoft Wndows Common Contols-2 60 ⑤P3) 練 枯 
し Mcrosoft Wndows Common Conwo-3 60 
し - Mcrosoft Winsock Contol 60 
用 MSFlexGrd Wesd 










と 選 を リック 


⑧ 新 し い フ ォ ー ム に 、 イ メー ジリ スト コン トロール を 配置 し 、「32 x 32」 の サイ ズ で ア 
イコ ン イ メー ジ を 4 つ 組 み 込 み ま す 。 [キー] は 好き な 文字 列 を 設定 し て くだ さい 。 こ 
こ で は 、「flag1」 か ら 「flag4」 まで 設定 し まし た 。 


練習 問題 の 解答 (Lesson4 ~ Lesson 







年 志 を リック 








ご な クリ ウ ク し て アイ 
コン イメ ー ジ を 組み 込む 








③ ツ ー ル バー コン トロ ー ル を フォ ー ム に 配置 し 、「 イ メー ジ 」 に イメ ー ジ リス トコ ント ロ 
ー ル を 設定 し ます 。 
ボタ ン を 4 つ 組 み 込 ん で 、「 キ ー」 と 「 イ メー ジ 」 を 設定 し ます 。 イ メー ジリ スト コン 
トロ ー ル の イメ ー ジ サイ ズ を 「32 x 32]」 に し て いる の で 、Lesson5 で 作成 し た ツ 
ー ル バー より も 大 きい サイ ズ の ボタ ン が で き あ が り ま す 。 


LessomG……A1(O&A-0G.vbp) 
① ま ず 、 フ ォ ー ム の Load イベ ント プロ シー ジャ に 、[Caption] プロ バテ ィ を 設定 する 
コー ド を 記述 し ます 。 


Private Sub Form Load( ) 
Form1 .Caption = "新規 文書 " 
End Sub 


また 、[ 新 規 作成 ]】 メニ ュー が クリ ッ ク さ れ た と き に も 、 こ の 処理 が 行わ れる よう に コ 
ー ド を 追加 し ます 。 


E ェ ュ ivate Sub TDM NEW_C11ck( ) 
RichmextBox1 . mextRTE = "m 
Form1 .Caption = "新規 文書 " 


End Sub 
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②⑧ リ ッ チ テキ ス ト ボ ックス コン トロ ー ル の 内 容 を 保存 し た と き は 、[「SaveFile]」 メソ ッ ド 
に 渡し た 変数 「Fname] を 、 そ の まま フォ ー ム の [Caption] プロ パテ ィ に 代入 し ま 
す 。 こ れ で 、 保 存 し た ファ イル 名 と その パス 名 が 、 フ ォ ー ム の キャ プシ ョ ン に 表示 され 
ます 。。 


RiohmexxtBox1 . SaveF1i1e Fname, ェ ヒ FRTF 
Form1 .Caption = Fname 


③ フ ァイル を 読み 込ん だ 場合 も 、 同 じ く 「LoadFile」 メソ ッ ド に 渡し た 変数 「Fname」 
を 、 そ の まま フォ ー ム の [Caption] プロ パテ ィ に 代入 し ます 。 こ れ で 、 保 存 し た ファ 
イル 名 と その パス 名 が 、 フ ォ ー ム の キャ プシ ョ ン に 表示 され ます 。 


RiohmexxtBoxx1 .LoadF11e Fname, て FRTF 
Form1 .Cap 上 ion = Fname 


これ で 、 す べ て の 場合 で 、 現 在 編集 し て いる 文書 の 名 前 が フォ ー ム に 表示 され る よう に 
な り ま す 。 


Lessom7・・・A1(O&A-07.vbp) 

印刷 を 実行 する プロ シー ジャ 「Printout] を 、 コ モン ダイ アロ グ ボ ックス コン トロ ー 
ル を 使う よう に 書き 換え ます 。 

まず 、 コ モン ダイ アロ グ ボ ックス コン トロ ー ル の [Flags] プロ パテ ィ に 、 定 数 
「cdIPDReturnDC」 を 設定 し ます 。 コ モン ダイ アロ グ ボ ックス コン トロ ー ル を 使っ て 印 
刷 する 場合 は 、「SeIPrint] メソ ッ ド の 引数 に 「Printerl オブ ジェ クト で は な く コ モン 
ダイ アロ グ ボ ックス コン トロ ー ル の 「[hDC] プロ パテ ィ を 、 デ バイ スコ ン テ キ スト と し 
て 設定 する 必要 が あり ます 。[Flags] プロ パテ ィ に 定数 「cdIPDReturnDC」 を 設定 す 
る と 、[hDC] プロ パテ ィ に デバ イス コン テキ スト が 格納 され ます 。 

また 、 リ ッ チ テキ ス ト ボ ックス コン トロ ー ル の [SelLength] プロ パテ ィ を 使う と 、 
現在 選択 状態 に ある 文字 列 の 長 さ を 知る こと が で きま す 。 も し 、 こ の プロ パテ ィ の 値 が 
「0]」 で あれ ば 、 ま っ た く 選 択 さ れ て いな いこ と に な り ま す 。 こ れ を If ステー トメント で 
判断 し て 、 選 択 さ れ て いれ ば [Flags] プロ パテ ィ に 定数 「cdIPDSelection] を 、 選 択 
され て いな けれ ば 定数 「cdIPDAIIPages」 を 設定 し て 、 印 刷 範囲 を 指定 し ます 。 

あと は 、 コ モン ダイ アロ グ ボ ックス コン トロール の 「ShowPrinter」 メソ ッ ド を 実行 
し て [印刷] ダイ アロ グ ボ ックス を 表示 し 、[OK] ボタ ン が クリ ッ ク さ れれ ば リッ チ テ 
キス ト ボ ックス コン トロール の 「SelPrinter」 を 実行 し ます 。 こ の 時 の デバ イス コン テ 
キス ト に は 、 コ モン ダイ アロ グ ボ ックス コン トロール の 【[hDC] プロ バテ ィ を 設定 する 
こと に 注意 し て くだ さい 。 8 

また 、[【[ 印 刷 ] ダイ アロ グ ボ ックス の [キャンセル] ボタ ン が クリ ッ ク さ れる と エラ ー 
が 発生 し ます か ら 、 こ れ を 「On Errorl ステ ー ト メン ト で 把握 し て エラ ー 処 理 を 組み 込 
ん で お きま す 。 
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※ ネ ットワーク プリ ンタ で プリ ンタ スプ ー ラ か ら プ リン ト ア ウト する 場合 、 こ の コー ド で は 正常 に 
動作 し な い 場 合 が あり ます 。 シ リア ルケ ー ブ ル で 直接 接続 し て いる プリ ンタ で お 試し くだ さい 。 


P ェ ュ マ a モ G SuD PB エ in モ Ou( ) 
CommonDia1og1 .F1ags = Cd1PDReEurnDC 
エ E RichmextBox1 .Se1Tiength = 0O Then 
CommonDia1og1 .F1ags = cdqd1PDA11Pages 
EE1se 
CommonDia1og1 .F1ags = cd1PDSe1eoction 
End エモ 


CommonDia1og1 . ShowP エ ュ n モ @ エ 

On 正 と エエ の エ GOoTO FT エエ SH 

RichmextBox1 . SG ら 1P ェ ュ n モ CommmonDia1og1 . hDC 
Ex1 モ 上 Sub 


FTNTSHs 
End Sub 


LessomS8 AH1(O&A-0S.vDp) 

① 新 し い プ ロジ ェクト を 用 意 し て 、 ツ ー ル パレ ッ ト に コン ポー ネン ト 「Microsoft 
Windows Common Controls 6.0」 を 追加 し ます 。 ま た 、 付 録 CD-ROM の 
「Materiall フォ ル ダ に ある 「SMILEY.IC0」 を 使用 し ます 。 

⑧ フ ォ ー ム に イメ ー ジ コン トロ ー ル を 配置 し 、[Picture] プロ パテ ィ に 「SMILEY.ICO」 
を 指定 し ます 。 

③ ス ライ ダー コン トロ ー ル を フォ ー ム に 配置 し ます 。 

④ [Max] プロ パテ ィ を 「100」 に 、[Min] プロ パテ ィ を 「1」 に 設定 し ます 。 

⑤ ス ライ ダー コン トロ ー ル の 「Change」 イベ ント プロ シー ジャ に コー ド を 作成 し ます 。 


Private Sub S11qer1 Change( ) 
ェ mage1 .LeE モ = S1iqer1.Va1ue * 30 
End Sub 


この コー ド は 、 スラ イダ ー コ ント ロー ル の 移動 量 を [Value] プロ パテ ィ か ら 取 り 出 し 、 
30 倍 に し て イメ ー ジ コン トロ ー ル の [Left] プロ パテ ィ に 代入 し て いま す 。 こ れ で 、 ス 
ライ ダー コン トロール の 移動 量 に 伴っ て 、 イ メー ジコ ン トロール の 左右 方 向 の 表示 位置 が 
変化 し ます 。 


ILessom の AH1(O&A-OO.vbp) 

ファ イル 名 を 検索 する 関数 に 、Dir 関数 が ありま す 。 こ の 関数 は 、 引 数 に ファ イル 名 を 
フル バス で 指定 する と 、 そ の ディ レク トリ を 検索 し て 一 致す る ファ イル が ある か どう か を 
調べ ます 。 そ し て 、 最 初 に 一 致す る ファ イル が ある と その ファ イル 名 を 返し 、 一 致す る フ 
ァイル が な けれ ば 「""」 (空白 ) を 返し て きま す 。 ま た 、 一 度 Dir 関数 を 実行 し た あと に 、 


付録 難 種 リフ ァ レ ン に 





引数 を 付け ず に Dir 関数 を 実行 する と 、 再 び 同じ ファ イル 名 で 検索 を 開始 し ます 。 

検索 する ファ イル 名 に は ワイ ルド カー ド 文 字 (* や ?) が 使用 で きる の で 、Do.…While 
ルー プ と 組み 合わ せれ ば 、 た と えば 拡張 子 が 「exe」 の ファ イル だ け を 検索 する こと が で 
きま す 。 

この プロ グラ ム は 、 こ れ ら の 機能 を 組み 合わ せ て 、Windows が イン ス トー ル さ れ て い 
る フォ ル ダ の すべ て の ファ イル を 検索 し 、 ル ー プ の 中 に ファ イル 数 を 数 える 変数 を 組み 込 
ん で 、 個 数 を 把握 する 処理 を 組み 立て て いま す 。 






| と た 上 還 記 パク 」 (572 
① フ ォ ー ム に コマ ンド ボタ ン と プロ グレ スバ ー コ ント ロー ル を 配置 し ます 。 





プロ グレ スバ ー 
コン トロ ー ル 


ISZ ジ ドド ボタ シ 
コン トロ ー ル 





⑧ プ ログ レス バー コン トロール の [Max] プロ パテ ィ を 「500」 に 設定 し ます 。 
③ コ マン ド ボ タ ン の [Caption] プロ パテ ィ を 「 検 索 ]」 に 変え ます 。 








① コ マン ド ボ タ ン の Click イベ ント プロ シー ジャ に 、 検 索 の 処理 を 作成 し ます 。 検索 し た 
ファ イル 名 を 格納 する 変数 と 、 フ ァイル 数 を 数 える 変数 を 宣言 し ます 。 


Dim MyName As String 
Dim 1 As Tntege エ 


② Dir 関数 で 1 回 目 の 検索 を 実行 し ます 。 引数 に は Windows が イン スト ー ル され て いる 
ディ レク トリ と 、 す べ て の ファ イル (この 場合 は 標準 ファ イル で 隠し ファ イル と シス テ 
ム フ ァ イル は 除く ) を 検索 する た め に 、 ファ イル 名 に ワイ ルド カー ド を 使用 し て いま す 。 
一 致し た と き に 返し て くる ファ イル 名 は 、 変 数 「MyName」 に 格納 し ます 。 ま た 、 万 
ー「500」 以上 の ファ イル が 見 つか っ た と き に エラ ー を スキ ッ プ する よう に 「On 
Error Resume Next]」 ステ ー ト メン ト を 挿入 し て お きま す 。 


MyName = Di エ ("で : 壮 1nmdOvwS 壮 ま 。*") 
On 正 エ エ o エ ReSume Nex 


練習 問題 の 解答 (Lesson 


また 、 こ の 時 点 で すでに 1 つ フ ァイル が 見 つか っ て いま すか ら 、 変 数 「i」 に 1 を 代入 
し て お きま す 。 


1 = 1 


③ 続 いて 、Do..….While ルー プ で ら 回 目 の Dir 関数 を 実行 し ます 。 こ の 関数 で は 引数 を 指 
定 し ませ ん の で 、 最 初 の 引数 「c:\windows\*.*] を 使っ て 次 の 該当 ファ イル の 検索 が 
行わ れ ま す 。 も し ファ イル が 見 つか れ ば 変数 「MyName」 に ファ イル 名 が 返っ て きま 
す 。 


Do 
MyName = Dir 


④ フ ァイル 名 が あれ ば 、 変 数 「i] の 値 を 1 つ 増加 し 、 そ の 値 を プロ グレ スバ ー コ ント ロ 
ー ル の Value] プロ パテ ィ に 格納 し ます 。 こ れ で 、 検 索 状況 を プロ グレ スバ ー の 変化 
で ユー ザー に 知ら せる こと が で きま す 。 


も きま ォ ユ 
ProgressBar1 .Value = ュ 


⑤ 一 致す る ファ イル が 見 つか ら な けれ ば 、 変 数 「MyName」 に は 「"」 が 返さ れる の で 、 
その 時 点 で ルー プ が 終了 する よう に 、While の 後 の 条件 を 設定 し て いま す 。 


Loop Whi1e MyName <> "" 


⑥ フ ァイル の 総数 が わか っ た ら 、 プ ログ レス バー コン トロール の [Value] プロ パテ ィ に 
Max プロ パティ の 値 を 代入 し 、 プ ログ レス バー の 表示 を 最大 値 に し ます 。 


With ProgressBa エ 1 
-・Va1ue = -.Max 


そし て 、 変 数 「i」 の 数 字 を 見 れ ば 、 全 部 で いく つの ファ イル 名 が 見 つか っ た の か が わ 
か り ま す が 、 ル ー プ は 最後 の 「"」 が 返 ぐ れる まで まわ っ て いま すか ら 、 実際 の 総数 は 
呈 - 1] に な り ま す 。 

この 数 字 を メッ セー ジ ボ ッ クス で 表示 し 、[OK] ボタ ン が クリ ッ ク さ れれ ば 、「0] に 
初期 化し 、 次 の 動作 に 備え ます 。 


MsgBox "ファ イル の 総数 は " g i - 1 g " 個 で す " 
ProgressBar1.Va1ue = 0 
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⑦ 以 上 で 完成 で す 。 実際 に 動作 させ る と ファ イル の 総数 が 表示 され ます 。 ま た 、 こ の ディ 
レク トリ の フォ ル ダ を 開い て 、 フ ァイル 数 が 一 致し て いる か どう か を 確認 し ます 。 
この 「c:\windows\*.*] と いう 検索 条件 で は 、 フ ォ ル ダ に 表示 され る ファ イル の 属性 
が 「Al の ファ イル の み が カ ウン ト さ れ 、 隠 し ファ イル と シス テム ファ イル 、 フ ォ ル ダ 
と 拡張 子 の な い フ ァイル は 検索 対象 か ら 外れ ます 。 拡 張子 が 付い て いる ファ イル の 総数 
を エク スプ ロー ラ な ど で 実 際 に 確認 する と 、 プ ログ ラム の 実行 結果 と 一 致し て いる は ず 
容 ず 。 









プロ グラ ム の 実行 結果 


Lesson10 ……A1H(O&A-10.vbp) 
この プロ グラ ム は 、 コ マン ド ボ タ ン が クリ ッ ク さ れる と 、「 較 」 の 文字 を ステ ー タ スバ 
ー コ ント ロー ル の バネ ル に 追加 し て いき ます 。 





⑧ ス テー タス バー コン トロ ー ル の [プロ パテ ィ ペ ー ジ ] ダイ アロ グ ボ ックス を 表示 し 、 
[パネ ル ] タブ を クリ ッ ク し ます 。 
[最小 幅 ] の 値 を 「3000」 に 設定 し ます 。 


練習 問題 の 解答 (Lesson1( 





[パネ ル ] を クリ ッ ク 






③ フ ォ ー ム の コー ドウ ィ ン ド ウ を 開き 、 宣 言 セ クシ ョ ン に 変数 を つつ 、 モ ジュ ー ル レベ 
ル で 宣言 し ます 。 


Dim Mark As String 
Dim 1 As Tnteger 


(④ フ ォ ー ム の Load イベ ント プロ シー ジャ で 、 変 数 和 i」 を 初期 化し ます 。 


P ェ ivate Sub Form road( ) 
= 0 
End Sub 


⑤ コ マン ド ボ タ ン の Click イベ ント プロ シー ジャ に 、 ス テー タス バー コン トロール の 表示 
処理 を 作成 し ます 。 こ の 処理 は 、 コ マン ド ボ タ ン が 1 回 クリ ッ ク さ れる と 、 変 数 
「Mark」 に 文字 「 圏 」 を 連結 し て 格納 し ます 。 つ まり 、 コ マン ド ボ タ ン が クリ ッ ク さ れ 
る た びに 、 変 数 「Mark」 の 値 は 「 一 一 圏 | と 圏 マ ー ク が 追加 ご され て 格納 され ます 。 こ 
れ を 、 ス テー タス バー コン トロ ー ル の パネ ル の [Text] プロ パテ ィ に 代入 し て いき ま 
す 。 ま すず 、 変 数 「Mark」 に 文字 「 較 |」 を 代入 し ます 。 


Private Sub Command1 C1ick( ) 
Mark = Mark g " 較 " 





者 務 ワン ポイ ント アド バイ ス 


日 本 語 入力 シス テム (MS-IME な ど ) を オン に し て 、 キ ー ボ ー ド か ら 「 し か く 」 と 
入力 し て 変換 する と 、 こ の 画 マ ー ク を 呼び 出せ ます 。 





付録 各種 リフ ァ レ ン に 


⑥ そ し て 、 こ の 変数 を 「Panels(1)」 の [Text] プロ パテ ィ に 代入 し ます 。 


StatusBar1 .Pane1s(1) .TexxE = MarKk 


あわ せ て 、 何 回 コマ ンド ボタ ン が クリ ッ ク さ れ た の か を 把握 する た め に 、 変 数 「i」 の 
値 も 増加 させ て お きま す 。 


ま っ うま F エ 


⑦ こ の 変数 「i」 の 値 が 「16]」 に な っ た ら 、 ス テー タス バー コン トロ ー ル に は いっ ぱい に 
「 圏 」 マー ク が 表示 され て いま す の で 、 こ れ で 終了 させ る た め に 、If ステ ー ト メン ト を 


使っ て メッ セー ジ ボ ッ クス を 表示 し ます 。 そ し て 、 変 数 「i] と 「Mark」 の 値 を リセ ッ 
ト し 、 次 の 操作 に 備え ます 。 


エ E 1 >= 16 mhen 


msgBox "処理 は 終了 し まし た 。* 
ュ = 0 


StatusBar1 .Pane1s(1) .Text = “" 
MarIk = "em 
End TE 


これ で 完成 で す 。 コ マン ド ボ タ ン を クリ ッ ク す る た びに 、 ス テー タス バー コン トロ ー ル 
に は 画 マ ー ク が 追加 され て いき ます 。 


Lessom11 AT(OS&A-11.vbp) 
① ツ ー ル パレ ッ ト に 次 の コン ポー ネン ト を 追加 し ます 。 
「Microsoft Windows Common Controls 6.0」 
「Microsoft Windows Common Controls-2 6.0」 


これ で 、 ア ッ プ ダウ ンコ ント ロー ル と ツー ル バ ー コ ン トロ ー ル が 使用 で きま す 。 







これ ら を チェ ッ ク 





アップ ダウ ンコ ント ロー ル と ツー ル バ ー コ ント ロー ル を フォ ー ム に 配置 し ます 。 


練習 問題 の 解答 (Lesson1 


フォ ー ム の コー ドウ ィ ン ド ウ を 開き 、 宣 言 セ クシ ョ ン に 変数 「i| を 宣言 し ます 。 


Dim 1 As Tnteger 


(〈④ フ ォ ー ム の Load イベ ント プロ シー ジャ で 、 こ の 変数 を 「0」 に 初期 化し ます 。 


Private Sub Form Load( ) 
1 = 0 
End Sub 


⑤⑥ ア ッ プ ダウ ンコ ント ロー ル の 「UpClick」 イベ ント プロ シー ジャ に 、 ツ ー ル バー コン ト 
ロー ル の ボタ ン を 追加 する 処理 を 組み 込み ます 。 ツ ー ル バー コン トロ ー ル の ボタ ン を 追 
加 す る に は 、Add メソ ッ ド を 使っ て 、 ツ ー ル バー コン トロ ー ル の Buttons コレ クシ ョ 
ン オ ブ ジ ェクト を 追加 し ます 。 追加 し た ら 、 変 数 「i」 の 値 を 1 つ 増 や し て お きま す 。 
これ は 、 何 個 の ボタ ン を 追加 し た の か が わか る よう に する た めで す 。 


Private Sub UpDown1 UpC1ick ( ) 
Too1bar1 . Bu モモ ons .AdQ 
ミュ = ニュ ミ + ォ 1 

End Sub 


⑥ ア ッ プ ダウ ンコ ント ロー ル の 「DownClickl イベ ント プロ シー ジャ に 、 ツ ー ル バー コ 
ント ロー ル の ボタ ン を 削除 する 処理 を 作成 し ます 。 
まず 、 何 個 の ボタ ン が 追加 され て いる の か を 、 変 数 ii] の 値 で 確認 し ます 。1 つ 以 上 
の ボタ ン が 追加 され て いれ ば 、「Hemove] メソ ッ ド を 使っ て ツー ル バ ー の Buttons 
コレ クシ ョ ン を 削除 し ます 。 こ の と き 、 何 番目 の ボタ ン を 削除 する の か を 、「Remove」 
メソ ッ ド に 指定 し ます 。 こ れ は 、 変 数 「i] を 引き 当て て 行い ます 。 そ し て 、 ボ タン を 
1 つ 削 除 し た ら 、 変 数 「i」 の 値 を 1 つ 減 らし て お きま す 。 も し 、] つの ボタ ン も 追加 
され て いな けれ ば 、 な ん の 処理 も 行い ませ ん 。 


Erivate Sub UpDown1 DownC1iok( ) 

エ E 1 >= 1 Then 
moo1bar1 . Bu モモ ons .RemoVe (3) 
ミキ = ュー1 

End エモ E 

End Sub 


以上 で 完成 で す 。 





付録 難 種 リ ファ レン 宮 





Lesson12 …・A1(O&A-12.vbp) 

プロ グラ ム 起 動 時 か ら 、 時 刻 表 示 を 行わ せる に は 、Timer イベ ント プロ シー ジャ で 作 
成 し た 処理 と まっ た く 同 じ 処 理 を 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 行え ば いい 
の で す 。 そ こ で 、Timer イベ ント プロ シー ジャ に 作成 し た 処理 を すべ て 、 独 自 の プロ シ 
ー ジ ャ に し て し まい 、Call ステ ー ト メン ト で フォ ー ム の Load イベ ント プロ シー ジャ と 、 
タイ マー コン トロ ー ル の Timer イベ ント プロ シー ジャ で 呼び 出せ ば 、 プ ログ ラム 起動 時 
か ら 時 刻 表 示 が 行わ れ ま す 。 


Lesson1 う る ・・・・A1(O&A-1 う 3.vbp) 
この 処理 は 、Timer イベ ント プロ シー ジャ の 中 で 行い ます の で 、 以 下 の コ ー ド を 追加 
し ます 。 


① 文 字 列 を 格納 する 変数 を 宣言 し ます 。 


Dim JustTime AS S ェ ing 
Dim JustMin As St ェ ing 
Dim JustSeo As String 


②⑥ ラ ベル コン トロ ー ル に 出力 し た 、Time 関数 で 取得 し た 時 刻 を 、 一 度 変数 「JustTime」 
に 格納 し ます 。 


Justmime = Labe11 .Caption 


③ そ し て 、Mid 関数 と Right 関数 で 分 と 秒 の 文字 を 取り 出し ます 。 取 り 出 し た 文字 列 は 、 
それ ぞ れ 変数 「JustMin] と 「JustSec」 に 格納 し ます 。 


JuStMin = Mid(JustTime, 4, 2) 
JuStSeo = Righ (JustTime, 2) 


④ 時 刻 が ちょ うど に な っ た と き と い う の は 、 分 も 秒 も 「00]」 に な っ た と き で す 。 そ こ で 、 
If ステ ー ト メン ト を 使用 し て 、 そ れ ぞ れ の 文字 が 「00] で あれ ば 、Beep ステ ー ト メ 
ント を 実行 し て ビー プ 音 を 鳴ら す よ うに し ます 。 こ の と き 、If ス テー トメ ント で は 
AND 演算 子 を 使用 し て 、 ら つの 条件 が 重なっ た と きだ け Beep ステ ー ト メン ト を 実行 
する よう に し ます 。 


エ F (JustMin = "00") And (JustSec = "00") Then 
Beep 
End TE 












練習 問題 の 解答 (Lesson1 ら 一 Lesson12 


Lessom1 全 ・・A1(O&A-1 全 .vbp) 

① ま ず 、 ツ ー ル パレ ッ ト に 「Microsoft Common Dialog Control 6.0」 を 追加 し ます 。 

⑧ フ ォ ー ム に コモ ンダ イア ログ コン トロール を 配置 し ます 。[Color] プロ パテ ィ の 値 を 
「&HOOFFFFOOS」 (シア ン ) に 設定 し ます 。 


当 形 ダイ アロ グ コ ョ コジ 
トロ ー ル を 配置 する 





③ [プロパ ティ ペー ジ ] ダイ アロ グ ボ ックス を 表示 し 、[ フ ォ ン ト ] タブ の [フォ ント 名 ] 
に 「MS P ゴ シッ ク 」 を 設定 し ます 。 








| 
| 





《④ メ ニュ ー エ ディ タ で 、 次 の メニ ュー を 組み 込み ます 。 


キャ プシ ョ ン 





IDM_SETUP 
IDM_FONT 
IDM_COLOR 


チェ ッ ク を 外す 
チェ ッ ク あ り 
チェ ッ ク あ り 





















付録 加 種 リ ファ レン 














⑤⑥ フ ォ ー ム の MouseDown イベ ント プロ シー ジャ に 、 右 ボタ ン が 押さ れ た と き に 、[ 設 
定 ] メニ ュー を 表示 する よう に 、PopupMenu メソ ッ ド を 実行 し ます 。 


Private Sub Form MouseDowrm ( Bu 上 上 on AS TnEegder, 
ShiFt As Tnteger, 双 As Sing1e, Y As Sing1e ) 
エ F But そ ton = YbRigh 上 Bu モモ on Then 
PopupMenu TDM SETUP 
End TE 
End Sub 


⑥ [フォ ント ] メニ ュー の Click イベ ント プロ シー ジャ に コモ ンダ イア ログ の [フォ ント ] 
ダイ アロ グ ボ ックス の 処理 を 作成 し ます 。[Flags] プロ パテ ィ に 定数 「cdICFBoth] 
を 設定 し 、「ShowFont」 メソ ッ ド を 実行 し ます 。 ユ ー ザ ー に よっ て 選択 され た フォ ン 
ト 名 と サイ ズ を 、 ラ ベル コン トロール の 各 プ ロ パ ティ に 代入 し ます 。 


P ェ ivate Sub TDM FONT C1icK( ) 
With CommonDia1og1 
-F1ags = cd1CFBoth 
・ShowF'on 
Labe1 1 .FonE .Name = -.Fon も Name 
Labe1 1 .Font .S1ze = .FoOn モ ES1ze 
End With 
End Sub 


⑦【 文 字 色 の 設定 ] メニ ュー の Click イベ ント プロ シー ジャ に 、[ 色 の 設定 ] ダイ アロ グ 
ボッ クス を 表示 する 処理 を 作成 し ます 。 選択 され た 色 は 、 そ の まま ラベ ルコ ント ロー ル 
の 【[ForeColor] プロ パテ ィ に 代入 し ます 。 


P ェ ュ ゞ a モ e Sub TDM COLOR C11cK( ) 
With CommonDia1og1 
・ShowCo1or 
Labe1 1 .FOFGCO1o エ = .Co1o エ 


練習 問題 の 解答 (Lesson1 


End With 
End Sub 


⑧ 以 上 で 完成 で す 。 





lessomn1S ・……・A1T(OS&A-1S.vbp) 

Me キー ワー ド を 使う と 、 現 在 ア クティ ブ に な っ て いる オブ ジェ クト を 参照 で きま す 。 
た と えば 、 コ マン ド ボ タ ン の Click イベ ント プロ シー ジャ に 、「Me」 と 入力 し て 「.」 を 
入力 する と 、 コ マン ド ボ タ ン が 組み 込ま れ て いる フォ ー ム (すなわち 子 フ ォ ー ム ) の 、 ブ 
ロ パ ティ と メソ ッ ド の リス ト が 表示 され ます 。 












Private Sub Comwandi_Click() 

MsgBox “この フォ ー ム は " & Me. 
activeControl 

End Sub ppearance 


子 フ ォ ー ム の プロ パテ ィ 
と メソ ッ ド の リス ト 


この よう に 、 プ ログ ラム 実行 時 に 常に アク ティ ブ な 状態 が 入れ 替わる オブ ジェ クト の プ 
ロ パ ティ 等 を 操作 し た い 場 合 は 、「Me」 キー ワー ド を 活用 し ます 。 

ここ で は 、 コ マン ド ボ タ ン が クリ ッ ク さ れ た と き に 、 コ マン ド ボ タ ン が 組み 込ま れ て い 
る 子 フ ォ ー ム の [Caption] プロ パテ ィ に アク セス し た い の で 、 次 の よう に 記述 し ます 。 


Me .Caption 


あと は 、 こ の [Caption] プロ パテ ィ の 値 を 、 表 示す る メッ セー ジ の 文字 列 に 設定 すれ 
ば で き あ が り ま す 。 

また 、 子 フ ォ ー ム の [Caption] プロ パテ ィ に 、 そ の フォ ー ム の 名 前 を 付け た い 場 合 は 、 
イン スタ ンス を 作成 する プロ シー ジャ の 中 で 、 文 字 列 の 設定 を 行う コー ド を 記述 し て お き 
ます 。 


With AdqqdForm 
・Show 
・Caption = "AdQd Form" を ュ 





付録 各種 リフ ァ レ ン 





-Labe11 .Caption = "この フォ ー ム は " g "Adqd Form" を gi 
End With 


Lesson1G ・……・A1(OS<A-1G.vbp) 
ツー ル バ ー コ ント ロー ル 上 の マウ スポ イン タ を 変更 する に は 、 プ ロ パ ティ ペー ジ と アイ 
コン ファ イル を 使用 し ます 。 


① ま すず 、 使 用 する アイ コン ファ イル を 用 意 し ます 。 こ こ で は 、 付 録 CD-ROM の 
「materiall フォ ル ダ に ある 「Finger.ico] ファ イル を 使用 し ます 。 













Disk 3uco Dek 3ico 






す トー 
Fineer ico 


ア 7 ヤシ Drveso 


更新 日 時 

98702727 951 

サイ ズ 266 バイ ト ( め 
恩人 () 






Drvea so 










この ファ イル を 使用 






⑧ ツ ー ル バー コン トロ ー ル の [プロ パテ ィ ペ ー ジ ] ダイ アロ グ ボ ックス を 開き ます 。 そ し 
て 、「 マ ウス ポイ ンタ 」 の 値 を リス ト か ら 選 び 、「99 - ccCustom」 に 設定 し ます 。 





ここ を クリ ッ ク 





③ [ピク チャ ] タブ を クリ ッ ク し て 、[ 参 照 ] ボタ ン を クリ ッ ク し ます 。 フ ォ ル ダ を 選び 、 
「Finger.ico] ファ イル を 指定 し ます 。 



















練習 問題 の 解答 (Lesson16 一 Lesson1 





これ で 、 ツ ー ル バー コン トロール に マウ スポ イン タ が 置か れる と 、 設 定 し た アイ コン イ 
メー ジ に 変化 し ます 。 





マウ スポ イン タ が 


指 の 形 に 変わ る 





Lessom17 ・…・A1(O&A-17-vbp) 

① イ ンス タン ス の フォ ー ム に アイ コン を 組み 込む に は 、[lcon] プロ パテ ィ に 、 イ メー ジ 
リス トコ ント ロー ル の アイ コン を 組み 込み ます 。 
イメ ー ジ リス トコ ント ロー ル の ピク チャ を 取得 する に は 、「ListImages()]」 コレ クシ ョ 
ン オ ブ ジ ェクト の [Picture] プロ パテ ィ を 使い ます 。 こ の 値 を 、 フ ォ ー ム の [lcon] 
プロ パテ ィ に 代入 すれ ば 表示 され ます 。 テ キス ト 用 の ピク チャ は 、 イ ン デ ックス が 「 ら 2] 
な の で 、 こ の 値 を 代入 し ます 。 


- エ con = TmageLi1s 上 1 . エ 15TmadeS ( 2 ) . P エ ご C 上 u エ @ 


付録 間 種 リ ファ レン 





この コー ド を 、 プ ロ シ ー ジ ャ 「OpenText」 に 組み 込み ます 。 


また 、 イ メー ジ 用 の ピク チャ は 、 イ メー ジリ スト コン トロ ー ル の イン デック ス 「3」 の 
ビク チャ で すか ら 、 同 様 に [Picture] プロ パテ ィ の 値 を 代入 し ます 。 


・ エ Con = TmageLig1 .1s 上 Tmages ( 3 ) .P ュ Cu エ とら 


⑧MDI フォ ー ム に ステ ー タ スバ ー コ ント ロー ル を 組み 込ん で 、 プ ロ パ ティ ペー ジ を 表示 
し ます 。 バ ネル を 1 つ 追 加 し 、[ ス タイ ル ] を [5 - sbrTime] に 、[ サ イズ の 自動 設 
定 ] を [1 一 sbrSpring] に 変更 し ます 。 


Lesson1S8 ・…・A1(O&A-1S.vbp) 
① フ ォ ー ム に テキ スト ボッ クス コン トロ ー ル を 配置 し ます 。 あわ せ て 、 コ マン ド ボ タ ン の 


レイ アウ ト な ども 修正 し ます 。 場合 に よっ て は 、 ツ ー ル バー コン トロ ー ル に 入れ 替え て 
も か まい ませ ん 。 


⑧ テ キス ト ボ ックス コン トロ ー ル の [Text] プロ パテ ィ に 、 デ フォ ルト の UHL を 設定 し 
て お きま す 。 


③ [Get] ボタ ン の Click イベ ント プロ シー ジャ を 修正 し 、 テ キス ト ボ ックス コン トロ ー 
ル の [Text] プロ バテ ィ か ら URL を 取得 する よう に し ます 。 こ れ で 、 テ キス ト ボ ッ ク 
ス に 入力 され た URL の HTML ファ イル を 、Execute メソ ッ ド に 渡す こと が で きま す 。 


GeU エ 1 = mext1 .mexr も 
エ ne1 ExxeCuteG GeU エ 1 , "GET 


④ イ ンタ ーネット トラ ンス ファ ー コ ント ロー ル の 「StateChanged」 イベ ント プロ シー 
ジャ も 修正 し ます 。 テ キス ト ボ ックス コン トロ ー ル に 入力 され た URL が 正しく な か っ 
た 場合 の エラ ー 処 理 を 加え ます 。 
指定 し た URL に 対し 、Execute メソ ッ ド の 「GET」 コマンド が 実行 で き な か っ た 場 
合 は 、「StateChanged]」 イベ ント プロ シー ジャ の 引数 「State] に 、 定 数 「icError] 
が 設定 され ます 。 こ の 値 を 「 ス テー トメ ント で 評価 し 、 エ ラー で あれ ば メッ セー ジ ボ ッ 
クス で 表示 し ます 。 ダ ウン ロー ド に 失敗 し て いま すか ら 、 リ ッ チ テキ スト ボッ クス コン 
トロ ー ル へ の 内 容 の 表示 も 行い ませ ん 。 


芯 1 Se エ F Sate = CE エエ or Then 


MsgBox "アク セス に 和 失敗 し まし た 。usr を 確認 し て くだ さい 。 


練習 問題 の 解答 (Lesson18 一 Lesson1c 










表示 され た メッ セー ジ 


WONY 和 RPEODGCT SSR 


Lesson19 ……・A1(O&A-19.vbp) 


① フ ォ ー ム に プロ グレ スバ ー コ ント ロール を 配置 し ます 。 そ し て 、[Max] プロ バ パティ を 


「10] に 設定 し ます 。 
プロ グレ スバ ー 
コン トロ ー ル を 配置 








「10] を 設定 








フォ ー ム の 宣言 セク ショ ン に 、 モ ジュ ー ル レベ ル の 変数 「i| を 宣言 し ます 。 
Dim 1 As Tnteger 


そし て 、 フ ォ ー ム の Load イベ ント プロ シー ジャ で 初期 化し ます 。 こ の 変数 を 使っ て 、 
プロ グレ スバ ー コ ント ロー ル の 動作 を 設定 し ます 。 


private Sub Form road( ) 
介 、 環 に 
下 nd Sub 
③ プ ログ レス バー コン トロ ー ル の 操作 は 、 イ ンタ ーネット トラ ンス ファ ー コ ント ロー ル の 
[StateChanged] イベ ント プロ シー ジャ で 行い ます 。 





付録 難 種 リ ファ レン 二 








イン ター ネッ トト ラン ス フ ァ ー コ ント ロー ル が 、 サ ー バ に 接続 し て 応答 を 受信 する と 、 
引数 「State」 に は 「icReceivingResponse」 が 格納 され ます 。 こ の 定数 は 、 受 信 を 
し て いる 間 は つね に 設定 され ます 。 し た が っ て 、 こ の Case 節 で プロ グレ スバ ー コ ント 
ロー ル の Value] プロ パテ ィ の 値 を 増やし て いけ ば 、 受信 中 は 絶え すず プロ グレ スバ ー 
が 動い て いる こと に な り ま す 。 そ の た め に 、 プ ログ レス バー コン トロ ー ル の [Value] 
プロ パテ ィ の 値 に 、 変 数 「i」 と 式 を 組み 込ん で いま す 。 そ し て 、 こ の 変数 「i] の 値 が 
[Max] プロ パテ ィ の 値 に 達し た ら 、 変 数 を 「0」 に 戻し て あげ れ ば 、 受信 中 は 絶え ず 
繰り 返し プロ グレ スバ ー が 動い て いる こと に な り ま す 。 


Case icRecei で ingResponse 
ま 生ま キミ 
エ E i = 10 mhen 
も = 0 
End TE 
ProgressBar1.Va1ue = ュ 


(④ そ し て 、 ダ ウン ロー ド が 完了 すれ ば 、「State] に は 「icResponseCompleted」 が 格 
納 さ れ ま すか ら 、 そ の 時 点 で プロ グレ スバ ー の [Value] プロ パテ ィ を 「0」 に 戻し 、 
表示 を 取り 消し ます 。 


Case icResponseComp1eted 
GetData = Tnet1 .GetChunk (2048, ioStr ェ ng ) 
RiohmexxtBoxr1 . mexxE = GetData 
MsgBox "ダウ ン ロ ー ド 完了 " 
ProgressBar1.Va1ue = 0 


な お 、 こ の プロ シー ジャ は 、「State」 で の 分 岐 の 数 が 増え た の で 、If ステ ー ト メン ト 
か ら Select Case ステ ー ト メン ト に 処理 を 変更 し て いま す 。 


Lesson20 ・……・A1(O&A-20.vbp) 

ユー ザー が リス トビ ュー コン トロール に 表示 し て いる 項目 の 名 称 を 変更 する と 、 リ スト 
ビュ ー コ ント ロー ル に は 「AfterLabelEdit] イベ ント が 発生 し ます 。 そ こ で 、 この イベ 
ント が 発生 し た ら (つま り 、 項目 名 が 修正 され た ら )、[OK] と [キャン セル ] の ら つ の 
ボタ ン を 持っ た メッ セー ジ ボ ッ クス を 表示 し ます 。 

次 に 、MsgBox 関数 の 戻り 値 を 把握 し 、[ キ ャ ン セ ル ] ボタ ン が クリ ッ ク さ れ た ら 、 項 
目 名 の 変更 を 取り 消し ます 。「AfterLabelEdit] イベ ント プロ シー ジャ の 引数 「Cancel」 
に 「True」 を 設定 する と 、 こ の 項目 名 の 変更 を 取り 消し 、 変 更 前 の 項目 名 に 戻し て くれ 
ます 。 


Private Sub ListView1 AF そ terTabe1Edit (Cance1 As エ nted@G エ , 
NewS モ ェ ュ ng AS String) 
Dim Ret As Tnteger 








練習 問題 の 解答 (Lesson20 - Lesson ら 


Ret = MsgBox(" 名 称 を 変更 し ます か ?", vbokcance1 ) 
エ F Re モ = vbCance1 Then 
Cance1 = "True 
End TE 
End Sub 


Lesson21 ・…・A1(O&A-21.vbp) 
① ツ ー ル パレ ッ ト に コモ ンダ イア ログ コン トロ ー ル を 追加 し ます 。 












Microsoft Agent Control 20 
Microsoft Calendar Control 90 

に Microsoft Chart Contol 60 GP3) ⑪LEDB) 
Microsoft Comm Contol 50 ⑤P2) 














60 ⑤P3) OLEDB) 


ler Control 60 DLEDB) 。 過 
に 





⑧ コ モン ダイ アロ グ コ ント ロー ル を フォ ー ム に 配置 し ます 。[ プ ロ パ ティ ペー ジ ] ダイ ア 
ログ ボッ クス を 開き 、 次 の プロ パテ ィ を 設定 し ます 。 


プロ パテ ィ 中 








タイ トル ファ イル の 保存 
初期 ディ レク トリ C:\ 








義和 | 多 








ファ 介 名 び : 2 
初期 デル MO 最大 2 ァイル サイ 2 
2002(R 20 デウス 


「 キッ 時 に エラ テー(B 





③ リ スト ビュ ー コ ント ロー ル の 「ltemClickl イベ ント プロ シー ジャ を 修正 し ます 。 
まず 、 コ モン ダイ アロ グ の [filename] プロ パテ ィ に 、 リ スト ビュ ー コ ント ロー ル で 
クリ ッ ク さ れ た ファ イル 名 を 代入 し ます 。 こ れ で 、 コ モン ダイ アロ グ ボ ックス に この フ 





付録 間 種 リ ファ レン 





ァイル 名 が 表示 され ます 。 ま た 、 変 数 「GetFile」 に も 、 フ ァイル 名 を 格納 し ます 。 


Private Sub エ ListView1 エ temC1iok(ByVa1 Ttem As 
Comot1Lib . 1 5 上 エモ mm ) 
CommonDia1og1 .F11ename = TEem.mexxt 
GetF ュ 1e = エ TEem.Tex 上 

End Sub 





クリ ッ ク し た ファ イル 名 が 
表示 され て いる 





④ [Download] ボタ ン の Click イベ ント プロ シー ジャ を 修正 し ます 。 変数 「Flag] の 
値 は その まま で 、 コ モン ダイ アロ グ ボ ックス を 「ShowSave] メソ ッ ド で 表示 し ます 。 
そし て 、 コ モン ダイ アロ グ ボ ックス の [filename] プロ パテ ィ か ら 、 フ ル パ ス で 転送 
先 の ファ イル 名 を 取得 し 、「GET] コマ ンド の 記述 を 作成 し 、Execute メソ ッ ド を 実 
行 し ます 。 


P ェ ivate Sub DownBtn C1ick( ) 
F1ag = False 
With CommonDia1og1 
・ShowSave 


GetFi1e = "GET " & GetFi1e を " " & .Fi1ename 
End With 


ListView1 . Se 上 FoOoCug 


エ ne て 1 .ExxeCuteG GeU エ 1 , GetFi1e 
End Sub 


Lesson22 ……A1(O&A-22.vbp) 
① [新しい ブラ ウザ の 起動 ] ボタ ン が クリ ッ ク さ れ た 時 点 で 、 こ の ボタ ン 自 身 を 「 無 効 」 
に し ます 。 


RunB て tn .Enab1ed = Fa1se 


②【[ ブ ラウ ザ を 閉じ る ] ボタ ン を クリ ッ ク す る と 、[ 新 し い ブ ラウ ザ の 起動 ] ボタ ン を 有 


練習 問題 の 解答 (Lesson22 Lesson23) 


効 に し 、[ ブ ラウ ザ を 閉じ る ] ボタ ン と [ブラ ウザ の 表示 切り 替え ] ボタ ン を 無効 に し 
ます 。 


ViewBtn .Enab1ed = Fa1se 
C1oseBtn .Enab1ed = Fa1se 
RunB て n .Enab1ed = "True 


これ で 、 イ ンス タン ス は 1 つ し か 作成 で きま せん 。 


な お 、 こ こ で は [ブラ ウザ を 閉じ る ] ボタ ン を クリ ッ ク す る と 、[Visible] プロ パテ ィ 


を 操作 する の で は な く 、「Quit」 メソ ッ ド を 使用 し て いま す 。 こ の メソ ッ ド を 使う と 、 イ 
ンス タン ス を 破棄 し て ブラ ウザ を 終了 し ます 。 


[新しい ブラ ウザ の 起動 ] ボタ ン 
が 無効 に な っ て イン スタ ンス を 
作成 で き な い 











追加 し た コン トロ ー ル 
⑧ イ ンタ ーネット エク スプ ロー ラ が 現在 表示 し て いる ペー ジ の URL を 取得 する に は 、 


「LocationURL」 プロ バ パティ の 値 を 参照 し ます 。 こ の 値 を 、 ラ ベル コン トロ ー ル に 出 
力 す れ ば 、 現 在 表示 し て いる ペー ジ の URL を 知る こと が で きま す 。 


けい 
付録 種 リフ ァ レ ンス 











abe1 1 .Cap モ 上 ion = Te.TLiocaionURL 


③ こ の コー ド を 、 追加 し た コマ ンド ボタ ン の Click イベ ント プロ シー ジャ に 組み 込み ます 。 


Private Sub Command1 C1iok( ) 
Labe1 1 .Caption = Te.TLocationURLT, 
End Sub 


これ で 、 こ の ボタ ン を クリ ッ ク す れ ば 、 現 在 表示 し て いる ペー ジ の URL が 、 ラ ベル コ 
ント ロー ル に 表示 され ます 。 


(④ そ し て 、[ ブ ラウ ザ を 閉じ る ] ボタ ン の 処理 に 、 ラ ベル コン トロ ー ル の 文字 を クリ ア に 
する 処理 を 作成 し ます 。 イ ンタ ーネット エク スプ ロー ラ が 閉じ られ れ ば 、URL の 表示 
も 取り 消し ます 。 


エ Labe11 .Caption = "" 





ボタ ン を クリ ッ ク す る と 、 
表示 し て いる ペー ジ の URL 
が 表示 され る 
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Lessom2 全 ・・A1(O&A-24.vbp) 

サー バ か ら の 転送 が 完了 し た と き に 、WebBrowser コン トロ ー ル に 発生 する イベ ント 
「DownloadComplete] の プロ シー ジャ に 、[LocationURL] プロ パテ ィ の 内 容 を フォ 
ー ム の Caption] プロ パテ ィ に 設定 する 処理 を 作成 し ます 。 

これ で 、 現 在 表示 し て いる ペー ジ の URL が 、 フ ォ ー ム の キャ プシ ョ ン に 表示 され ます 。 


Private Sub WebBrowser1 Down1oadComp1ete( ) 
rabe11 .Caption = "表示 完了 " 
Form1 .Cap 上 ュ on = WebB ェ ovwser1 . LOCa ュ onURT, 
End Sub 


練習 問題 の 解答 (Lesson ら 


現在 表示 し て いる ペー ジ の 
URL が 表示 され る 








この 処理 は 、 ロ ー カ ルコ ンピュータ の ファ イル を 表示 する 場合 は 、 う まく 動作 し な い 場 
合 が あり ます 。 


Lessom2 全 ・…・A2(O&A-24.vjbp) 

コン ボボ ックス コン トロ ー ル の 「KeyDown] イベ ント を 使用 する と 、 テ キス ト 入 力 エ 
リア で Enter キー が 押さ れ た と き の 処 理 が 作成 で きま す 。 

この イベ ント プロ シー ジャ は 、 引 数 「KeyCode] に 、 押 され た キー の コー ド を 格納 し 
ます 。Enter キー は 、 コ ー ド 「13」 で すか ら 、If ステ ー ト メン ト で これ を 評価 し 、「13] 
で あれ ば 、WebBrowser コン トロ ー ル の 「Navigate] メソ ッ ド を 実行 し ます 。 


Private Sub Combo1 KeyDowmn (KeyCode As Tnteger, ShifF 七 As Tnteger ) 
ェ F KeyCode = 13 Then 
On 下 と エエ Oo エ ReSume Nex セ ヒ 
WebBrowSser1 .Nayigate Combo1 . Tex 
End TE 
End Sub 


Tessom2 全 ・…・A う (O&A-24.vbp) 

① フ ォ ー ム に コマ ンド ボタ ン を 配置 し 、[Caption] プロ パテ ィ に 「SaveAs」 の 文字 列 
を 設定 し 、[Enabled] プロ パテ ィ を 「False] に し ます 。 ま た 、 オ ブ ジ ェクト 名 を 
「SaveAsBtn」 に 変更 し ます 。 


配置 し プロパティ 
を 設定 し た コマ ンド 


ボタ ンコ ント ロー ル 





付録 損 種 リ ファ レン 





⑧ [Go] ボタ ン の Click イベ ント プロ シー ジャ で 、[SaveAs] ボタ ン の [Enabled] プ 
ロ パ ティ を 「True」 に 設定 し 、 ボ タン を 有効 に し ます 。 


P ェ ivate Sub GoBtn C1ick( ) 
SaveAsB て n .Enab1ed = True 
On 下 エ と エ O エ ReSume NexE 
WebBrowser1 .Nayigate Combo1 . mex セ 
End Sub 


③ [SaveAs] ボタ ン の Click イベ ント プロ シー ジャ に 、WebBrowser コン トロ ー ル の 
「ExecWB] メソ ッ ド を 実行 する コー ド を 作成 し ます 。 
この メソ ッ ド は 、 い くつ か の 娘 理 を 実行 する メソ ッ ド で 、 最 初 の 引数 に 実行 する コマ ン 
ド の 種類 を 指定 し ます 。 こ の コマ ンド は 、 コ ー ド ウィ ンド ウ に 入力 する 際 に 、 引 数 リス 
ト が 表示 され ます か ら 、 こ こ か ら 選 び ま す 。 








Private Sub SaveAsBtn_Click() 

rror Resume Next 

ExecWB | 

Exec 名 OLECMDID_REDO 
包 OLECMDID_REFRESH 


ouEoMOD SA | 当 | 3 泊 の リス トカ 5 
刀 MDID SAVEA ュ ナ ー・ e 

司 OLECMDID SAVECOPYAS 8 コマ ンド を 選 点 
司 OLECMDIDSELECTALL 消 

包 OLECMDID SETDOWNLOADSTATE ェ 






WebBrowser1. 
End Sub 







WebBrowser コン トロ ー ル に 表示 し て いる ドキ ュ メ ント を 保存 する に は 、 第 一 引数 に 
「OLECMDID_SAVEAS」 を 、 第 二 引 数 に 「OLECMDEXECOPT_DODEFAULT」 
を 指定 し ます 。 


Private Sub SaveAsBtn C1ick( ) 

On エエ Oo エ ReSume Nexx 

WebBrowser1 .ExxecWB OLECMDTD_SAVEAS, OLECMDEXECOPT DODEFAULT 
End Sub 


これ で 、[SaveAs] ボタ ン を クリ ッ ク す る だ け で 、[ 名 前 を 付け て ファ イル を 保存 ] ダ 
イア ログ ボッ クス が 表示 され 、 フ ァイル に 保存 で きる よう に な り ま す 。 ダ イア ログ ボッ ク 
ス の [キャ ン セ ル ] ボタ ン が クリ ッ ク さ れる と 、「ExecWB]」 メソ ッ ド が エラ ー に な り ま 
す の で 、「On Error Hesume Next] ステ ー ト メン ト を 加え て お きま す 。 


練習 問題 の 解答 (Lesson ら c 







ここ を クリ ッ ク す る と .. 


[名 前 を 付け て ファ イル を 
保存 ] ダイ アロ グ ボ ックス 
が 表示 され る 

2 や や eeeml 


2 KO パラ 却 を whenmD 記 ーー*wztk | 
有馬 ウフ ト JE ーー oe 





Tessom25 ・……A1(OS&A-2S.vbp) 
① フ ォ ー ム に コマ ンド ボタ ン を 追加 し 、[Caption] プロ パテ ィ を 「Windows の ディ レ 
クト リ 」 に 変更 し ます 。 





6 TDSER HHHFEHHHHHPEEH コマ ンド ボタ ン を 追加 し て 
上 用 ピュ ー タ を 6 イル : MP プロ パテ ィ を 





⑧ 標 準 モ ジュ ー ル (Module 1 ) に 、API 関数 「GetWindowsDirectory」 を 、Declare 
ステ ー ト メン ト を 使っ て 宣言 し ます 。 
この API は 、 先 に 使用 し た API 「GetComputerName」 と 同じ よう な 形態 の 引数 を 
持ち 、 実 行 す る と 引数 「IpBuffer」 に 、Windows が イン スト ー ル され て いる ディ レク 
トリ 名 を 格納 し ます 。 


Dec1are Funotion GetWindowsDirectory エ Lib "kerne132" 
A1ias "GetWindowsDirecoryA" 
(ByVa1 1pBuFFer ェ AS St ェ inqd, 
ByVa1 nSize As Long) As Long 





付録 損 種 リフ ァ レ ン 





③ フ ォ ー ム の 「[Windows の ディ レク トリ ] ボタ ン の Click イベ ント プロ シー ジャ で 、 こ 
の API を 実行 する 処理 を 記述 し ます 。 変 数 「Pathname] は 、 ら 0 バイ ト の 固定 長 で 
宣言 し ます 。 そ し て 、「GetComputerName」 を 実行 し 、 変 数 「Pathname」 の 値 を 
ラベ ルコ ント ロー ル に 出力 し ます 。 


Private Sub Command2 C1iok( ) 
Dim Pathname As String * 20 


GetWindowsD1rectory Pathname, 20 
Labe11 .Capion = Pathname 











ここ を クリ ッ ク す る と .… 


Windows が 保存 され て いる 
ディ レク トリ が 表示 され る 


Lessom26 ・…・A1(O&A-2G.vbp) 
ウィ ンド ウ の キャ プシ ョ ン を 点滅 させ る 機能 は 、Visual Basic に は 組み 込ま れ て いま 
せん 。 そ こ で 、API 関数 を プロ グラ ム に 組み 込ん で 使用 し ます 。 






① API ビュ ー ワ を 起動 し ます 。[ フ ァイル ] メニ ュー の [デー タベース ファ イル の 読み 込 
み ] を 選択 し て 、「WIN32API.MDB」 を 開き ます 。 


ご と を リック 









⑧ API 関数 「FlashWindow] を [有効 な 項目 ] か ら 選 び 、Declare 宣言 文 を 、Visual 
Basic の 標準 モジ ュー ル に コピ ー し ます 。 

③ フ ォ ー ム に 、 タ イマ ー コ ント ロー ル を 1 つ 配 置 し 、「Intervall プロ パテ ィ を 「0」 に 
し て お きま す 。 ま た 、 コ マン ド ボ タ ン を 1 つ 配 置 し 、[Caption] プロ パテ ィ を 「 リ セ 
ッ ト 」 に 変更 し ます 。 


練習 問題 の 解答 (Lesson ら 





配置 し て プロ パテ ィ を 変更 
し た タイ マー コン トロ ー ル 








④ API 関数 「FlashWindow」 は 、 ら つの 引数 を 持ち ます 。 1 つ は 、「 ウ ィ ン ド ウ ハ ン ド 
ル (hwnd)」 と 呼ば れる 、 ウ ィ ン ド ウ 1 つ 1 つ を 識別 する 値 を 持ち ます 。 も う 1 つの 
引数 に は 、 点 減 を 有効 に する の が 無効 に する の か を 決め る 、 論 理 値 を 設定 し ます 。 


Dec1are Funotion Fl1ashWindow Lib "user32" 
(ByVa1 hwnd As Long, 
ByVa1 bTnvert As Long) As Lond 


⑤ こ の プロ グラ ム で は フォ ー ム の キャ プシ ョ ン を 点滅 さ せま すか ら 、 ウ ィ ン ド ウ ハ ン ドル 
は フォ ー ム に な り ま す 。 フ ォ ー ム の ウィ ンド ウ ハ ン ドル を 取得 する に は 、[hwnd] プ 
ロ パ ティ を 使用 し ます 。 この プロ パテ ィ は 、 フォ ー ム の ハン ドル を 返す プロ パテ ィ で す 。 
これ を 、「FlashWindow」 の 引数 に 設定 し 、 第 二 引数 に 「True」 を 設定 する と 、 フ ォ 
ー ム の キャ プシ ョ ン が 1 回 点 減 し ます 。 こ の コー ド を 、 タ イマ ー コ ント ロー ル の 
「Timer」 イベ ント に 記述 すれ ば 、 タ イマ ー が 動作 する た びに フォ ー ム の キャ プシ ョ ン 
が 点滅 し ます 。 


P ェ ュ ivate Sub Fmer1 Fimer() 
FlashWindow Form1 .hwnd, True 
End Sub 


た だ し 、 タ イマ ー コ ント ロー ル の [Intervall プロ パテ ィ を 「0」 に し て ある の で 、 こ 
の 時 点 で は まだ 点 減 は 行わ れ ま せん 。 


⑥ こ の プロ グラ ム で は 、 フ ォ ー ム が クリ ッ ク さ れる と 、 キ ャ プシ ョ ン の 点滅 が 開始 する よ 
うに し ます の で 、 フ ォ ー ム の Click イベ ント プロ シー ジャ に 、 タ イマ ー コ ント ロー ル の 
[Intervall プロ パテ ィ を 「500」 (0.5 秒 ) に 設定 し ます 。 


P エ ミュ マ a モ @ Sub Form C11icCk( ) 
中 ime ェ 1 . エ n モ e ェ va1 = 500 
End Sub 





付録 加 種 リフ ァ レ ン 





⑦ フ ォ ー ム が ダブ ルク リッ ク さ れ た 時 点 で 、 点 滅 を 止め ます の で 、 フ ォ ー ム の DDIClick 
イベ ント プロ シー ジャ で 、 タ イマ ー コ ント ロー ル の [Interval] プロ パテ ィ を 「0」 に 
し ます 。 


Private Sub Form Db1C1ick( ) 
呈 imer1 . TnEerva1 = 0 
End Sub 


⑧ 最 後に 、 配 置 し た コマ ンド ボタ ン 「 リ セッ ト 」 の Click イベ ント プロ シー ジャ で 、 
「FlashWindow」 の 第 二 引 数 に 「False」 を 設定 し て 実行 し ます 。 こ れ で 、 
「FlashWindow」 関数 に よる キャ プシ ョ ン の 点 減 を リセ ッ ト し ます 。 


Private Sub Command1 C1iok( ) 
F1ashWindow Form1 .hwnd, Fa1se 
End Sub 


TLessom27 ・…A1(O&A- ス 7.vbp) 

① ま ず 、 フ ォ ー ム に ラベ ルコ ント ロー ル を 配置 し 、[Caption] プロ パテ ィ を 「 使 用 済み 
メモ リ 」 に 変え ます 。 そ し て 、 値 を 表示 する ラベ ルコ ント ロー ル を 、 コ ピー& 貼 り 付け 
で 追加 し ます 。 こ の ラベ ルコ ン トロール は 、「Label5(4)」 に な り ま す 。 


配置 し て [Caption] プロ パテ ィ 
を 変更 し た ラベ ルコ ント ロー ル 


コピ ー し て 貼り 付け た 
ラベ ルコ ント ロー ル 








フォ ー ム の コー ドウ ィ ン ド ウ を 表示 し 、 コ マン ド ボ タ ン の Click イベ ント プロ シー ジャ 
を 修正 し ます 。 ま ず 、 変 数 「TtIMem」 を Long 型 で 宣言 し ます 。 


Dim TE1Mem As Long 


次 に 、 こ の 変数 に 「dwTotalPhys] か ら 「dwAvailPhys」 を 差し 引い た 値 を 代入 し 
ます 。 総 メモ リ か ら 使 用 可能 な メモ リ を 引け ば 、 使 用 中 の メモ リ 量 が 算出 で きま す 。 


〒 モ 1Mem = .qdwTota1Phys - -.dwAvai1Phys 


③ こ の 値 を 追加 し た ラベ ルコ ント ロー ル に 出力 し ます 。 こ の と き 変 数 「TtIMem」 の 値 を 
「1000000」 (100 万 ) で 割れ ば 、 メ ガバ イト 単位 に 換算 で きま す が 、 こ れ だ と 浮動 


練習 問題 の 解答 (Lesson2 フ ー Lesson ら 


小数 点 に な っ て し まい ます 。 そ こ で 、「CInt」 関数 を 使っ て 、 小 数 点 を 丸め て 整数 に 変 
換 し ます 。 こ うす れ ば 、 た と えば 使用 可能 な メモ リ 量 が 「47 ら 10496] バイ ト だ と 
すれ ば 、1 00 万 で 割っ た 「47.210496」 を 丸め て 「47MB」 と 表示 で きま す 。 





小数 点 で 表示 する と 
こう な る 









CInt 関数 で 小数 点 
を 丸め て 表示 












Lessom2S8 ・…・A1(O&A-2S.vbp) 
すでに 使用 し た AP| 関数 と テク ニッ ク を 組み 合わ せ て いき ます 。 
① フ ォ ー ム に ラベ ルコ ント ロー ル を 配置 し 、 大 きく 広げ て プロ バテ ィ を 設定 し ます 。 


プロ パテ ィ プロ パテ ィ 値 


ら ー 中 崩 え 
































配置 し て プロ パテ ィ を 設定 
し た ラベ ルコ ント ロー ル 





⑧ プ ロジ ェクト に 標準 モジ ュー ル を 追加 し 、4 つの API 関数 を Declare ステ ー ト メン ト 
で 宣言 し ます 。 





付録 各種 リフ ァ レ ン 


GeCompu モ erName 
G1oba1Memo ェ SS 上 a も u8 
GetSystemTnFo 
GetVersionEx 


また 、 こ れ ら の AFI 関数 で 使用 する 構造 体 も 、 ユ ー ザ ー 定 義 の デー タ 型 と し て 宣言 し 
ます 。 


OSVERSTONTNFO 
SYSTEM TNFO 
MEMORYSTATUS 


③ プ ログ ラム は 、 フ ォ ー ム が 表示 され た 時 点 で 、 各 種 の 情報 を 取得 し 表示 する よう に し ま 
す の で 、 フ ォ ー ム の Load イベ ント プロ シー ジャ に 処理 を 作成 し ます 。 処理 の 内 容 は 、 
これ まで それ ぞ れ の レッ スン で 紹介 し た も の と 同じ な の で 、 そ ちら を も う 一 度 参 照 し て 
くだ さい 。 


(④ メ モリ の 使用 状況 の 処理 で は 、 


CTnt ( .dvwTota1Phys / 1000000) g "MBP 
と いう 式 を 使っ て 、 表 示 を メガ バイ ト 単 位 に し て いま す 。 


⑤ ま た 、 こ の プロ グラ ム で は 1 つの ラベ ルコ ント ロー ル に 、 す べ て の 情報 を まとめ て 表 
示す る の で 、 文 字 列 を 作成 する た め に 「Msg(8)」 と いう 配列 変数 を 使っ て いま す 。 メ 
ッ セ ー ジ を 配列 の 変数 に 格納 し て お く と 、For.….Next ルー プ で 一 気 に 文 字 列 連結 が で き 
る よう に な り 、 処 理 が 簡単 に な り ま す 。 改行 の 挿入 に 、「Chr(10)」 関数 を 使用 し て い 
る の も 、 ポ イン ト で す 。 

次 の コー ド は 、[Caption] プロ パテ ィ の 値 に 、For.….Next ルー プ で 次 々 と 文字 列 を 連 
結 し て 格納 し ます 。 配列 の イン デック ス と ルー プ の カウ ンタ 変数 の 値 を きち ん と 合わ せ 
て お く 必 要 が あり ます 。 


For = 0O "To8 
Labe11 .Caption = Labe11 .Cap モ ion を Chr(10) & Chr(10) 
を Msg(i) 
Nex モ 


Lessom29 ……A1(O&A-2 の .vbp) 


① フ ォ ー ム に 配置 し た ラベ ルコ ント ロー ル を 、 コ ン ボ ボッ クス コン トロール に 入れ 替え ま 
す 。 





練習 問題 の 解答 (Lesson2c 








ラベ ルコ ント ロー ル を 削除 し 、 
コン ボボ ックス コン トロ ー ル 
を 配置 する 





コン ボボ ックス コン トロール の [List] プロ パテ ィ に 、 い くつ か の ビッ トマ ッ プ ファ イ 
ル の 名 前 を 登録 し ます 。 









ラグ [List] プロ パテ ィ に ビッ ト 
Ne 7 に Da マッ プ フ ァ イ ル 名 を 登録 する 





それ に 伴い 、[ 壁 紙 の 選択 ] ボタ ン で ラベ ルコ ント ロー ル に 出力 し て いた ファ イル 名 の 
処理 を 、 コ ン ボ ボッ クス コン トロ ー ル の [Text] プロ パテ ィ へ の 代入 式 に 入れ 替え ま 
す 。 


Combo1 . mext = Fname 


③ コ ン ボ ボッ クス コン トロ ー ル の リス ト か ら フ ァイル 名 が 選択 され る と 「Click」 イベ ン 
ト が 発生 し ます 。 そ こ で 、 こ の イベ ント プロ シー ジャ で 、 選 択 さ れ た ファ イル 名 を 変数 
「Fname」 に 格納 する 処理 を 行い ます 。 こ の 処理 は 、 独 自 の プロ シー ジャ 「GetList」 
を 作成 し て 、 こ れ を 呼び 出し ます 。 


P ェ ュ ivate Sub Combo1 C1ick( ) 
Get エ is セ 上 
End Sub 


(④ ま た 、 テ キス ト エ リア に 文字 が 入力 され た 場合 も 同様 に 、 入 力 さ れ た ファ イル 名 を 変数 
「Fname」 に 格納 する よう に し ます 。 こ の 場合 は 、Enter キー が 押さ れ た 時 点 で 入力 が 
確定 され た こと に し ます の で 、「KeyDown] イベ ント プロ シー ジャ で は 、「KeyCode」 


付録 損 種 リ ファ レン ウ 


を 使っ て 押さ れ た キー の 種類 を 判別 し 、Enter キー が 押さ れ た と きだ け 、 プ ロ シ ー ジ ャ 
「GetList] を 呼び 出し 、 フ ァイル 名 を 変数 に 格納 する よう に し ます 。 


Private Sub Combo1 KeyDown (KeyCode As Tnteger, ShiF モ 上 As Tnteger ) 
ェ F KeyCode = 13 mhen 
GetT エ iis モ 
End TE 
End Sub 


⑤ コ ン ボ ボッ クス コン トロ ー ル の 操作 で ファ イル 名 を 取得 する 独自 の プロ シー ジャ 
「GetList] は 、 コ ン ボ ボッ クス コン トロ ー ル の [Text] プロ パテ ィ の 値 を 変数 
「Fname」 に 格納 する 処理 を 行い ます 。 


Sub Getrigt() 
On 到 エ エ O エ GOTO FAT エエ 
Fname = Combo1 . Tex モ 
エ mage1 .P ミ CEure = LoadP1Cu エ e(Fname ) 
SetBtn .Enab1ed = True 
Ex 上 Sub 


も し 、 フ ァイル 名 が 空位 だ っ た り 、 存 在 し な い フ ァイル 名 か が 入力 され た 場合 は エラ ー が 
発生 し ます か ら 、「On Error GoTo] ステ ー ト メン ト で 処理 を ラベ ル 「FAIL」 まで ジ 
ャ ンプ させ ます 。 


⑥ ラ ベル 「FAIL」 で は 、 イ メー ジコ ント ロー ル の [Picture] プロ パテ ィ を 空欄 に し て 、 
表示 を 取り 消し ます 。 ま た 、[ 設 定 ] ボタ ン を 無効 に し て 、 エ ラー の メッ セー ジ を 表示 
し ます 。 
メッ セー ジ ボ ッ クス で は 、Err オブ ジェ クト の [Number] プロ パテ ィ で エラ ー 番 号 を 
取得 し 、Error 関数 で エラ ー 番 号 に 対応 し た エラ ー メ ッ セ ー ジ を 表示 し ます 。 そ し て 、 
再 入力 に 備え て 、 コ ン ボ ボッ クス コン トロ ー ル に フォ ー カ ス を 移し ます 。 


FAT エエ 
エ mage1 . PC 上 ure = LoadP1cture("") 
SetBtn .Enab1ed = Fa1se 
MsgBOxr 下 エ エ O エ ( 巨 エエ .Number ) 
Combo1 . Se 上 豆 〇 Cu8 
End Sub 





練習 問題 の 解答 (Lesson3C 








エラ ー 番 号 に 対応 し た エラ ー 
メッ セー ジ を 表示 








ILesson る 0 ・……・A1(O&<A-3O.vbp) 

Time 関数 を 使用 する と 、 現 在 の 時 刻 を 取得 で きま す の で 、 こ れ を 使用 し て 設定 し た 時 
間 に な れ ば 、API 関 数 「SystemParameterslInfo」 を 実行 する よう に し ます 。 た だ し 、 
プロ グラ ム が 常に 現在 の 時 刻 を 把握 する 必要 が あり ます の で 、 タ イマ ー コ ント ロー ル の 
「Timer」 イベ ント の 中 で 、Time 関数 に よる 現在 時 刻 の 把握 を 行っ て お く 必 要 が あり ま 
9 も 


① タ イマ ー コ ント ロー ル の [Intervall プロ パテ ィ を 「1000] (] 秒 ) に 設定 し ます 。 


⑧ タ イマ ー コ ント ロー ル の Timer イベ ント プロ シー ジャ を 修正 し ます 。 
まず 、 現 在 時 刻 を 格納 する 変数 「NowTime」 を 宣言 し ます 。 そ し て 、 こ の 変数 に 、 
Time 関数 が 戻し こく る 現在 の 時 刻 を 格納 し ます 。 


③ し か し 、Time 関数 は 、 シ ステ ム に 設定 され て いる 時 刻 表 示 の フォ ー マ ッ ト で 、 現 在 時 
刻 を 返し て きま す 。 た と えば 、 筆 者 の コン ピュ ー タ で は 、「 午 後 3:24:43] と いう 形 
式 で す 。 こ れ だ と 、 時 刻 の 数 字 を 把握 し づら い の で 、 い っ た ん 「Format」 関数 を 使用 
し て 、「15:24:43] と いう 時 刻 書式 に 変換 し て か ら 、 変 数 「NowTime」 に 格納 し ま 
す 。 


NowT1me = Forma セ (mime, "hh:mmzsS") 

④ こ の 取得 し た 時 刻 を 、If ス テー トメ ント で 判断 し ます 。 設定 し た 時 刻 が 「15:00:00」 
で あれ ば 、 壁 紙 を 変更 する 処理 を 一 気 に 実 行 し ます 。 こ の と き 、 必 ず 秒 単位 まで きち ん 
と 確認 し て くだ さい 。 


⑤ Timer イベ ント は 、[Intervall プロ バ パティ を 「1000」 に 設定 し て いま す の で 、1 秒 
ご と に 時 刻 の チェ ッ ク が 行わ れ 、 設 定 し た 時 間 に な る と 壁紙 を 変更 し ます 。 


付録 各種 リフ ァ レ ン リ 





Lesson ろ 1 ……A1(O&A- う 1.vbp) 
API 関数 「GetDriveType」 を 使用 する と 、 ド ライ ブ の タイ プ を 返し て きま す 。 これ を 、 
フレ ー ム コン トロ ー ル の キャ プシ ョ ン で 表示 し ます 。 










通常 の ハー ド デ ィ スク 





ジロ ッ ピ ー デ ィ ス ク 
ドラ イブ 


API 関数 「GetDriveType] は 、 引 数 「nDrive」 に ドラ イブ 名 を 指定 し て 実行 する と 、 
その ドラ イブ の タイ プ を 定数 で 返し て きま す 。 





Dec1are Function GetDrivemype Lib "jkerne132" 
A1ias "GetDrivemypeA" 
(ByVa1 nDrive As String) As Long 


返っ て くる 定数 は 、Visual Basic の 形式 で は 、 次 の よう に 再 定義 され ます 。 


Pub11io Const DRTVE REMOVABTLE = 2 
Pub1io Cons DRTVE FTXED = 3 
Pub1io Const DRTVE REMOTE = 4 
Pub11o Const DRTVE CDROM = 5 
Pub1io ConsE DRTVE RAMDTSK = 6 


この 戻り 値 を 使っ て 、Select Case ステ ー ト メン ト で 分 岐 し て 文字 列 に 変換 し 、 フ レ 
ー ム コン トロ ー ル の [Caption] プロ パテ ィ に 設定 し ます 。 

Select Case ステ ー ト メン ト で は 、 直 接 関 数 の 実行 文 を 条件 と し て 記述 する と 、 自 動 
的 に 戻り 値 を 分 岐 の 条件 に し ます 。 ま た 、Case 節 で は 、 戻 り 値 の 定数 を その まま 設定 す 
れ ば 、 わ か りや すい 記述 に な り ま す 。 


Dim D ェ vtype AS St ェ ing 


練習 問題 の 解答 (Lesson31 ~- Lesson3 


Se1ect Case GetD ェ iveType ( 1pRoo 上 PahName ) 
Case DRTVE REMOVABLE 
Drvtype = "Removab1e Disk" 


Case DRTVE FT エ XED 
DrvtyDpe = "Fixxed Hard Disk" 


Case DRTVE REMOTE 
D ェ ytype = "Remote Network D エ river 


Case DRTVE CDROM 
D ェ ytype = "CD-ROM D ェ ive" 


Case DRTVE RAMDTSK 
D ェ rvtype = "RAM Disk" 
End Se1eo 


得 ら れ た ドラ イブ の タイ プ を 、 フ レー ムコ ント ロー ル の [Caption] プロ パテ ィ に 設定 
する 際 に 、 ド ライ ブリ スト ボッ クス の [Drive] プロ パテ ィ の 値 と 結合 すれ ば 、 ド ライ ブ 
名 や ボリ ュー ムラ ベル を 表示 に 使用 で きま す 。 


Frame1 .Caption = "Drive " & Drive1.D ェ ive & " " & Drvtype 


Lesson ろ 2 ・……・A1(O&A- う 2.vbp) 

Excel の 起動 時 に サイ ズ を 指定 する に は 、Excel で いう [Application] オブ ジェ クト 
の Width] と [Height] プロ パテ ィ に 、 サ イズ を ポイ ント 単位 で 指定 し ます 。 ま た 、 
デス クト ッ プ の 表示 位置 を 指定 する に は 、 同 じ く 「Application] オブ ジェ クト の [Top] 
と [Left] プロ パテ ィ に 、 位 置 を 設定 し ます 。 

この 場合 は 、Excel の イン スタ ンス の オブ ジェ クト を 格納 し て いる オブ ジェ クト 変数 を 
指定 し て 、 プ ロ パ ティ に 値 を 設定 し ます 。 


-Height = 500 
<・Wiqdth = 700 
<LeF モ E = 10 
Top = 10 


TLessom ろ うろ ・…・A1(O&A- う うろ.vbp) 

付録 CD-ROM の 「Q&SA」 フォ ル ダ に ある Excel の ブッ ク 「photoalbum.XLS」 と 
「F1.XLS」 を 、 使 用 し て いる コン ピュ ー タ の プロ グラ ム を 作成 する フォ ル ダ に コピ ー し 
て くだ さい 。 


① フ ォ ー ム に コマ ンド ボタ ン を 1 つ 配 置 し 、[Caption] プロ パテ ィ を 「 ウ ィ ン ド ウ 名 を 





付録 各種 リフ ァ レ ン 





表示 」 変更 し ます 。 









配置 し て プ ロ パ ティ を 変更 し た 
コマ ンド ボタ ンコ ント ロー ル 


②⑥ こ の ボタ ン の Click イベ ント プロ シー ジャ に 、 ウ ィ ン ド ウ 名 を 表示 する コー ド を 作成 し 
ます 。 ま ず 、 表 示す る ウィ ンド ウ 名 を 格納 する 変数 を 宣言 し ます 。 





Dim msg AS String 


次 に 、Excel の Application オブ ジェ クト の [ActiveWindow] プロ パテ ィ を 使用 し 
て 、Excel で 最前 面 (アク ティ ブ ) に な っ て いる ウィ ンド ウ を 把握 し ます 。 そ し て 、 こ の 
Wilndow オブ ジェ クト の [Caption] プロ パテ ィ の 値 を 参照 する と 、 現 在 ア クティ ブ に 
な っ て いる ウィ ンド ウ 名 を 取得 で きま す 。 


m8g = XLSBookk . ADp1 エ Ca モ ュ on . Ac 上 veWindow .Caption 


⑬③ あ と は 、 文 字 列 を 加え て メッ セー ジ に 加工 し て 、 メ ッ セ ー ジ ボッ クス で 表示 し ます 。 
MsgBox "現在 の ウィ ンド ウ 名 : " g msg 


〈④ た だ し 、 こ の まま で は 、[ 新 し い ブ ッ ク を 起動 ] ボタ ン と [ファ イル か ら Excel を 起動 ] 
ボタ ン の Click イベ ント プロ シー ジャ で は 、Excel を 起動 し た あと に 、 


Set XLSBook = Nothing 


と オブ ジェ クト 変数 を 解放 し て し まっ て いま す 。 そ の た め 、 他 の 処理 で 作成 し た Excel 
オブ ジェ クト を 参照 で を な く な っ て し まい ます 。 そ こ で 、 こ れ ら の プロ シー ジャ か ら オ 
ブ ジ ェクト 変数 の 解放 コー ド を 削除 し 、 フ ォ ー ム の 「Unload]」 イベ ント プロ シー ジャ 
で 一 括 し て 解放 する よう に し て いま す 。 


Private Sub Form Un1oad(Cance1 As TnEteger ) 
Se モ ヌ LSBook = Nothing 
End Sub 


練習 問題 の 解答 (Lesson34) 


⑤ こ れ で 完成 で す 。Excel を 起動 し 、[ ウ ィ ン ド ウ 名 を 表示 ] ボタ ン を クリ ッ ク し ます 。 
次 に ウィ ンド ウ を 切り 替え て 、 再 度 こ の ボタ ン を クリ ッ ク す る と 、 ウ ィ ン ド ウ 名 も 切り 
替わり ます 。 
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現在 の ウィ ンド ウ 名 
を 表示 


ウィ ンド ウ を 切り 替え る と 、 
ウィ ンド ウ 名 も 変わ る 


① フ ォ ー ム に コマ ンド ボタ ン を 配置 し 、[Caption] プロ パテ ィ を 「Min] に 、 オ ブ ジ ェ 








配置 し て プ ロ パ ティ を 変更 し た 
コマ ンド ボタ ンコ ント ロー ル 





535 
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② [Ave] ボタ ン の 横 の ラベ ルコ ント ロー ル を コピ ー し て 、[Min] ボタ ン の 横 に 貼り 付 
け ま す 。 







CUn 引 世 一 し で 5. 
ここ に 貼り 付け る 


③ こ の ボタ ン の Click イベ ント プロ シー ジャ に 、 ワ ー ク シー ト 関 数 の Min 関数 を 実行 す 
る コー ド を 作成 し ます 。Min 関数 は 、 引 数 に セル 範囲 を 指定 する と 、 そ の 範囲 内 の デー 
タタ の うち 、 も っ と も 小さ い 値 を 返す 関数 で す 。 こ こ で は 、 セ ル 範 囲 に Range オブ ジェ 
クト を 指定 し て 実行 し 、 戻 り 値 を ラベ ルコ ント ロー ル に 出力 し ます 。 


abe11 ( 2 ) .Caption = AppXLS .WorksheetFunotion .Min (CheckRange ) 





入力 し た デー タ の 最小 値 
が 表示 され る 





④ Enter キー を 押す だ け で リス ト へ 連続 入力 する た め に 、 こ こ で は 引数 「KeyAscii」 を 

使っ て お きま し ょ う 。 Enter キー (KeyAscii = 13) が 押さ れる と 「InputBtn_Click」 
プロ シー ジャ に 処理 を 渡し ます 。 最後 に は KeyAscii の 値 を 0 に し て 、 引数 を クリ ア に 
し て 、 不 要 な 処理 が 行わ れ な いよ うに し て お きま す 。 


Private Sub "Tex 上 1 KeyPress(KeyAsC11 As TnEteger ) 
エ F KeyAsoii = 13 mhen 
エ nputB そ tn C1iock 
KeyAscii = 0 
End エモ 
End Sub 





練習 問題 の 解答 (Lesson35 


Lesson35 ……A1(O&A- う 5.vbp) 
① 為 替 レ ー ト を 表示 し て いた テキ スト ボッ クス コン トロ ー ル を 削除 し 、 リ スト ボッ クス コ 
ント ロー ル を 配置 し ます 。 





テキ スト コン トロ ー ル を 削除 し 、 
リス ト ボ ックス コン トロ ー ル を 
配置 する 





③ フ ォ ー ム の Load イベ ント プロ シー ジャ で 、 リ スト ボッ クス の 先頭 の 項目 を 選択 状態 に 
し ます 。 


エ Lis モ 1 . エ istTndex = 0 


④ [換算 ] ボタ ン の Click イベ ント プロ シー ジャ で 、 換 算式 の 分 母 に 、 リ スト ボッ クス 
コン トロ ー ル で クリ ッ ク さ れ た 金額 を 組み 込み ます 。 
リス ト ボ ックス コン トロ ー ル の 項目 が 選択 され る と 、[ListIndex] プロ パテ ィ に 、 そ 
の 項目 番号 が 格納 され ます (リス ト の 先頭 は 「0D」 で す )。 そ こ で 、 リ スト ボッ クス の 
[List] プロ パテ ィ の 引数 に 、[ListIndex] プロ パテ ィ を 組み 込む と 、 選 択 さ れ た 項目 
名 を 取り 出す こと が で きま す 。 こ れ を 、 換 算式 に 当て は め ま す 。 


Money = CLng(Tex モ 2 .Texxt) / CLng( エ Lis モ 1 . エ Lis モ (1s モ 1 .L1sTndex ) 


これ で 、 リ スト ボッ クス か ら 選 ん だ 為替 レー ト で 、 計 算式 が 実行 され ます 。 





付録 各種 リフ ァ レ ン 





⑤ 何 回 も レー ト を 変え て 換算 計算 を で きる よう に 、 ト [換算] ボタン の Click イベ ント プロ 
シー ジャ に ある 、 


mexxE2 。mexkE = 『m 
と いう 式 を 削除 し て お きま す 。 


⑥ こ れ で 、 完 成 で す 。 換 算 し た い 円 の 金額 を 入れ 、 リ スト ボッ クス か ら レ ー ト を 選ん で 
[換算 ] ボタ ン を クリ ッ ク す る と 、 そ の レー ト で 計算 が 実行 され ます 。 レ ー ト は 何 回 で 


も 変更 し て 、 換 算 結 果 を 確認 で きま す 。 
最初 は \125 で 
換算 する 








次 に リス ト か ら \131 を 選ん 
で [換算] ボタン を クリ ッ ク と 、 


入力 し た 金額 は その まま で 換算 
結果 が 変更 され る 











TLesson3G ・…・A1(O&A- ろ G.vbp) 

リス ト ボ ックス の 項目 が クリ ッ ク さ れ た と き に 、 コ ー ド の 撮影 デー タ や イメ ー ジ ファ イ 
ル の 表示 処理 と 同じ 場所 に 、 フ 7 列 目 の セル の 内 容 を ステ ー タ スバ ー コ ント ロー ル に 表示 す 
る 処理 を 追加 し ます 。 


StatusBar1 .Pane1s(1) .mext = .Ce11s(Pos, 7) 


実際 に は 、 こ れ を ステ ー タ スバ ー コ ント ロー ル の パネ ル の [Text] プロ パテ ィ に 設定 
する と 表示 され ます 。 


練習 問題 の 解答 (Lesson36 
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旅行 前 の 空港 の ロビ ー を 撮影 
清里 の 駅 前 に あっ た 時 計 の つい た 建物 
了 ハ ヶ 岳 の 牧場 で 日 馬 の ポ ニー と 記念 撮 ゎ 
自宅 で 咲か せ た バ ラ 。 品名 は 「 ブ レイ ボー イ 」 で 四季 咲き の フロ リバ ンダ 
北海 道 に 旅行 に 行っ た 時 に 撮影 







7 列 目 の セ ル が 
コメ ント の セル 


195 年 6 月 自宅 








リス ト ボ ックス を 
クリ ッ ク す る と .… 










| で か た パラ 。 朗 攻 「 ブ レイ ポー イ 1 で 加味 き の フ ロリ リン ダ ゴ 人 
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款 引 





数 字 














1 論理 cm 8 
A 
Access2000 

VB6 か ら 操 作 す る 480 
AddItem メ ソ ッ ド 47 ら 
Add メ ソ ッ ド 425 
API 

機能 と 特徴 328 
API 関 数 344 
API ピ ュー ア 336 

起動 338 
Application オ ブ ジ ェクト 426 
App オ ブ ジ ェクト 

[Path] プロ パテ ィ 436 
Average 関 数 450 
に ) 
[BorderStyle] プロ パテ ィ 188 
C 
[Caption] プロ パテ ィ 4 
[CelAlingnment] プロ パテ ィ 52 
[CellIBackColor] プロ パテ ィ 16 

色 番 号 の 指定 ら 0 
CInt 関 数 15Z 
Click イ ベン ト 17 
CLng 関 数 9. 457 
Close ス テー トメ ント 44 
[Cols] プロ バテ ィ 7 
ColumnHeaders 

コレ クシ ョ ン オ ブ ジ ェクト 70 

[ComboBox] ボタ ン 89 
[CommandButton] ボタ ン 5 
[CommonDialog] ボタ ン 34 
CreateObject 関 数 ら 98. 425. 471 

















D 
Date 関 数 163 
Date ス テー トメ ント 163 
Declare ス テー トメ ント 333. 350 
[DialogTitle] プロ バテ ィ 40 
Dir 関 数 45 
DLL 331 
Do.….Loop ス テー トメ ント 47 ら 
Dollar 関 数 458 
DownloadBegin イ ベン ト 32 ら 
DownloadComplete イ ベン ト 323 
[DragMode] プロ パテ ィ 317 
[DriveListBox] ボタ ン 401 
E 
Excel 
VB6 か ら 操 作 す る 415 
アプ リケーション 
オブ ジェ クト の 階層 構造 421 
オブ ジェ クト ライ ブラ リーー 覧 420 
コレ クシ ョ ン オ ブ ジ ェクト 426 
セル の 指定 428 
ファ イル か ら 起 動 432 
ブッ ク の 追加 425 
ワー クシ ー ト 関数 440 
ワー クシ ー ト の オブ ジェ クト 構造 
42 ら 
Execute メ ソ ッ ド ら 44. 559 
ExecWB メ ソ ッ ド 356 
Exit ス テー トメ ント 44 
回 
[filename] プロ パテ ィ 81 
FlashWindow 関 数 35 1 
Font オ ブ ジ ェクト 429 
For.…Next ル ー プ 14 
Format 関 158 
[Frame] ボタ ン 80 
FTP ク ライ アン ト プ ロ グラ ム の 作成 274 
FTP プ ロト コル ら 5 ら 
Function ス テー トメ ント 226 




















G 

Gdi32.dll 331 
GetChunk メ ソ ッ ド ら 47 
GetComputerName 関 数 33 ら 2 
GetDiskFreeSpace 関 数 404 
GetObject 関 数 435 
GetSystemlnfo 関 数 370 
GetVersionEx 関 数 369 
GET コ マン ド 286 
Get ス テー トメ ント 50 
GlobalMemoryStatus 関 数 358 
GoBack メ ソ ッ ド 31 1 
GoForward メ ソ ッ ド 91 1 
GoHome メ ソ ッ ド 31 1 
H 

HTTP プ ロト コル ら 4 ら 
I 

[lcon] プロ パテ ィ 183 
[ImageList] ボタ ン 60. 15 ら 8 
[Inet] ボタ ン 238 
Internet Client SDK 30 ら 8 
K 

Kernel32.dll 331 
KeyDown イ ベン ト 55 
し 

LeaveCell イ ベン ト 19 
LenB 関 数 48. 49 
[ListBox] ボタ ン 398 ら 
ListlImage オ ブ ジ ェクト 160 
ListIltem オ ブ ジ ェクト 268 
LoadFile メ ソ ッ ド 83 
LoadPicture 関 数 187. 387. 475 





























[MaxButton] プロ パテ ィ 171. 188 
Max 関 数 450 
[MDIChild] プロ パテ ィ 191.189 
MDI フ ォ ー ム 191。 18Z 
[Arrange] プロ パテ ィ ら 32 ら 
MDI プ ログ ラム の 作成 180 
MEMORHYSTATUS デ ー タ 型 358. 36 1 
[MinButton] プロ パテ ィ 171 
[MSChart] ボタ ン 403 
[MSFlexGrid] ボタ ン 
N 
Navigate メ ソ ッ ド 300. 32 ら 
Navigate@ ウ メソ ッ ド 89 
0 
OpenURL メ ソ ッ ド 251 
Open ス テー トメ ント 38 
OSVEHRSIONINFO 構 造 体 369 
ロ 
[Picture] プロ パテ ィ 6 
PopupMenu メ ソ ッ ド ら 7. 176 
Private Sub プ ロ シ ー 87 
[ProgressBar] ボタ ン 115. 154 
ProgressChange イ ベン ト 323 
Public Sub プ ロ シ ー ジ ャ 87 
Put ス テー トメ ント 43 
Q 
QBColor 関 を 20 
Quit メ ソ ッ ド 831 1 
R 
Range オ ブ ジ ェクト 428 
AutoFit メ ソ ッ ド 430 
[Range] プロ パテ ィ 428 
セル 範囲 の 指定 449 
Refresh メ ソ ッ ド 31 1 
Femoveltem メ ソ ッ ド 473 
Heport ビ ュー ら 70 
コラ が な ペッ ダ ら 670 


Heport ビ ュー (続き ) 





サブ アイ テム 270 
RGB 関 数 20 
[RichTextBox] ボタ ン 75 
Right 関 数 157 
[RowHeightMin] プロ パテ ィ 8 
[Rows] プロ バ パティ 9 
ら 
SaveFile メ ソ ッ ド 81 
[ScrollBars] プロ パテ ィ 8 
SelPrint メ ソ ッ ド 104 
SetComputerName 関 数 344 
[Shape] ボタ ン 140. 166 
Shell 関 数 2498 
ShowColor メ ソ ッ ド 108 
ShowOpen メ ソ ッ ド 83 
ShowSave メ ソ ッ ド 40.81 
[Sliderl ボタ ン 110 
StateChanged イ ベン ト プ ロ シー ジャ 

ら 45 
[StatusBar] ボタ ン 12 ら 
[StatusText] プロ バテ ィ 300 
Stop メ ソ ッ ド 31 1 
[Style]」 プロ バテ ィ 6 
Sub ス テー トメ ント 87 
SYSTEM_INFO 構 造 体 370 
SystemParametersInfo 関 数 
384. 394. 490 
衝 
[TabIndex] プロ パテ ィ 295 
[TextBox] ボタ ン 4 
[Text] プロ バ パティ 16 
Timer イ ベン ト 396 
Timer ス テー トメ ント 163 
[Timerl ボタ ン 116.151 
Time 関 数 156 
[Toolbar] ボタ ン 63 
Twip 8 
Type ス テー トメ ント 359 
U 
[UpDown] ボタ ン 135 
URL の 設定 289 
User32.dll 331 


WebBrowser コ ント ロー ル 


HTML の 表示 
[WebBrowser] ボタ ン 
Win32API 
[WindowState] プ 
Window オ ブ ジ ェクト 
Workbooks オ ブ ジ ェクト 
[Workbooks] プロ パテ ィ 





パテ ィ 
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WorksheetFunction オ ブ ジ ェクト 


Worksheet オ ブ ジ ェクト 
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アイ コン の リス ト 表 示 
値 渡 し (9| 数 ) 
アッ プ ダ ウン コジ ン トロール 


[AutoBuddy] プロ バ パティ 


BuddyProperty] プロ パテ ィ 
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連動 プロ パテ ィ ] リス ト ボ ックス 


イミ ディ エイ トウ ィ ン ド ウ 

イメ ー ジ コン トロ ー ル 
[Picture] プロ バテ ィ 
[Strech] プロ パテ ィ 

イメ ー ジ リス トコ ント ロー 
イメ ー ジ サイ ズ の 指定 
ピク チャ の 挿入 

印刷 の 実行 

イン スタ ンス 








ロッ ク の 作成 
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59. 
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イン ター ネッ ト エ クス プロ ー ラ 


他 の アプ リケーション の 
イン スタ ンス の 作成 


136 
150 
458 


475 
379 
158 

66 
153 
104 
ら 04 
298 


698 


イン ター ネッ ト エ クス プロ ー ラ の 操作 292 





イン ター ネッ 
コシ トロ ー 
[Password] プロ パテ ィ 
[UserName] プロ バ パティ 
エラ ー と 定数 一 覧 
イン ター ネッ トブ 
演算 子 
オ ワ ジ ェ エク ドブ ジラ ウザ 


























トト ラン スズ ファー 


グラ ム の 作成 
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カス タム Web ブ ラウ ザ 
作成 91 
表示 形態 と 位置 の 設定 309 
表示 の 切り 替え 3098 
ブラ ウザ を 閉じ る 310 
壁紙 チェ ンジ ャ ー の 作成 376 
壁紙 の 設定 385 
可変 文字 列 型 変数 41 
為替 換算 プロ グラ ム の 作成 45 ら 
関数 
Average 450 
CInt 157 
CLng ら 9. 457 
CreateObject 298. 425, 47 1 
Date 163 
Dir 45 
Dollar 458 
FlashWindow 351 
Format 158 
GetComputerName 33 ら 
GetDiskFreeSpace 404 
GetObject 435 
GetSystemlnfo 370 
GetVersionEX 3698 
GlobalMemoryStatus 358 
LenB 42. 48 
LoadPicture 187. 387. 475 
Max 450 
Hight 15Z 
SetComputerName 344 
Shell 49 
SystemParameterslnfo 
384. 394. 490 
Time 156 
戻り 値 の 確認 458 
グラ フィ ッ ク デ バイ スイ ンタ ー フ ェ イ ス 
331 
合計 計算 処理 の 作成 らら 
コー ドウ ィ ン ド ウ 01 
固定 セ / 11 
コマ ンド ボタ ンコ ント ロー ル 
[TabIndex] プロ パテ ィ 295 
コモ ンダ イア ログ コン トロ ー ル 33 
[DialogTitle] プロ パテ ィ 40 
[filename] プロ パテ ィ 49 
[Filterl プロ バ パティ 27 
[Flags] プロ パテ ィ 176 
[FontName] プロ バ パティ 177 
[FontSize] プロ パテ ィ 177 
プロ パテ ィ の 初期 設定 38 
コラ ム ヘ ッ ダ ら 70 
コレ クシ ョ ン オ ブ ジ ェクト 426 
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コン トロ ー ル 
WebBrowser 317.320 
アッ プ ダ ウラ 134 
イメ ー ジ リス ト 60. 15 ら 
イン ター ネッ トト ラン ス フ ァ ー 42 
モジ ダイ アロ ダ 33 
コン ボボ ックス 89 
シェ イプ 140. 166 
ステ デー スバ パー 120 
スラ イダ ー 108 
タイ マー 116.151 
チャ ー ト 403. 409 
ツー ル バ ー 63 
ドラ イブ リス ト ボ ックス 401 
フレ ー ム 0 
フレ キシ ブル グリ ッ ド 3 
プロ グレ スバ ー 114.154 
リス トビ ュー ら 6 ら 
リッ チ テ キス ト ボ ックス 7 ら 
コン トロ ー ル 配列 168 
コン ピュ ー タ 名 の 設定 346 
コン ポー ネン ト 3 
コン ボボ ックス コン トロ ー ル 89 
[FontCount] プロ バテ ィ g8 
[Fonts] プロ パテ ィ 98 
[List] プロ バテ ィ 254 
[Sorted] プロ パテ ィ 89 
[Sorted] プロ バテ ィ に に ) 
で 
サブ アイ テム ら 70 
サブ メニ ュー の 作成 36 
算術 演算 子 ら 1 
参照 設定 420 
参照 渡し (引数 ) 413 
シー ケン シャ ル ア ク セス モー ド 38 
シェ イプ コン トロ ー) 140. 166 
[FilIColor] プロ バテ ィ 177 
[FiIStyle] プロ バテ ィ 140 
[Shape] プロ パテ ィ 166 
シス テム サー ビス イン ター フェ イス 331 
動 壁 紙 チ ェ ン ジャ ー の 作成 390 
ステ ー タ スバ ー コ ント ロー ル 1820. 122 
[Align] プロ バテ ィ 127 
パネ ル の サイ ス 調 整 出 Z 
パネ ル の スタ イル 158 
パネ ル の 挿入 123 
ステ ー ト メン ト 
Close 44 
Date 163 
Declare 333. 350 
Do.…Loop 47 ら 


スズ ステー トメ ント (続き ) 

























































































Exit 44 
Function ら 26 
Get 50 
Open 38 
Put 43 
Timer 163 
Type 359 
スラ イダ ー コ ント ロー 108 
[LargeChange] プロ パテ ィ 111 
[Max] プロ バ パティ 111 
[Min] プロ バテ ィ 利 
[Orientation] プロ パテ ィ 111 
[SmallIChange] プロ バテ ィ 111 
[TickFrequency] プロ パテ ィ 112 
[TickStyle] プロ パテ ィ 11 ら 8 
セク タ 407 
セル 
固定 セル ] 1 
デー タ を ファ イル に 保存 3 ら 
背景 色 の 塗り つぶ し 16 
た 
タイ マー コン トロ ー ル 前 因 151 
[lcon] プロ パテ ィ 187 
[Intervall プロ パテ ィ 116 
チャ ー ト コン トロ ー ル 403. 4098 
[ChartType] プロ パテ ィ 412 
[ColumnCount] プロ パテ ィ 410 
[Data] プロ バテ ィ 409 
[RowCount] プロ パテ ィ 410 
グラ フ の 種類 の 設定 人 4418 
ツー ル バ ー コ ント ロー ル 63 
[Align] プロ パテ ィ 316 
キャ プシ ョ ン の 表示 68 
サイ ズ 変 更 316 
ツー ル バ ー 項 目 の カ スタ マイ ズ 2 
ツー ル ヒ ント の 表示 68 
ボタ ン の 挿入 63 
ツー ル バ ー 
カス タマ イズ MM 
点 減 35 1 
ツー ル ヒ ント の 表示 68 
ディ スク 容量 の チェ ッ ク 400 
コーダ の グラ ラ 他 409 
デー タ 変 換 関数 30 
テキ スト ボッ クス コン トロ ー ル 
値 の 転送 447 
デジ タル クロ ッ ク の 作成 164 
ドラ イブ リス ト ボ ックス コン トロ ー ル 401 
ドラ ッ グ モー ド プ ロバ パ ディ 31 フ 7 
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ネス ト 43 
は 
バー ジョ ン 情 報 表 示 プ ログ ラム 364 
比較 演算 子 | 
引数 
値 渡し 413 
忠 渡 し 413 
計算 ソフ ト の 作成 1 
標準 モジ ュー ル の 挿入 330 
ファ イル の ダウ ン ロ ー ド 286 
フォ ト ア ル バ ム の 作成 460 
フォ ント サイ ズ の 設定 101 
フォ ント の 設定 9g1 
フレ ー ム コン トロ ー ル g0 
フレ キシ ブル グリ ッ ド コン トロ ー ル 3. 1 1 
[AllowUserResizing] プロ パテ ィ 
ら 
[CelAlingnment] プロ パティ 5 ら 
[ColWidth] プロ バテ ィ ら 
[FixedCols] プロ パテ ィ 1 
[FixedRows] プロ バ パティ 1 
LeaveCell イ ベン ト 9 
[RowHeightMin] プロ パテ ィ ら 
[RowHeight] プロ バ パティ ら 
[ScrolIBars] プロ パテ ィ ら 
イベ ント 一 覧 9 
行列 数 の 設定 1 
スク ロー ル バ ー の 設定 1 ら 
プロ グレ スバ ー コ ント ロー ル 114.154 
プロ ジェ クト ファ イル の 作成 3 
プロ パテ ィ ペ ー ジ ら 
変数 
可変 文字 列 型 変 用 41 
モジ ュー ルレ ベル 変数 49.53 
文字 列 型 変数 41 
ポッ プア ッ プ メニ ュー の 作成 らら 
ま 
マル チ ド キ ュ メ ント ビュ ー ワ の 作成 189 
コー ド の 作成 218 
ユー ザー イン ター フェ イス の 作成 
ら 06 
メソ ッ ド 
Addltem 47 ら 
Execute ら 44. 259 
ExecWB 356 
GetChunk ら 47 





















































メソ ッ ド (続き ) 
GoBack 31 
GoForward 31 
GoHome 31 
LoadFile 8 
Navigate 300. 32 ら 
Navigate ら 89 
OpenURL ら 5 
PopupMenu 287. 176 
Quit 31 
Hefresh 31 
Hemoveltem 473 
SaveFile 8 
SelPrint 104 
ShowColor 10 ら 8 
ShowOpen 83 
ShowSave 40.8 
Stop 31 
メニ ュー 3 
サブ メニ ュー の 作成 36 
メニ ュー モデ イダ ら 63 
メモ リ チ ェ ッ カ ー の 作成 35 ら 
文字 色 の 設定 10 ら 
文字 属性 の 操作 88 
文字 の 配置 103 
モジ ュー ルレ ベル 変数 49. 53 
文字 列 型 変数 41 
や 
ユー ザー サー ビス イン ター フェ イス 331 
こう 
ライ ブラ リフ ァイル 331 
ラン ダム アク セス モー ド 38 
デー タ の 読み 込み 46 
リス トビ ュー コン トロ ー ル ら 6 ら 2 
[ListIndex] ブロ バテ ィ 474 
[List] プロ パテ ィ 392 
[View] プロ パテ ィ ら 68 
項目 の 複数 選択 ら 77 
項目 名 と アイ コン の 表示 84 
ファ イル の ダウ ン ロ ー ド 86 
リッ チ テ キス ト ボ ックス コン トロ ー ル 7 ら 
[DefaultExt] プロ パティ 80 
[Filterl プロ パテ ィ 80 
[Font] プロ パテ ィ 91 
[HideSelection] プロ パテ ィ に 
[MaxLength] プロ パテ ィ 80 
[MultiLine] プロ パテ ィ 80 
[SelAlignment] プロ パテ ィ 103 


リッ チ テ キス ト ボ ックス コン トロ ー ル (続き ) 


プロ パテ ィ 
プロ パテ ィ 
パテ ィ 


[SelFontName 
[SelFontSize 
[TextRTF] 
印刷 の 実行 
スク ロー ル バ ー の 表示 
フォ ント サイ ズ の 設定 
フォ ント の 設定 
ポッ プア ッ プ メニ ュー の 表示 
文字 色 の 設定 
文字 の 配置 

論理 演算 子 
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ワー プロ ソフ ト の 作成 
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@ 若者 紹介 @⑨ 
瀬戸 遥 ( せ と は る か が ) 


フリ ー ソ フト の 作者 か ら パ ソコ ン 関 係 の フリ ー ラ イタ 
ー に 転身 。 主 に 、 バ パソコン 通信 ・ ホ ー ム ペー ジ 作 成 と 
Visual Basic 関 連 の 解説 書 を 中 心 に 執筆 、 こ れ ま で 
「10 日 で お ぼ ば える 」 シリーズ の 他 、 約 40 國 の 書籍 を 翔 
泳社 他 多く の 出版 社 か ら 出版 し て いる 。 

現在 、 月 刊 「Visual Basic Magazine」( 翔 泳社 ) 
VBA の テク ニッ ク 解 説 記 事 を 連載 中 。 























@ カ バー 装丁 株 式 会 社 ア レフ ・ ゼ ロ ( 宇 田 俊彦 ) 


と お か 
10 日 で お ほえ る 
ビジ ュ ア ルル ベニー シッ じ っ せ ん きょう し つ 


Visual Basic 6.0 実践 才 


人 @「10 日 で お ほえ る 」 の ホー ムペ ー ジ @@ 


本 書 の 内 容 確認 に は 十分 気 を 付け て お り ま す が 、 万 一 
CD-ROM に 収録 し た ファ イル や 本 文 の 誤記 な ど で 訂 正 
が 発生 し た 場合 に は 、 以 下 の ホ ー ム ペー ジ に て 訂正 内 容 
を お 知ら せ し ま す 。 ご 利用 下さ い 。 
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Windows95/ の 8/NT4 
@1 の 99 SHOEISHA Co..Ug. 


CD -ROM に 収 
イル 「README.TXT」 を 
2E 有 2 


@ 本 CD-ROM に 
Visual Basic 6.0 は 
収録 され て お り ま せん 。 


VB ラ ッ ク ラ ボ 
瀬戸 通電 





ビーー 翔 泳社 の Visual Basic 関 連 書 紹介 ーー コ 


人 億 絶賛 発売 中 ! 
Visual Basic 
for スー パー ビギナー ズ 


瀬戸 遥 著 

定価 1505 円 + 税 

A4 変 型 刊 CD-ROM2 枚 付き 

Visual Basic 6.0 の 評価 版 を 付属 し て いる の で 、 買っ た その 日 
か ら プ ログ ラミ ング に 親 し め ま す 。 Windows の 使い 方 に それ ほ 
ど 電 能 で は な い 方 に も 操作 で きる よう に 、 図版 と 親切 丁寧 な 解 
説 を 豊富 に 掲載 し て ある の で 初心 者 の 方 で も 理解 し や すい 紙面 
構成 と な っ て いま す 。 自己 診断 書 で 、 ど の 章 か ら 読み 始め れ ば よ 
いか が わか る よう に な っ て いま す 。 


10。。Visual Basic 6.0 
ISuUa! DaSIC 6. 
1 和孝 


VB テ ッ ク ラボ 8 瀬戸 通 革 

定価 本体 2800 円 + 税 

B5 変 型 判 CD-ROM 付 き 

「 プ ログ ラミ ング セミ ナー」 の よう に 、 段階 的 に VB の 使い 方 や テ 
クニ ッ ク を 、 無 理 な く 習 得 で きる 好評 の 入門 書 、 待 望 の Visual 
Basic6.0 編 で す 。 VB 初 心 者 が つま づき や すい と ころ を 豊富 な 
例題 と と も に 重点 解説 画像 も 豊富 で と ま ど う こと が あり ませ ん 。 
サン ブル プログ ラム を レッ スン ご と に 分 け 、 約 10 晶 で 全体 を 学 
べ る よう に 構成 し まし た 。 紹介 し て いる サン ブル ブロ グラ ム の コ 
ー ド は 、 入門 者 が 混乱 し な いよ うに 、 説明 の ポイ ント を 重点 的 に 
し ぼっ て 、 な る べく 少な い 行 数 で 作成 し て いま す 。 本 書 は VB6.0 
を は じ め か ら 学 び た い 人 必携 の 書 で す 。 


人 絶賛 発売 中 ! 


Excel VBA 
1Ogs 入門 教室 oozw 


VB テ ッ ク ラ ボ & 瀬 戸 朋 革 

定価 本 体 2800 円 + 税 

B5 変 型 刊 CD-ROM 付 き 

「 プ ログ ラミ ング セミ ナー」 の よう に 、 段階 を 追っ て VBA の テク 
ニッ ク を 説明 する VBA 入 門 書 の 決定 版 。1 日 で 34 レッ スン 
を こなし て いけ ば 、 1 0 日 で 無理 な く VBA の 全体 を 学べ る よう に 
構成 し て あり ます 。 レッ スン ご と に 1 つ ず つ 、 サ ン ブ ル マ クロ を 
自分 の 手 で 作っ て も らい ます の で 、 VBA の 基本 を 理解 し な が ら 
すぐ に 実践 で き 、 知 識 と テク ニッ ク が し っ か り と 身 に 付き ます 。 
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ユー ザー イン ター フェ イス の 作成 
合計 計算 処理 の 作成 

セル デー タ を ファ イル に 保存 する 
ファ イル か ら デ ー タ を 読み 込む 
自習 






ツー ル バ ー コ ント ロー ル の 組み 込み 
ら 時 限 目 リッ チ テ キス ト ボ ックス コン トロ ー ル の 配置 
3 時限 目 文字 属性 の 操作 

人 時限 目 自習 

時限 目 自習 


スラ イダ ー コ ント ロー ル を 使う 

プロ グレ スバ ー コ ント ロー ル を 使う 
ステ ー タ スバ ー コ ント ロー ル を 使う 
アッ プ ダ ウン コン トロ ー ル を 使う 





MDI プ ログ ラム の 作成 
ユー ザー イン ター フェ イス の 作成 







C3055 \3200E 


9784881358252 
定価 : 本 体 3.200 円 十 税 
1923055032002 






ホホ あ 
FTP プ ロト コル を 使う 
リス トビ ュー コン トロ ー ル を 使う 

簡単 FTP ク ライ アン ト プ ロ グラ ム の 作成 
自習 





イン ター ネッ ト エ クス プロ ー ラ を 操作 する 





API の 機能 と 特徴 


ワー クシ ー ト 関数 を 使う 
為替 換算 ブロ グラ ム の 作成 
フォ ト ア ル バ ム の 作成 








